Discussion :

[AirbusA330]

Bonjour a tous

Sur une feuille j'ajoute dynamiquement des LinkLabel issue d'un tableau : ma declaration est la suivante :

Code :

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

1
2
 
Public Mylink(3) as LinkLabel

je fais une boucle qui m'ajoute les liens sur ma feuille tout marche. je veux intercepter l'evenment sur click. J'ai trouvé sur ce site une tres bonne resolution mais elle ne marche que pour un seul lien or moi je gere des liens donc j'ai un probleme pour l'index du lien clické. J'ai essauyé d'utiliser ceci
Un bouton une fois Clické cree mes liens

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
 
  Public MyLink(3)  As LinkLabel
  Public i as Integer
Private Sub CreateLink_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CreateLink.Click
 
  Dim Mytext (3) As String
 
 
  Mytext(0) = " LIEN1 XXXXXXXXX "
  Mytext(1) = " LIEN2 XXXXXXXXX "
  Mytext(2) = " LIEN3 XXXXXXXXX "
 
    For i = 0 To 2
     MyLink(i)= New LinkLabel()
     MyLink(i).Text = Mytext(i)
 
 'je place le lien sur la feuille avec MyLink.Location    
 ;
 ;
    ' J'attache le lien a la Fonction de l'evenment
 
     AddHandler MyLink(i).LinkClicked, AddressOf MyLinkLbl_LinkClicked
 
 
  Next i
End Sub
 
Private Sub MyLinkLbl_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinckClickedEventArgs)
 
' La je fais un Break point pour intercepter l'evenment ca marche 
'mais je n'ai pas l'index du lien clické , ni aucune autre info or j'ai besoin de L'index du lien visité pour le reste du traitement
End Sub

Voila je ne sais pas si c'est la bonne methode ou pas ,, j'espere trouver de l'aide

Merci a Tous

[Tropic]

Bonjours,
Voila une méthode que j'utilise (pour des boutons)
mais même principe

Code :

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

1
2
3
4
5
6
7
8
9
For i = 0 To 2
     MyLink(i)= New LinkLabel()
     MyLink(i).Text = Mytext(i)
     .Name = i.ToString

Private Sub MyLinkLbl_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinckClickedEventArgs)
  
   Dim sMylink As LinkLabel = DirectCast(sender, LinkLabel)
    Dim Index As Integer = CInt((sMylink.Name))

et tu as ton index
End Sub

[AirbusA330]

Bonjours,
Voila une méthode que j'utilise (pour des boutons)
mais même principe

Code :

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

1
2
3
4
5
6
7
8
9
For i = 0 To 2
     MyLink(i)= New LinkLabel()
     MyLink(i).Text = Mytext(i)
     .Name = i.ToString

Private Sub MyLinkLbl_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinckClickedEventArgs)
  
   Dim sMylink As LinkLabel = DirectCast(sender, LinkLabel)
    Dim Index As Integer = CInt((sMylink.Name))

et tu as ton index
End Sub

Bonjour Tropic
Merci pour ta réponse ,, elle se rqpproche de solution que j'qi trouvé... Apres avoir essayé presque toutes les proprietés des controls . j'ai decouvert que lq proprieté IndexOf donne le n° du control dans le formulaire ( son index dans l'ordre de creation )

Code :

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

1
2
3
4
5
6
 
 
dim i as Integer
i = Me.Controls.IndexOf( sender )
 ............
............ Traitement

Ceci suppose qu'on doit connaitre tout les control qu'on a creer ,,leur ordre etc...
En cherchant plus j'ai decouvert une proprieté de sender qui n'apparait pas a l'intelliSence : c'ets .Name qui donne le nont du control donné lors de sa creation : Plus parlant pour un traitement

Code :

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

1
2
3
4
5
6
7
8
 
 
Dim CtlName as String
 
      CtlName = sender.name
 
....
' Traitement

Voila ca me va bien du coup j'ai reduit mon code a un Seul Evenement pour mes boutons , mes liens et mes images sur une Feuille