Ajouter dans un combobox

Version imprimable

10/02/2016, 14h06
abiking

Ajouter dans un combobox

salut les amis
mon problème est : je veux qu'en cliquant sur un bouton, je peux ajouter des enregistrements dans un combobox
mais le problème si j'utilise le code suivant: Combobox1.AddItem "enregistrement".
ça marche, et cela s'ajoute mais ça ne s'enregistre pas si je ré-exécute mon application.
je trouve la combobox vide je dois à chaque fois ajouter
moi je veux ajouter des enregistrements une bonne fois pour toutes et ils restent dans la combobox
merci de m'aider

Justement le contrôle ComboBox ne peut pas conserver les données qu'on y met.

Ces données doivent être chargées à chaque démarrage de l'application à partir d'un fichier(txt, xls, csv ou même une base de données) ou encore à partir du registre Windows(mais celle-ci est déconseillée comme solution pour ceux qui ne savent le manipuler).
Clique sur le menu Projet puis le sous-menu Références... et fais défiler la liste des références jusqu'à Microsoft Scripting Runtime et coche la case correspondante puis OK. Essaie ce
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Option Explicit Dim oFSO As New FileSystemObject, F As Object Private Sub Command1_Click() Set F = oFSO.OpenTextFile(App.Path & "\PourCombo.txt", ForAppending, True) If Text1.Text <> "" Then F.WriteLine Text1.Text F.Close Combo1.AddItem Text1.Text End If Text1.Text = "" Combo1.ListIndex = Combo1.ListCount - 1 End Sub Private Sub Form_Load() Dim Ret$ If oFSO.FileExists(App.Path & "\PourCombo.txt") Then Set F = oFSO.OpenTextFile(App.Path & "\PourCombo.txt", ForReading, False) While Not F.AtEndOfStream Ret = F.ReadLine Combo1.AddItem Ret Wend Else : GoTo NoFile End If Combo1.ListIndex = Combo1.ListCount - 1 ' Dernier "enregistrement" NoFile: End Sub

10/02/2016, 23h41
iclic

Bonsoir,

La Combobox n'est pas un fichier. Quand tu exécutes ton application , elle est initialisée à nouveau.
11/02/2016, 08h45
ProgElecT

salut

Citation:

Envoyé par abiking

salut les amis
mon problème est : je veux qu'en cliquant sur un bouton, je peux ajouter des enregistrements dans un combobox
mais le problème si j'utilise le code suivant: Combobox1.AddItem "enregistrement".
ça marche, et cela s'ajoute mais ça ne s'enregistre pas si je ré-exécute mon application.
je trouve la combobox vide je dois à chaque fois ajouter
moi je veux ajouter des enregistrements une bonne fois pour toutes et ils restent dans la combobox
merci de m'aider

Si ton combobox doit contenir plusieurs lignes toujours identiques d'une utilisation du programme à un autre, tu peux le faire en les ajoutant au moment ou tu es dans l'éditeur VB6.
Tu sélectionnes le combobox et dans la colonne Propriété - Combo1 tu sélectionnes la propriété List que tu ouvres avec le petit bouton flèche basse, une liste vide apparait, tu y rentres tous tes mots, en pressant Ctrl + Enter entre chaque mots que tu désires y mettre.

Citation:
Envoyé par l_autodidacte
Justement le contrôle ComboBox ne peut pas conserver les données qu'on y met.

Ces données doivent être chargées à chaque démarrage de l'application à partir d'un fichier(txt, xls, csv ou même une base de données) ou encore à partir du registre Windows(mais celle-ci est déconseillée comme solution pour ceux qui ne savent le manipuler).
Clique sur le menu Projet puis le sous-menu Références... et fais défiler la liste des références jusqu'à Microsoft Scripting Runtime et coche la case correspondante puis OK. Essaie ce
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Option Explicit Dim oFSO As New FileSystemObject, F As Object Private Sub Command1_Click() Set F = oFSO.OpenTextFile(App.Path & "\PourCombo.txt", ForAppending, True) If Text1.Text <> "" Then F.WriteLine Text1.Text F.Close Combo1.AddItem Text1.Text End If Text1.Text = "" Combo1.ListIndex = Combo1.ListCount - 1 End Sub Private Sub Form_Load() Dim Ret$ If oFSO.FileExists(App.Path & "\PourCombo.txt") Then Set F = oFSO.OpenTextFile(App.Path & "\PourCombo.txt", ForReading, False) While Not F.AtEndOfStream Ret = F.ReadLine Combo1.AddItem Ret Wend Else : GoTo NoFile End If Combo1.ListIndex = Combo1.ListCount - 1 ' Dernier "enregistrement" NoFile: End Sub
Merci bcp mon ami je vais essayé