如何实现自动选择的列表框
编号：QA001781
建立日期: 1999年9月27日 最后修改日期：1999年9月27日
所属类别：
Chiman:
Chiman是VB60初学者，在学习过程中遇到如下问题，敬请解答。
一、我设计了一个适合本单位技术计算的软件，产品牌号列于一个列表框中，可双击选择，亦可在一个文本框中输入牌号进行计算。我想设计成在文本框中输入牌号的第一个字母时，列表框自动选择第一个首字母与文本框中字母相同的牌号，输入第二个字母时，选择第一个首、次字母相同者，依此类推（类似帮助索引中选关键词），请问如何实现？
二、我设计的技术计算软件由于较简单，我将帮助文件置于记事本中，如何实现点按“帮助->帮助信息...”后出现此记事本窗口？
回答:
第一个问题使用下面的代码：
Const LB_FINDSTRING = &H18F
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
Private Sub Text1_Change()
Dim lPos As Long
lPos = SendMessage(List1.hwnd, LB_FINDSTRING, 0, ByVal Text1.Text)
If lPos >= 0 Then
List1.Text = List1.List(lPos)
List1.ListIndex = lPos
End If
End Sub
第二个问题使用Shell语句：
Shell "C:\prog\readme.txt"
此问题由李海回答。
| |
|
|
| |
|
|
