作者：绿色风
分类：
时间：2022-08-17
浏览：169
楼主
0Mouse |
Q：如何实现在Textbox内按下向下方向键后焦点仍停留在TextBox内而不转移至ListBox呢？
A：可以采用以下4种方法。- '****焦点保持不变方法1******************************************
- Private Sub UserForm_Initialize()
- ListBox1.ColumnCount = 2
- ListBox1.RowSource = "Sheet1!A1:B5"
- End Sub
- Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- If KeyCode = vbKeyDown Then '如果按下向下方向键
- KeyCode = 0 '使按下向下方向键的作用失效
- End If
- End Sub
- '****焦点保持不变方法2******************************************
- Private Sub UserForm_Initialize()
- ListBox1.ColumnCount = 2
- ListBox1.RowSource = "Sheet1!A1:B5"
- End Sub
- Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- If KeyCode = vbKeyDown Then '如果按下向下方向键
- ListBox1.Enabled = False '令ListBox1控件不可用
- Else '否则
- ListBox1.Enabled = True '令ListBox1控件可用
- End If
- End Sub
- '****焦点保持不变方法3（xmyjk）*********************************
- Dim flag As Boolean
- Private Sub UserForm_Initialize()
- flag = False
- ListBox1.ColumnCount = 2
- ListBox1.RowSource = "Sheet1!A1:B5"
- End Sub
- Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- If KeyCode = vbKeyDown Then
- flag = True
- Else
- flag = False
- End If
- End Sub
- Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- Cancel = flag '若flag为True，则焦点无法离开TextBox1
- End Sub
- '****焦点保持不变方法4（zbhpass）***************************
- Dim aKeyCode As MSForms.ReturnInteger
- Private Sub UserForm_Initialize()
- ListBox1.ColumnCount = 2
- ListBox1.RowSource = "Sheet1!A1:B5"
- End Sub
- Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- If KeyCode = vbKeyDown Then '按下向下方向键时
- Set aKeyCode = KeyCode '令aKeyCode等于vbKeyDown
- End If
- End Sub
- Private Sub ListBox1_Enter() 'ListBox1激活事件
- If aKeyCode = vbKeyDown Then '如果aKeyCode等于vbKeyDown
- TextBox1.SetFocus '激活TextBox1
- End If
- End Sub
附件：
 实现在Textbox内按下向下方向键后焦点仍停留在TextBox内而不转移至ListBox.rar
|
2楼
xyf2210 |
学习了 |
3楼
老糊涂 |
学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一