RE: Not sure how to word this question but...

Mark — Sat, 27 Nov 2004 12:48:26 GMT

The API guide has a good example for you.

Option Explicit

'This project needs a ListBox, named List1 and a TextBox, named Text1

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

Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Add some items to the listbox
With List1
.AddItem "Computer"
.AddItem "Screen"
.AddItem "Modem"
.AddItem "Printer"
.AddItem "Scanner"
.AddItem "Sound Blaster"
.AddItem "Keyboard"
.AddItem "CD-Rom"
.AddItem "Mouse"
End With
End Sub

Private Sub Text1_Change()
'Retrieve the item's listindex
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

Not sure how to word this question but...

cforbes — Sat, 27 Nov 2004 11:40:42 GMT

How do you do that thing with a list box and a textbox. The one where you type the first letter or a couple of letters in to the above textbox and an item with those letters is selected?

i.e.
ListBox items: a, b, c, d, aa, bb, cc, dd and George
When the letter G is typed in the textbox the "George" item would be selected. etc.

A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / General Visual Basic / Not sure how to word this question but... / Latest Posts

RE: Not sure how to word this question but...

Not sure how to word this question but...