[VB6]: Ricercare elementi all'interno di un controllo ComboBox

[icezvb]

salve a tutti! intanto vi illustro la procedura del mio programma per capire meglio il problema.

Form_Load()
if (trovi le porte com) then
popola la listbox con "COM"+numero porta
end if
End Sub

a questo punto vorrei ke, sempre nel load del form, succedesse questo:

if (trovi nel combobox l'elemento COM9) then
selezioni quell'elemento e lo rendi di default
end if

notare che non posso sempre utilizzare l'indice fisso del combobox poichè non sempre ci sono le stesse porte com e, a volte, l'indice della porta com può essere ad esempio 3 oppure 7. dipende dai casi.

come posso fare?
scusate ho cercato di essere il + chiaro possibile.

grazie anticipate!
ciaoo!

[Boolean]

volendo sarebbe possibile risolvere il tuo problema mediante un ciclo sui vai item del Combo, utilizzando List(n)...
ma c'è una soluzione abbastanza semplice che prevede l'utilizzo di una API, la SendMessage:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRINGEXACT = &H158

essa ti permette di sapere immediatamente quale indice corrisponde ad una determinata stringa, se presente.

puoi utilizzarla così, in una funzione:

Sub MakeDefault(Porta As String)
Dim L As Long
L = SendMessage(Combo1.hwnd, CB_FINDSTRINGEXACT, -1, ByVal Porta)
Combo1.ListIndex = L
End Sub

e richiamarla semplicemente con:

MakeDefault "COM9"

Boolean