Ajouter valeur du textbox dans combobox

Version imprimable

22/03/2009, 22h16
avyrex

Ajouter valeur du textbox dans combobox

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.

Du même temps, une fois créer un .exe, est0ce que ça va fonctionner aussi cette addition de la liste du combo1?

Tu crées une petite fonction pour vérfier si le texte est déjà dans la liste du combo avant d'ajouter

Code:

1
2
3
4
5
6
7
8
9
Private Function IsInList(sText As sring, Cbo As ComboBox) As Boolean
  Dim iPnt As Integer
  For iPnt = 0 To Cbo.ListCount - 1
    If Cbo.List(iPnt) = sText Then
      IsInList = True
      Exit Sub
    End If
  Next
End Function

Cà s'utilise comme çà

Code:

1
2
3
4
If IsInListe("Nancy Davolio",Combo1) Then
    Combo1.AddItem "Nancy Davolio"
    Combo1.ItemData(Combo1.NewIndex) = 12345
End If

23/03/2009, 10h59
avyrex

Merci pour ton aide.

Je me retrouve avec un erreur:

Compile error:
User-defined type not defined.

Ça veut dire quoi ça?
23/03/2009, 12h21
ProgElecT

Code:

Private Function IsInList(sText As String, Cbo As ComboBox) As Boolean

Une petite erreur de frappe (pas trop fort :aie:) sur le As String, Salut Delbeke ;)
25/03/2009, 01h17
avyrex

Super, merci