+ -
当前位置:首页 → 问答吧 → 按Enter键,使光标自动移到下一控件,如何实现?(有文本控件的)

按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

作者: yiyaozjk   发布时间: 2011-12-26

1.要跳到哪个,就给哪个setfocus,
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


 '还是只要在前两个任意文本框内输入一个字符就会跳到下一文本框内,为何??是不是事件错误了....能否给一个OK的代码来试验一下???


  还有下面2个问题仍然也没有解决//
  2 有一些复选框数组,好象按TAB键能自动跳到下一按钮上来,但就不能跳到文本框内(文本框在复选框前面)
  3 有一个MSFlexGrid 控件,我单击这个MSFlexGrid控件只能选中第1列其它列都不能选中一样,点中了光标也会跳到第一列这个是哪里取消这种设置呀???

作者: yiyaozjk   发布时间: 2011-12-27

热门下载

更多