7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
List1.Visible = False
List2.Visible = False
Text1.Text = ""
List2.AddItem "adljfdfjl"
List2.AddItem "adljfdfj"
List2.AddItem "adljf"
List2.AddItem "jfdfjl"
List2.AddItem "jfdf"
List2.AddItem "jf"
List2.AddItem "fdfjl"
List2.AddItem "fd"
List2.AddItem "fdfl"
List2.AddItem "中过大大的"
List2.AddItem "中国人"
List2.AddItem "中国"
End Sub
Private Sub list1_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Call List1_KeyPress(vbKeyLButton)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If List1.ListCount <> 0 Then
If KeyCode = vbKeyUp Or KeyCode = vbKeyDown Then List1.SetFocus: SendKeys "{UP}"
End If
End Sub
Private Sub List1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyLButton, vbKeyReturn, vbKeySpace
Text1.Text = List1.Text
List1.Clear
List1.Visible = False
End Select
End Sub
Private Sub text1_Change()
Dim i As Byte
If Text1.Text <> "" Then
List1.Clear
For i = 0 To List2.ListCount
If InStr(List2.List(i), Text1.Text) = 1 Then List1.AddItem List2.List(i)
Next
List1.Visible = True
List1.Height = 300 + List1.ListCount * List1.FontSize * 12
If List1.ListCount = 0 Then List1.Visible = False
Else
List1.Visible = False
End If
End Sub