[VB6] Completamento automatico in combobox

[ale500]

salve a tutti ragazzi, quello che vi chiedo è un vero favore il più presto possibile visto che, come tutti i programmatori, il tempo mi è nemico...


mi servirebbe un modo, con VB 6, per "fare" il completamento automatico di una combobox.

vi spiego meglio....
ho una combobox con impostata la proprietà Style a 0 - DropDown Combo (e NON la devo modificare) mi servirebbe una funzione, mi è giunta voce che VB.NET lo fa ed è una proprietà di nome AutoComplete) che praticamente fa il completamento automatico di quello che io scrivo...esempio semplice....

nella mia combo ho caricato questi valori (in ordine)

ALESSIO
ANNA
ANNAMARIA

se inizio a scrivere la A nella Combo mi compare la mia lettera a (NON selezionata) + la scritta LESSIO completamente evidenziata in modo che se poi continuo a scrivere tale scritta (Completamento automatico) si modifica, in fatti se io scrivo AN mi apparirà ANNA mente se io scrivo ANNAM mi apparirà ANNAMARIA sempre con ANNAM non selezionato montre la parte che mi propone la funzione (Completamento automatico) ARIA evidenziata...

spero di essermi spiegato bene, confido nel vostro aiuto, grazioe a tutti.

[Mabi]

Ciao.
Ho provato a fare qualcosa del genere usando una TextBox e una Combo.
Ti basta inserire questi due oggetti su una Form e come codice questo:

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 Sub Form_Load()
With Combo1
  .AddItem "ALESSIO"
  .AddItem "ANNA"
  .AddItem "ANNAMARIA"
End With
End Sub

Private Sub Text1_Change()
Const CB_FINDSTRING = &H14C
'Const CB_FINDSTRINGEXACT = &H158

Dim Index As Long

Index = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, Text1.Text)
Combo1.Text = Combo1.List(Index)
End Sub

[cassano]

Index = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, Text1.Text)

l'index dovrevve restituire la posizione dove si trova la stringa trovata vero ???

[Mabi]

Sarebbe la ListIndex dell'elemento della Combo.
Scrivendo A vale 0, cioè il primo elemento; continuando con AN vale 1, cioè il secondo elemento; infine con ANNAM vale 2 cioè il terzo elemento.

[ale500]

adesso ci provo e poi ti faccio sapere, grazie

[Mabi]

OK