Le composant listbox

Description

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

Codes Sources

A voir également

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.