- Comment remplir une listbox avec une textbox
- Recherche listBox
- Visual Basic / VB.NET : Déselectionner dans les listbox - CodeS SourceS
- Visual Basic / VB.NET : Ajouter une scrollbar horizontale a une listbox - CodeS SourceS
- Visual Basic / VB.NET : Drag'n'drop de l'explorateur vers une listbox - CodeS SourceS
A voir également:
- Listbox en vb.net
- SAUVEGARDER dans un fichier TXT le contenue d'une LISTBOX en VB.net ✓ - Forum - VB.NET
- Base de donnée, ListBox et VB.NET ✓ - Forum - VB.NET
- Problème avec les listbox sous VB .NET ✓ - Forum - Visual Basic
- Listbox multicolumn vb.net - Forum - Visual Basic
- Listbox vb.net ✓ - Forum - VB.NET
6 réponses
cs_djerbino
- Messages postés
- 56
- Date d'inscription
- mercredi 5 décembre 2007
- Statut
- Membre
- Dernière intervention
- 2 novembre 2009
merci mai tout sa ce n'est pas mon prob
voila j'ai la solution il s'agit de monter un textbox sur listbox
PrivateSub Text2_KeyDown(KeyCode AsInteger, Shift AsInteger)
'on appuie sur la touche entrée sur le textbox
If KeyCode = 13 Then
ajouterItem
EndIf
EndSub
PublicSub ajouterItem()
IfNot inList(List1, Text2.Text) And Trim(Text2.Text) <> ""Then
List1.AddItem Text2.Text
Text2.Text = ""
EndIf
EndSub
PublicFunction inList(liste As ListBox, str AsString) AsBoolean
'recherche si la chaine str est présente dans le ListBox liste
'True si la chaine est présente
'False i la chaine n'est pas présente
Dim bool AsBoolean
bool = False
For i = 0 To liste.ListCount - 1If liste.List(i) str Then bool True
Next i
inList = bool
EndFunction
voila j'ai la solution il s'agit de monter un textbox sur listbox
PrivateSub Text2_KeyDown(KeyCode AsInteger, Shift AsInteger)
'on appuie sur la touche entrée sur le textbox
If KeyCode = 13 Then
ajouterItem
EndIf
EndSub
PublicSub ajouterItem()
IfNot inList(List1, Text2.Text) And Trim(Text2.Text) <> ""Then
List1.AddItem Text2.Text
Text2.Text = ""
EndIf
EndSub
PublicFunction inList(liste As ListBox, str AsString) AsBoolean
'recherche si la chaine str est présente dans le ListBox liste
'True si la chaine est présente
'False i la chaine n'est pas présente
Dim bool AsBoolean
bool = False
For i = 0 To liste.ListCount - 1If liste.List(i) str Then bool True
Next i
inList = bool
EndFunction
cs_djerbino
- Messages postés
- 56
- Date d'inscription
- mercredi 5 décembre 2007
- Statut
- Membre
- Dernière intervention
- 2 novembre 2009
merci mai j'ai resolu mon probleme
cs_Exploreur
- Messages postés
- 4822
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Membre
- Dernière intervention
- 15 novembre 2016
Salut,
Il me semble que l'on ne peut pas avec ce contrôle(si contrôle idem que Vb6)...Pour saisir un texte en mode exécution, il te faut pour cela utiliser un ComboBox.
A+
Exploreur
Linux a un noyau, Windows un pépin
Il me semble que l'on ne peut pas avec ce contrôle(si contrôle idem que Vb6)...Pour saisir un texte en mode exécution, il te faut pour cela utiliser un ComboBox.
A+
Exploreur
Linux a un noyau, Windows un pépin
cs_casy
- Messages postés
- 7741
- Date d'inscription
- mercredi 1 septembre 2004
- Statut
- Membre
- Dernière intervention
- 24 septembre 2014
Petit exemple ???
Dim x As Integer
For x = 1 To 50
listBox1.Items.Add("Item " & x.ToString())
Next x
---- Sevyc64 (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
Dim x As Integer
For x = 1 To 50
listBox1.Items.Add("Item " & x.ToString())
Next x
---- Sevyc64 (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
cs_Exploreur
- Messages postés
- 4822
- Date d'inscription
- lundi 11 novembre 2002
- Statut
- Membre
- Dernière intervention
- 15 novembre 2016
Ouais....C'est pas du .net tout cela..non ? Puis faut dire que ta question n'est pas très précise non plus...lol...
Salut Casy
A+
Exploreur
Linux a un noyau, Windows un pépin
Salut Casy
A+
Exploreur
Linux a un noyau, Windows un pépin