Ajouter valeur du textbox dans combobox

Question

Bonjour a tous,

Je voudrais savoir comment faire pour ajouter la valeur du textbox1 dans la liste du combo1. Par contre, si le nom existe déjà, il me dira qu'il existe dans la liste.

Merci pour votre aide.

jmf0 · Answer

Bonjour, avyrex19263,
tu as toujours la ressource d'une boucle de vérification, mais le plus rapide est ceci :

Private Const CB_FINDSTRINGEXACT As Long = &H158
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long



Private Sub Command1_Click()
 Dim tentons As String
 tentons = "toto"
 If SendMessage(Combo1.hwnd, CB_FINDSTRINGEXACT, -1, ByVal tentons) = -1 Then
   Combo1.AddItem tentons
 Else
   MsgBox "deja existant"
 End If
End Sub

Maintenant : J'espère pour toi que tu développes bien sous VB6 (là où tu as "posté"). Pourquoi ? pour ce que jn'ai mis en rouge...
(voilà pourquoi il faut choiisir avec soin son thème...)

avyrex1926 · Answer

Merci,

J'ai une erreur qui apparait:

Sub or Function not define

ps: oui, je suis bien en VB6.

JM

avyrex1926 · Answer

Là, ça fonctionne.

Merci.

Petite question, comment faire si je veux qu'il reste en mémoire dans le combo1 la prochaine fois que je l'ouvre?

jmf0 · Answer

Il te faut alors stoker (fichier texte, fichier ini, base de données, etc...) et relire à l'ouverture pour recharger ta combobox.

avyrex1926 · Answer

Super merci, je vais regarder ça.

Ajouter valeur du textbox dans combobox

5 réponses

Votre réponse

Discussions similaires