首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

按Enter键,使光标自动移到下一控件,怎么实现?(有文本控件的)

2012-03-07 
按Enter键,使光标自动移到下一控件,如何实现?(有文本控件的)我的窗体里有三种控件,1 文本控件组 从Text1(0

按Enter键,使光标自动移到下一控件,如何实现?(有文本控件的)
我的窗体里有三种控件,

1 文本控件组 从Text1(0).到Text1(2).用下面这段代码只要在文本框内输入一个字符就会跳到下一文本框内,要用哪个事件??'
2 有一些复选框数组,好象按TAB键能自动跳到下一按钮上来,但就不能跳到文本框内(文本框在复选框前面)
3 有一个MSFlexGrid 控件,我单击这个MSFlexGrid控件只能选中第1列其它列都不能选中一样,点中了光标也会跳到第一列这个是哪里取消这种设置呀???
 


VB code
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)   If KeyCode = 13 Then      SendKeys "{tab}+{home}"   End IfEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then        SendKeys Chr$(9), TrueEnd IfEnd SubPrivate Sub Form_Load()   Me.Top = 50   Me.Left = 50   Option1(2).Value = True   Me.KeyPreview = TrueEnd SubPrivate Sub Text1_KeyDown(Index As Integer)  '用这段代码只要在文本框内输入一个字符就会跳到下一文本框内,要用哪个事件??'  If KeyCode = 13 Then     Text1(0).SetFocusElse    If Index <> 2 Then       Text1(Index + 1).SetFocus    End IfEnd If End Sub


[解决办法]
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的代码来试验一下???……

热点排行