Private Sub Btn_MonBouton(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_MonBouton.Click Dim CurrTab As TabPage = sender.Parent Dim CurrControl As Control = CurrTab.Parent End Sub
Private Sub BtnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click MsgBox("Le bouton [" & sender.text & "] est sur " & sender.parent.name) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question