想问问,VB6.0可不可以写多线程的程序.我在软件开发过程中遇到的问题:联想输入(某编号太长,写一个字母,就能列出这个字母开头的编号等等).
有没有好的联想输入的方法呢?
请大家不吝赐教!

这好像与多线程没关系！
在输入框的OnChange事件里处理这些就好了

我现在对vb的多线成恨之入骨!!!!

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
Const LB_SETHORIZONTALEXTENT = &H194
Private Sub Form_Load()
List1.AddItem "a"
List1.AddItem "abc"
List1.AddItem "absd"
List1.AddItem "abgtrh"
List1.AddItem "afg"
List1.AddItem "afgh"
'下一句为列表框添加水平滚动条
SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, 250, 0
End Sub
Private Sub Text1_Change()
'注意！当lParam传入的是字符串时，必须用ByVal传递
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub

谢谢斑竹

还想问一下斑竹和大家
如果已经用Private Sub Text1_Validate(Cancel As Boolean) .... End Sub
来判断货号是不是存在.(Text1_Validate) 好象在Text1 失去焦点时就执行
可是我到列表框中选择的时候,Text1是失去焦点的啊,
那我该怎么到列表框中选择啊?
期待斑竹和大家早日给我答复.谢谢!

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
Const LB_SETHORIZONTALEXTENT = &H194
Private Sub Form_Load()
List1.AddItem "a"
List1.AddItem "abc"
List1.AddItem "absd"
List1.AddItem "abgtrh"
List1.AddItem "afg"
List1.AddItem "afgh"
'下一句为列表框添加水平滚动条
SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, 250, 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text1_LostFocus()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub

当我回车后，Validate没有触发，而LostFocus触发了。但是如果我是手动移到另一个文本框时就会触发Validate！

谢谢斑竹