Listbox
spaa05
Messages postés
148
Date d'inscription
mardi 14 novembre 2000
Statut
Membre
Dernière intervention
26 juillet 2005
-
29 juin 2005 à 17:33
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 29 juin 2005 à 18:28
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 29 juin 2005 à 18:28
2 réponses
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
29 juin 2005 à 18:19
29 juin 2005 à 18:19
Private Sub Command1_Click()
Dim i As Integer
Dim s As String
For i = 0 To List1.ListCount - 1
s = List1.List(i)
If Left$(s, 5) = "note:" Then
List2.AddItem s
End If
Next
End Sub
Daniel
Dim i As Integer
Dim s As String
For i = 0 To List1.ListCount - 1
s = List1.List(i)
If Left$(s, 5) = "note:" Then
List2.AddItem s
End If
Next
End Sub
Daniel
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
29 juin 2005 à 18:28
29 juin 2005 à 18:28
Salut
Ou encore, pour le test :
If LCase(s) Like "note:*" Then
Le LCase permet de s'affranchir des min/maj
Le * dans la requète remplace les caractères suivants (en SQL, c'est %).
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Ou encore, pour le test :
If LCase(s) Like "note:*" Then
Le LCase permet de s'affranchir des min/maj
Le * dans la requète remplace les caractères suivants (en SQL, c'est %).
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)