Discussion :

[djouk]

Bonjour,

Je veux ajouter un evenement click a des lables sachant que les labels sont crier dynamiquement pas avec sélectionner glisser .

Moi que je Click sur une label le style des bordure change et pour ça j'ai crier une procédure pour faire ça car j'ai plein des labels

Code :

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

1
2
3
 Public Sub selectionerLabel(ByVal lbl As Label, ByVal sender As Object, ByVal e As EventArgs)
        lbl.BorderStyle = BorderStyle.Fixed3D
    End Sub

et voici le code pour crier les labels

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Public Sub ajouterLabel(ByVal x As Double, ByVal y As Double, ByVal text As String, ByVal frm As Form, ByVal name As String)
        Dim lbl As Label
        lbl = New Label
        lbl.Name = name
        lbl.Text = text.ToString
        lbl.AutoSize = True
        lbl.Location = New Point(x, y)
        lbl.BorderStyle = BorderStyle.FixedSingle
        lbl.AllowDrop = True
        AddHandler lbl.Click, AddressOf selectionerLabel(lbl)
        frm.Controls.Add(lbl)
        frm.Update()
    End Sub

et le vrai probleme qu'il n'accepte pas ce ligne AddressOf selectionerLabel(lbl)

et merci d'avance pour votre aide

[hunteshiva]

essaye en déclarant ton label de cette maniére

Code :

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

Private WithEvents lbl As Label

[djouk]

Bonjour,

Merci pour la reponse mais il marche pas

toujours il n'accepte pas cette ligne

Code :

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

AddressOf selectionerLabel(lbl)

il m'écrit

Erreur 1 L'opérande 'AddressOf' doit être le nom d'une méthode (sans parenthèses).

[hunteshiva]

pourquoi tu a besoin de ce "AdressOf" ?? a quoi il sert?

[djouk]

AdressOf c'est pour déterminer la procédure a exécuter qu'on en click sur label.

vos aviez une méthode pour appelez la procédure ??

Code :

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

1
2
3
Public Sub selectionerLabel(ByVal lbl As Label)
        lbl.BorderStyle = BorderStyle.Fixed3D
    End Sub

[hunteshiva]

Et puis c'est normale que sa marche pas ....

tu déclare la fonction suivante:

Code :

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

1
2
3
Public Sub selectionerLabel(ByVal lbl As Label, ByVal sender As Object, ByVal e As EventArgs)
        lbl.BorderStyle = BorderStyle.Fixed3D
    End Sub

jusque la c'est bon
mais après tu l'appel en lui spécifiant 1 argument sur 3 ...

Code :

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

selectionerLabel(lbl)

il faudrait un turc du genre :

Code :

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

selectionerLabel(lbl, "sender", "e")

en tout cas moi il se plaint

[djouk]

Bonjour,


donc j'ai modifier le code

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
 Private WithEvents lbl As Label
    Public Sub selectionerLabel(ByVal lbl As Label)
        lbl.BorderStyle = BorderStyle.Fixed3D
    End Sub
    Public Sub ajouterLabel(ByVal x As Double, ByVal y As Double, ByVal text As String, ByVal frm As Form, ByVal name As String)
 
        lbl = New Label
        lbl.Name = name
        lbl.Text = text.ToString
        lbl.AutoSize = True
        lbl.Location = New Point(x, y)
        lbl.BorderStyle = BorderStyle.FixedSingle
        lbl.AllowDrop = True
        AddHandler lbl.Click, AddressOf selectionerLabel(lbl)
        frm.Controls.Add(lbl)
        frm.Update()
    End Sub

mais toujours la même chose .le problème que AdressOf n'accepte pas une procédure avec des paramètres

il y a une méthode pour affecter la procédure selectionerLabel a l'évènement click avec des paramètres ?

[hunteshiva]

ah mais non XD

regarde l'exemple qu'il te donne avec F1



en résumé, ce que tu met aprés AdressOf
c'est ce qui va etre la :


enfin tout sa ne sont que des suppositions mais je pense pas trop m'égarer