voici comment s'utilise se composant frequemment employé dans vos projets
Source / Exemple :
Private Sub Command1_Click()
List1.AddItem Text1.Text
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub
Private Sub List1_DblClick()
If List1.ListIndex <> -1 Then
MsgBox List1.List(List1.ListIndex)
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
List1.AddItem Text1.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End Sub
Conclusion :
double cliquez sur un element pour qu'il s'affiche dans une boite de message
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.