Discussion :

[silace]

bonjour a tous
j'ai créer des textbox dans ma form principal
et j'aimerai (si c'est possible) lancer des événement de ces textbox a partir d'une autre classe que celle de la form principal

en gros je souhaite déclarer un textbox dans le designer de la form1 et pouvoir gérer ses événement a partir d'une classe Autre1 et non la classe de la form1

j'ai regarder pas mal de temps sur internet mais je n'ai pas trouver quelque chose de très clair
c'est pour ça que je vous demande de l'aide

[-N4w4k-]

Salut,

C'est possible mais pour cela, il faut que ton autre classe connaisse ton form où se trouve ta textbox. Ensuite tu peux abonner manuellement une méthode de ta classe à un évènement de ta textbox.

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Class1
 
    Private Form1 As New Form1
 
    Sub Test()
        AddHandler Form1.TextBox1.KeyPress, AddressOf TextBox1_KeyPress
    End Sub
 
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        'a completer
    End Sub
 
End Class

[-N4w4k-]

ou comme ça (pour se rapprocher de ce que tu veux faire):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Class Class1
 
    Sub SuscribeTextBoxKeyPressEvent(ByVal txtBox As TextBox)
        AddHandler txtBox.KeyPress, AddressOf TextBox_KeyPress
    End Sub
 
    Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
 
    End Sub
 
End Class

Ici la classe ne connais pas directement le form ou la textbox mais on le lui a fournit par le biais de la méthode SuscribeTextBoxKeyPressEvent.

[silace]

merci pour ta réponse

et donc la je n'ai plus besoin de déclarer mon événement dans la form1

en faite je voudrai que lorsque l'on clic sur la textbox tout sont contenu soit null

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Class Class1
    Private Form1 As New Form1
 
    Sub Test()
        AddHandler Form1.TextBox1.Click, AddressOf TextBox1_Click
    End Sub
 
    Private Sub TextBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form1.TextBox1.Clear()
    End Sub
End Class

mais la il ne se passe rien donc il doit me manquer quelque chose

[-N4w4k-]

Alors ce que j'ai écrit ne sont que des exemples pour te montrer que c'est possible.

Ajoute ces méthodes dans la classe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Sub SuscribeTextBoxMouseClickEvent(ByVal txtBox As TextBox)
        AddHandler txtBox.MouseClick, AddressOf TextBox_MouseClick
    End Sub
 
    Private Sub TextBox_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        Dim tb As TextBox = sender
        tb.Text = ""
    End Sub

Ensuite, depuis ton form principal, tu abonne ta classe aux évènements TextBox.MouseClick:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim maclasse As New Class1()
maclasse.SuscribeTextBoxMouseClickEvent(TextBox1)
maclasse.SuscribeTextBoxMouseClickEvent(TextBox2)
'etc.

[Pol63]

tu ne veux pas lancer un évènement comme tu le dis, mais t'abonner à un évènement (il faut le bon jargon)

s'abonner à des event de controls depuis des classes non graphiques relève dans la majorité des cas d'un gros défaut de conception

après il te faut une référence de l'objet, vu que tu fais un new form1 dans ta classe, tu t'abonnes à l'event d'un textbox qui n'est même pas affiché (d'où le fait que tu ne vois rien fonctionner ...)

[silace]

merci N4w4k
ça fonctionne très bien

désoler pol63 de ne pas utiliser le bon vocabulaire mais comme je l'ai mis dans le nom du sujet je suis debutant

en tout cas merci a vous deux

[Pol63]

désoler pol63 de ne pas utiliser le bon vocabulaire mais comme je l'ai mis dans le nom du sujet je suis debutant

ce n'était pas un reproche mais une explication, c'est le but de ce forum ^^

[silace]

ce n'était pas un reproche mais une explication, c'est le but de ce forum ^^

je m'en doute que se n'etait pas un reproche, et justement c'est sympa de faire remarquer lorsque l'on se trompe de vocabulaire

[silace]

je vais continuer sur se sujet vu que le problème que je rencontre est lier

alors une fois que mon évènement c'est déclencher j'appel une procédure sub dans un module différents (j'ai remplacer mes class par des modules je pense que c'est plus pratique)
en gros j'ai ma form1 qui déclarer mes évènement , un module qui gere les différents évènements puis en fonction de l'evenement appel un procedure situer dans un module2 .
mais le probleme c'est que dans le module2 je veut modifier les valeurs des objet de la form1, mais rien ne change ...

