Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Evitare doppi inserimenti in una combobox.

 posso evitare che venga inserita una seconda volta?
Un'alternativa:
Public Const CB_ERR = (-1)
' Ricerca case insensitive
Public Const CB_FINDSTRING = &H14C
' Ricerca Case Sensitive
Public Const CB_FINDSTRINGEXACT = &H158
Public Declare Function SendMessage Lib "user32" _
           Alias "SendMessageA" ( _
           ByVal hWnd As Long, _
           ByVal wMsg As Long, _
           ByVal wParam As Long, _
           lParam As Any) As Long
Dim cboIndex As Long
Dim strBuff As String
    strBuff = "Ciao Mondo"
    ' Ricerca la stringa a partire dal primo elemento (wParam = -1)
    cboIndex = SendMessage(Combo1.hWnd, _
                       CB_FINDSTRINGEXACT, _
                       -1, _
                        ByVal strBuff)
    If cboIndex > CB_ERR Then
        ' La stringa esiste
        ' L'indice è riportato in cboIndex
    End If

Ciao a tutti,
ho 2 textbox (txtmarca e txt modello).Mettiamo che txtmarca.text ="Ciao" e
che txtmodello.text="Mondo", premendo un command button per confermare, La
stringa "Ciao Mondo" viene inserita in una combo (e fin qui tutto Ok!). Ma
se la scritta "Ciao Mondo" fosse gia' inserita nella combo, in che modo
posso evitare che venga inserita una seconda volta?
Grazie 1000.
Zuril

 ha scritto

prob c'e' di meglio, ma puoi provare:
sub add2combo
    dim j as integer, s as string
    s = txtmarca & " " & txtmodello
    for j =0 to combo1.listcount -1
        if combo1.list(j) = s then exit sub
    next
    combo1.additem s
    combo1 = s
end sub
hth, pal

Ecco che avevo detto! ........
mi hai fregato sul tempo
leggo il post, scrivo il codice (intanto mi si disconnette)e..... pal
risponde (anche se è sabato)
cmq il mio è commentato ..................tiè :-)
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Combo1.ListCount -1      ' cicla da 0 al numero degli elementi
della combo
    If Text1.Text & " " & Text2.Text  =  Combo1.List(i) Then  'cerca il
valore
        MsgBox ("elemento già inserito")         ' restituisce l'errore
        Exit Sub      ' chiude la procedura
    End If
    Next
         Combo1.AddItem Text1.Text & " " & Text2.Text      ' altrimenti
inserisce il valore
End Sub
ciao
max

 cmq il mio è commentato ..................tiè :-)
non lo faccio piu' !! :))
poi comunque ho dormito 2 ore di schianto...
ciao, a.

 ha scritto nel messaggio
news:8v6ipr$3m7ai$1...@ID-51318.news.dfncis.de...


> poi comunque ho dormito 2 ore di schianto...
Sei andato a dormire alle 19.48 ??? :))
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle BT Sez. Sud

 Sei andato a dormire alle 19.48 ??? :))
si', dormo quando altre cose lo consentono. e' stato un periodo complesso...
fra le mie prestazioni, comunque, non e' ancora incluso il sonnambulismo.
se alle 19.48 ho risposto, circa a quell'ora probabilmente mi sono
_svegliato_ :)))

 _svegliato_ :)))
Ma se stai sempre in chat sul NG.. :))


 Ma se stai sempre in chat sul NG.. :))
forse a volte e' java, la labradorina, che prende l'iniziativa.
ma ancora non ha imparato a mettere la firma sua.
d'altronde si sa, java ha dei limiti.

 d'altronde si sa, java ha dei limiti.
Come sei cattivo..
