Discussion :

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[iclic]

Bonsoir,

La Combobox n'est pas un fichier. Quand tu exécutes ton application , elle est initialisée à nouveau.

[ProgElecT]

salut

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.

[abiking]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é