alors que si j'appel cette meme procedure depuis la form1 la j'ai bien les modification voulu.

je pense que c'est un probleme de declaration des objet mais je ne voit pas ...

[Pol63]

il te manque quelques notions pour comprendre ce qui ne va pas
un cours : http://plasserre.developpez.com/cours/vb-net/
pour modifier form1, il ne faut pas écrire form1.quelquechose, vb.net l'autorise car il créé une variable de ce nom qui rend bien service au débutant, mais c'est une hérésie, ne serait-ce que parce qu'à un instant T il peut y avoir plusieurs form d'ouvertes, et une seule variable est alors hasardeux
il faut une variable qui pointe vers la référence de form1 que tu veux manipuler pour ca il faut que ta form la renseigne dans la classe ou le module (mettre une variable sur le module et faire module1.instanceform1 = me sur le form)

[-N4w4k-]

mais le probleme c'est que dans le module2 je veut modifier les valeurs des objet de la form1, mais rien ne change ...

Peut être aurais tu un bout de code à nous montrer pour te dire ce qui ne va pas.

De plus, comme l'a dit Pol63 dans un message précédent, pour abonner des évènements d'un Form1 à un module il faut avoir une bonne raison car cela amène plein de problème en plus qu'il faut pouvoir gérer (comme des ObjectDisposedException ). Peut être que tu peux nous en dire un peu plus sur cette raison.. On pourra peut être te proposer quelque chose de plus propre.

[silace]

merci de vos reponse

voici mon code pour l'exemple
ma form1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Class Form1
 
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SuscribeTextBoxMouseClickEvent(Textbox1)
        Eventtext(Textbox1)
        Eventtext(TextBox2)
 
    End Sub
 
End Class

mon module qui gere les evenement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Module module2
 
 
    Private form1 As New Form1
    Sub SuscribeTextBoxMouseClickEvent(ByVal txtBox As TextBox)
        AddHandler txtBox.MouseClick, AddressOf TextBox_MouseClick
    End Sub
 
    Private Sub TextBox_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
        Dim tb As TextBox = sender
        tb.Text = ""
    End Sub
 
 
    Sub Eventtext(ByVal txtBox As TextBox)
        AddHandler form1.Textbox1.KeyDown, AddressOf TextBox_keydown
    End Sub
    Private Sub TextBox_keydown(ByVal sender As Object, ByVal e As KeyEventArgs)
        Dim tb As TextBox = sender
 
        If tb.Text = "Textbox1" Then
            nb = 1
            manipulation()
        ElseIf tb.Text = "TextBox2" Then
            nb = 1
            manipulation()
        End If
    End Sub
End Module

et le module appeler en fonction de l'evenement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Module Module1
    Public txt As New TextBox
    Public frm1 As New Form1
    Public nb As Integer
 
    Sub lol()
        MsgBox("ok")
        frm1.Textbox1.Text = "lol"
    End Sub
 
    Sub bonjour()
        MsgBox("ok")
        frm1.TextBox2.Text = "bonjour"
    End Sub
    Public Sub variable()
 
    End Sub
    Sub manipulation()
        MsgBox(nb)
        Select Case (nb)
 
            Case 1
                lol()
            Case 2
                bonjour()
        End Select
    End Sub
End Module

[Pol63]

comme dit précédemment

après il te faut une référence de l'objet, vu que tu fais un new form1 dans ta classe, tu t'abonnes à l'event d'un textbox qui n'est même pas affiché (d'où le fait que tu ne vois rien fonctionner ...)

new créé une nouvelle form, enlève le new ce qui te permettra de réfléchir à ce que tu dois faire pour que ca marche
pareil pour le new textbox, enlève le new

[silace]

au depart je n'avais pas mis de new et sans compiller tout avait l'air de fonctionner
sauf quand j'appel la variable de la form la il me mes d'utiliser un new

[-N4w4k-]

Re,

