想让在文本框内输入完回车或按TAB键能移动到指定的控件中去,
我的窗体里有三种控件,文本控件组\复选框组\MSFlexGrid 控件1 文本控件组 从Text1(0).到Text1(2).我在窗体中将Text1(0).到Text1(2)的index属性设置为0 1 2, 但一引导窗体后还是不能使用TAB键移动到指定文本框内,而其他的复选框却能够正常按照TAB来移动,这是为何?为何不能TAB先在文本框内移动起呢???
2 有一个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, KeyCode As Integer, Shift As Integer)
If Index < 2 Then '最大值
If KeyCode = 13 Then Text1(Index + 1).SetFocus
End If
End Sub