[VB 6] Ricercare i dati in una Combobox

[Robots]

Buongiorno!!!!
Prima di tutto volevo ringraziare a tutti coloro che sono iscritti e in particolare agli amministratori che gestiscono bene questo Forum e le risposte vengono date in tempi molto brevi.
ora vi pongo un problema che ho con l'oggetto combo di VB6.
Ho una Form con una combo e delle textbox collegate al database (tutto da codice); ora all'interno della combo mi carico dei dati da una tabella e viene popolata; fin qui tutto bene, ora ho una text dove faccio una ricerca di un nome che esiste nella combo,con un pulsante che quando ci clicco dovrebbe selezionarmi dalla combo il nome che io ho cercato; sapete dirmi come posso fare?

[raffaeu]

Un cilco For Each e SelectIndex o SelectItem

[Robots]

ma vedi che nella combo non esistono i metodi selectIndex e selectItem
che dici!!!!!!

C'è qualcuno che può aiutarmi?

[raffaeu]

ListCount, ListIndex, Index

Mi ero confuso con NET

[Brainjar]

Questo è un trucchetto per palati fini.
Imposta la proprietà Style della Combo su 2- DropDownList.
Poi semplicemente imposta il testo della combo con il testo da
cercare.

Private Sub Command1_Click()
On Error Resume Next
    Combo1.Text = Text1.Text
    If Combo1.ListIndex = -1 Then
        ' Non c'è
    Else
        ' C'è
    End If
End Sub

Spero tu sappia apprezzare.

Ciao,

[Robots]

Ok, Grazie
Brainjar......Ottimo

[Jupy64]

Ciao, diciamo che per palati veramente fini.. meglio usare l'api SendMessage

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Private Const CB_FINDSTRING = &H14C

Private Sub Cerca(txtFind As String)
   Combo1.ListIndex = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal CStr(txtFind))
End Sub

Presupposto che la combo si chiama Combo1, basta richiamare la sub Cerca passandogli la stringa da cercare nella combo..

[Robots]

il tutto funziona sia cone le Api che con l'altra procedura,però avrei ancora a questo punto un altro problema; e vi spiego subito,capita che nella mia combo ci siano due nomi di Aziende uguali che però hanno sedi differenti, ora se cerco un azienda con nome duplicato vado sempre a finire sulla prima che trova. Ho creato una text dove inserisco il nome azienda la combo va sempre sulla prima che trova e non su quella che ho scelto io.
L'unico campo che posso distinguerle è il campo ID, quindi dovrei anche ricercare per ID?
Come posso fare?
Grazie

[Robots]

Salve!!!!
Nessuno per favore sa rispondermi al mio problema?
Allora con le API per la ricerca di una azienda nella combo funziona correttamente,però ora il problema sorge quando all'interno della combo ho due aziende uguali ma due sedi differenti e l'unico indice che può distinguerle è il campo ID che è un campo univoco.
Or mi domando come faccio nelle api passargli anche il campo ID? E' possibile o devo trovare un altra alternativa?

GRAZIE

[raffaeu]

usa il Tag di ogni item e ci caricchi l' ID