Set obj as label = FormPrincipal.Controls.Add("label", "labelnumero" & i) addHandler obj.onClick , AdressOff mafonctionClickSuLabel private sub mafonctionClickSuLabel(sender as Object, e as eventArg) messageBox.show("coucou") end sub
Private Sub Form_Activate() Label1(0).Move 0, 0, 1000, 1000 For I = 1 To 3 Load Label1(I) Label1(I).Caption = "monlab N° " & I Label1(I).Visible = True Label1(I).Move Label1(0).Width * I Next End Sub Private Sub Label1_Click(Index As Integer) MsgBox "tu as cliqué sur le label label1(" & Index & ")" & _ " dont le caption est " & Label1(Index).Caption End Sub
Étant novice dans le domaine de la programmation
C'est dommage de débuter avec un langage obsolète
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionVB.Net (que j'estime lourd et lent)
Tu penses migrer vers quel langage ?