Prise en charge des info-bulles pour les utilisateurs de Visual Basic 6.0
Utilisation de P/Invoke pour appeler des API non gérées à partir de vos classes gérées
Forum > Visual Basic 6
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Label1_Click(Index As Integer) Select Case Index Case 1: If Label2.Visible = False Then 'Positionnement du label Label2.Left = Label1(Index).Left + Label1(Index).Width + 200 Label2.Top = Label1(Index).Top 'Renseignement des informations Label2.Caption = "Age : 29 ans" & Chr(10) & "Sexe : Femme" 'Affichage du label Label2.Visible = True Else 'Masquage du label Label2.Visible = False End If Case 2: 'ect .... End Select End Sub