On Mon, 06 Aug 2001 23:51:43 +0200, Helge Bjørkhaug
<helgesnutten@techie.online.no> wrote:
>On Mon, 6 Aug 2001 22:58:48 +0200, "Casper Clausen"
><casperc@get2net.dk> wrote:
>
>>Tak for svaret, men ideen er at man skal kunne skrive en del af et listitem
>>og få alle dem der indeholder det man har skrevet, for at lave det skal man
>>så have en løkke inde i løkken med din kode. Når man så kommer og omkring de
>>5000 items kan den metode godt tage lidt tid. Derfor er er det vigtigt at
>>det er en hurtig metode, og det har jeg hørt API metoden skulle være.
>>
>[snip]
>Har brukt den en gang i ett prosjekt.
>Gi meg frist til i morgen, så skal jeg finne den....
Her kommer'n.......
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
Private Sub Command1_Click()
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal
"Item 450")
End Sub
Private Sub Form_Load()
For X = 1 To 500
List1.AddItem "Item " & CStr(X)
Next X
End Sub
Kan også brukes på Combobox,
bytt ut Const LB_FINDSTRING = &H18F med Const CB_FINDSTRING = &H14C
--
Snutten
Fjern helge fra mail adressen før du svarer.
No of SETI units returned: 5456
Processing time: 10 years, 307 days, 6 hours.
(Total hours: 94974)
www.setiathome.ssl.berkeley.edu