Alors avant d'essayer de corriger ton code, je vais t'en proposer un autre qui me parait plus apte à faire ce que j'ai compris du tien, tu me diras si c'est ça que tu veux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'abonnements à l'évènement TextBox.KeyDown
        AddHandler TextBox1.KeyDown, AddressOf TextBox_KeyDown
        AddHandler TextBox2.KeyDown, AddressOf TextBox_KeyDown
 
        'abonnement à l'évènement TextBox.MouseClick
        AddHandler TextBox1.MouseClick, AddressOf TextBox_MouseClick
    End Sub
 
    Private Sub TextBox_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        Dim tb As TextBox = sender
 
        If tb Is TextBox1 Then  '<- si la TextBox EST la TextBox1
            Lol(tb)  '<- on passe en paramètre la TextBox en question
 
        ElseIf tb Is TextBox2 Then  '<- si la TextBox EST la TextBox1
            Bonjour(tb)  '<- on passe en paramètre la TextBox en question
 
        End If
 
        e.SuppressKeyPress = True '<- on évite la frappe en cours
    End Sub
 
    Private Sub TextBox_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim tb As TextBox = sender
        tb.Clear()
    End Sub
 
    Private Sub Lol(ByVal tb As TextBox)
        'on écrit le texte dans la TextBox passée en paramètre
        'ici on ne sait pas si c'est TextBox1 ou TextBox2
        tb.Text = "lol"
    End Sub
 
    Private Sub Bonjour(ByVal tb As TextBox)
        'on écrit le texte dans la TextBox passée en paramètre
        'ici on ne sait pas si c'est TextBox1 ou TextBox2
        tb.Text = "bonjour"
    End Sub
 
End Class

Bien entendu tu peux déplacer des méthodes dans des modules mais ce n'est pas le mieux car ce qui concerne un objet (ici ton Form1) devrait rester dans cet objet. Après il y a peut être une raison à ça mais comme je ne la connais pas je préfère te montrer ce qui me parait le plus judicieux.

[silace]

merci pour votre aide mais j'ai trouver une autre methode qui est bien plus simple
(en meme temps on pouvais pas faire plus compliquer )

alors la form1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub eventTxtboxclick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Textbox1.Click, TextBox2.Click
        ClearTExtBox(sender)
    End Sub
    Private Sub TextBox_keydown(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Textbox1.KeyDown, TextBox2.KeyDown
        manipTxtbox(sender)
    End Sub

le module1 qui modifie les textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Sub lol()
 
        Form1.Textbox1.Text = "lol"
    End Sub
 
    Sub bonjour()
 
        Form1.TextBox2.Text = "bonjour"
    End Sub
    Public Sub variable()
 
    End Sub
    Sub manipulation()
 
        Select Case (nb)
 
            Case 1
                lol()
            Case 2
                bonjour()
        End Select
    End Sub

et le module2 qui gere les evenements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Module module2
 
    Sub ClearTExtBox(ByVal sender As TextBox)
        Dim tb As TextBox = sender
        tb.Text = ""
    End Sub
 
 
    Sub manipTxtbox(ByVal sender As TextBox)
        Dim tb As TextBox = sender
        MsgBox(tb.AccessibleDescription)
        nb = tb.AccessibleDescription
        manipulation()
    End Sub
End Module

si vous trouver que sa ne va pas dite le moi ;D
en tout cas le fait de déclencher les évènement depuis un module etait pas une si bonne idée que ça.
et comme sa pas besoin de créer des variables de type ....

en tout cas merci a vous deux car sinon je pense que j'y serai pas arriver

[Pol63]

ce n'est pas parce que le designer te dis qu'il faut écrire new qu'il faut le faire sans réfléchir/comprendre
dans ce cas ce n'est pas la solution ...

on va repartir du début

en gros je souhaite déclarer un textbox dans le designer de la form1 et pouvoir gérer ses événement a partir d'une classe Autre1 et non la classe de la form1

dans quel but ?
si c'est juste pour un textbox abandonne l'idée tout de suite
si c'est c'est pour ajouter un comportement à plusieurs textbox, créé un nouveau textbox avec ce comportement et utilises le sur tes forms ...

[rv26t]

Bonjour,

en gros je souhaite déclarer un textbox dans le designer de la form1 et pouvoir gérer ses événement a partir d'une classe Autre1 et non la classe de la form1

Si c'est un principe général que tu souhaites mettre en oeuvre,
peut-être devrais-tu t'inspirer du pattern "Model View Presenter".

Voici un tutoriel (en C#) mais le chapitre II (implémentation classique du modèle) est très simple et te permettra de voir le principe.
Cela semble correspondre a ce que tu souhaites faire.
http://jab.developpez.com/tutoriels/dotnet/mvppattern/

A+, Hervé.

[silace]

merci pour toutes vos réponse
et désoler de répondre aussi tardivement

j'ai résolu mon problème en le contournant enfaite je voulais faire un module qui géré tous mes événements mais a la place j'ai juste déclarer la fonction a appeler quand l’événement se produisait
je mets le sujet en résolu