按Enter键,使光标自动移到下一控件,如何实现?(有文本控件的)
时间:2011-12-26
来源:互联网
我的窗体里有三种控件,
1 文本控件组 从Text1(0).到Text1(2).用下面这段代码只要在文本框内输入一个字符就会跳到下一文本框内,要用哪个事件??'
2 有一些复选框数组,好象按TAB键能自动跳到下一按钮上来,但就不能跳到文本框内(文本框在复选框前面)
3 有一个MSFlexGrid 控件,我单击这个MSFlexGrid控件只能选中第1列其它列都不能选中一样,点中了光标也会跳到第一列这个是哪里取消这种设置呀???
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
SendKeys "{tab}+{home}"
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys Chr$(9), True
End If
End Sub
Private Sub Form_Load()
Me.Top = 50
Me.Left = 50
Option1(2).Value = True
Me.KeyPreview = True
End Sub
Private Sub Text1_KeyDown(Index As Integer) '用这段代码只要在文本框内输入一个字符就会跳到下一文本框内,要用哪个事件??'
If KeyCode = 13 Then
Text1(0).SetFocus
Else
If Index <> 2 Then
Text1(Index + 1).SetFocus
End If
End If
End Sub
1 文本控件组 从Text1(0).到Text1(2).用下面这段代码只要在文本框内输入一个字符就会跳到下一文本框内,要用哪个事件??'
2 有一些复选框数组,好象按TAB键能自动跳到下一按钮上来,但就不能跳到文本框内(文本框在复选框前面)
3 有一个MSFlexGrid 控件,我单击这个MSFlexGrid控件只能选中第1列其它列都不能选中一样,点中了光标也会跳到第一列这个是哪里取消这种设置呀???
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
SendKeys "{tab}+{home}"
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys Chr$(9), True
End If
End Sub
Private Sub Form_Load()
Me.Top = 50
Me.Left = 50
Option1(2).Value = True
Me.KeyPreview = True
End Sub
Private Sub Text1_KeyDown(Index As Integer) '用这段代码只要在文本框内输入一个字符就会跳到下一文本框内,要用哪个事件??'
If KeyCode = 13 Then
Text1(0).SetFocus
Else
If Index <> 2 Then
Text1(Index + 1).SetFocus
End If
End If
End Sub
作者: yiyaozjk 发布时间: 2011-12-26
1.要跳到哪个,就给哪个setfocus,
2.tab的顺序可以重新排列tabindex来确定按tab后跳到的下一个控件
2.tab的顺序可以重新排列tabindex来确定按tab后跳到的下一个控件
作者: libralibra 发布时间: 2011-12-27
VB code
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) End Sub
作者: chinaboyzyq 发布时间: 2011-12-27
引用 2 楼 chinaboyzyq 的回复:
VB code
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
End Sub
VB code
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
End Sub
'还是只要在前两个任意文本框内输入一个字符就会跳到下一文本框内,为何??是不是事件错误了....能否给一个OK的代码来试验一下???
还有下面2个问题仍然也没有解决//
2 有一些复选框数组,好象按TAB键能自动跳到下一按钮上来,但就不能跳到文本框内(文本框在复选框前面)
3 有一个MSFlexGrid 控件,我单击这个MSFlexGrid控件只能选中第1列其它列都不能选中一样,点中了光标也会跳到第一列这个是哪里取消这种设置呀???
作者: yiyaozjk 发布时间: 2011-12-27
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28