Modifier un controle du MainForm depuis un module

Bonjour,

Mon problème paraît simple, mais je ne m'en sors pas.
J'ai une petite application en VB .net composée de :

- 1 form principale (MainForm)
- 1 module où j'ai mis mes fonctions (déclenchées par des boutons de MainForm)

Dans MainForm, j'ai un label "labelDebug" dans lequel je voudrais écrire des
infos depuis les fonctions de mon module.

Voici le code de déclaration de mon Mainform (généré par VB) :

Public Class MainForm
Inherits System.Windows.Forms.Form
(...)
Public labelDebug As System.Windows.Forms.Label

- Dans mon module, j'ai essayé :

MainForm.labelDebug.text="mon texte"

Mais le compilateur ne connaît pas "MainForm".

- J'ai essayé de créer une Sub dans MainForm :

Public Sub ChangeTexte (ByVal texte As String)
Me.labelDebug.Text=texte
End Sub

Mais dans le module, la fonction est inaccessible.


Je ne sais plus trop comment faire, pourtant ça paraît simple !
Merci pour votre aide !

Bonjour Arnaud,

Si tu créé une procédure dans ton module

Public Sub ChangeTexte (ByVal texte As String)
MainForm.labelDebug.Text=texte
End Sub

Bonjour Mathieu,

Si je crée cette procédure dans mon module, il ne reconnaît pas MainForm :

error BC30451: Name 'MainForm' is not declared

...

"Mathieu Francesch" wrote:

> Bonjour Arnaud,
>
> Si tu créé une procédure dans ton module
>
> Public Sub ChangeTexte (ByVal texte As String)
> MainForm.labelDebug.Text=texte
> End Sub

Re,

En créant un nouvel objet dans ton module qui fait référence à Maiform :

Sub test()
Dim MaMainForm As New MainForm
MaMainForm.Label1.Text = "Test"
End Sub

Que ce passe t-il ?

Il ne connait pas le type MainForm :

error BC30002: Type 'MainForm' is not defined

Il y a vraiment quelque chose qui m'échappe...

"Mathieu Francesch" wrote:

> Re,
>
> En créant un nouvel objet dans ton module qui fait référence à Maiform :
>
> Sub test()
> Dim MaMainForm As New MainForm
> MaMainForm.Label1.Text = "Test"
> End Sub
>
> Que ce passe t-il ?

Je crois que j'ai le même problème

si je fais avec form1 la fenêtre principale

dans form2

Dim fform1 As New Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
fform1.Show()
fform1.Label1.Text = "Maurice"
End Sub

ça marche... mais évidemment cela ouvre une nouvelle fenêtre Form 1
Et ce n'est pas ce que je veux puisque je voudrais écrire dans la form1
principale

Bizarre que ce soit si compliqué dans vb.net alors que c'est si simple dans
les précédentes versions

Maurice

J'ai essayé la méthode préconisé qui semblait marché, mais chez moi cela ne
marche pas

J'ai l'erreur

Une exception non gérée du type 'System.InvalidCastException' s'est produite
dans WindowsApplication1.exe

Informations supplémentaires : Le cast spécifié n'est pas valide.

lorsque le ligne
f = Form.ActiveForm

s'éxécute


Je crise !!!


Maurice