Söka i en combobox

3 svar · 229 visningar · startad av saw 22 juli 2003

sawMedlem sedan mars 20011 880 inlägg

Frågan22 juli 2003 15:40#1

Jag försöker fortfarande att vara smart. :r
Men...
I en combobox så laddas det in en fil som innehåller länder och förkortningar.

AE=United Arab Republics
AR=Argentina
AT=Austria
AU=Australia
AW=Aruba
BE=Belgium
BG=Bulgaria

I en combobox brevid så läggs det in förkortningar på sparade språkfiler:

ae
ar
at
au

När språkfilen sparas, så dyker alltså t ex 'bg' upp.
Nu ville jag att den första comboboxen då skulle leta upp landet, med uppgiften ifrån den förra comboboxen.
Så här försöker jag:

'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
 Const LB_FINDSTRING = &H18F

Combo2.ListIndex = SendMessage(Combo2.hwnd, LB_FINDSTRING, -1, _
       ByVal CStr(UCase(Combo3.Text)))

Detta fungerar jättedåligt, den går bara till den första posten, och stannar där.
Förslag?
:e

nikoMedlem sedan juni 20022 599 inlägg

22 juli 2003 21:10#2

Förslag?

Japp. "LB" i "LB_FINDSTRING" står för "ListBox" om du kör på "CB_FINDSTRING" (&H14C) så kommer det att funka mycket bättre.

sawMedlem sedan mars 20011 880 inlägg

22 juli 2003 22:58#3

Tack min vän
Helt kanon

sawMedlem sedan mars 20011 880 inlägg

24 juli 2003 23:47#4

Jag försöker att använda mig av denna funktionen mellan combo1 och list1 också. Det fungerar bra, listboxen ställer sig på värdet, men problemet är att texten i comboboxen syns inte längre. Om jag öppnar upp comboboxen och väljer filen igen, så händer ingenting. Gör jag det ytterligare en gång till, då kommer texen upp i comboboxens textfält. Kan man komma runt detta?