1,451
社区成员
发帖
与我相关
我的任务
分享关于TEXT与LIST的问题，急！！
用户在TEXT中输入信息时会出现LIST以供用户筛选，现在问题是怎么让TEXT在LIST已经出现的情况下，用户按下方向键“下”，就默认是LIST内容的第一条？
...全文
请发表友善的回复…
发表回复
flc 2004-04-23
- 打赏
- 举报
关注
学习
学习
northwolves 2004-04-23
- 打赏
- 举报
干嘛不用COMBOX？
Private Sub Form_Load()
List1.Visible = False
Text1.Text = ""
For I = 1 To 10
List1.AddItem Chr(I + 64)
Next
End Sub
Private Sub List1_Click()
Text1.Text = List1.Text
End Sub
Private Sub Text1_GotFocus()
List1.Visible = True
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
List1.SetFocus
List1.ListIndex = 0
Text1.Text = List1.List(0)
List1.Visible = False
End If
End Sub
jingchu 2004-04-23
- 打赏
- 举报
谢谢，我自己做好了
