如何实现自动选择的列表框.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 23 行

第 一 个 问 题 使 用 下 面 的 代 码 ： 
    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" 
<END>