Liste combo box

Question

Bonjour,

En vb, je voudrais mettre un &#233;l&#233;ment dans la liste de la combo, si ce dernier n'exite pas dans la liste. Et je voudrais qu'a chaque ouverture de mon programme, les nouveaux &#233;l&#233;ments mis dans les listes soient toujours pr&#233;sents.

Merci d'avance.

FRED

jrivet · Answer

Salut.
Pour verifier si un element est dans la list tu peux essayer ceci

Private Function IsInListe(Elem As String) As Boolean
Dim i As Integer
IsInListe =  False
For i = 0 To cb.ListCount
    If cb.List(i) = Elem Then
        IsInListe = True
        Exit For
    End If
Next
End Function

 Et dans le code tu fais:  If Not IsInliste("TOTO") then Call cb.AddItem("TOTO")

Ensuite si tu veux memoriser les elements ajouter tu peux les sauvegarde dans un fichier txt du style:

Dim i As Integer


Open "C:\ListeItem.txt" For Output As #1
For i  = 0 To cb.ListCount
    Print #1, cb.List(i)
Next
Close #1

Ensuite pour les recuperer tu fais:

Private Sub Form_Load()
Dim It As String
Open "C:\ListeItem.txt" For Input As #1
While Not EOF(1)
    Input #1, It
     Call cb.AddItem(It)
Wend


Close #1



End Sub

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

Renfield · Answer

ta fonction peut s'ecrire :

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 Function IsInListe(Elem As String) As Boolean
    IsInListe = (SendMessage(cb.hwnd, CB_FINDSTRINGEXACT, -1, ByVal Text1.Text) <> -1)
End Function

attention a ta boucle d'&#233;criture.....
    For i = 0 To cb.ListCount - 1
        Print #1, cb.List(i)
    Next i

Renfield
Admin CodeS-SourceS - MVP Visual Basic

jrivet · Answer

> Renfield: Merci pour l'info. (et pour la correction)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_lembi · Answer

voici mon code qui permet d'alimenter le combo1 par des donnees de champ nom du table id
et je veux qui le nom ne repete pas(combo sans doublans)
mais dans le form load il ya un erreur le compilateur il m'affiche
nombre d'arguments ou d'affectation de propriete incorrecte
svp aidez moi et 1000 merci  

Private Sub Form_Load()
Dim strTemp As String
Adodc1.RecordSource = " select  * from id"
Adodc1.CommandType = adCmdText

Adodc1.Refresh
Combo1.Clear
While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields(1) & ""
  If Not IsInListe(Combo1, strTemp) Then
            Combo1.AddItem strTemp
  End If
   Adodc1.Recordset.MoveNext
Wend

Adodc1.Recordset.Close
End Sub

Private Function IsInListe(strTemp As String) As Boolean

Dim i As Integer
IsInListe = False
For i = 0 To Combo1.ListCount
    If Combo1.List(i) = strTemp Then
        IsInListe = True
        Exit For
    End If
Next
End Function

Renfield · Answer

tu n'a pas donné de valeur à strTemp lorsque tu fais : 
       Combo1.AddItem strTemp

pour tes doublons, demande a la requete de faire le tri :

Avec un : " select DISTINCT * from id"

Combo1.Clear
Do Until oRs.EOF
    Combo1.AddItem oRs.Fields(1) 
    oRs.MoveNext
Loop
oRs.Close

Liste combo box

5 réponses

Discussions similaires