注册 登录
编程论坛 VB6论坛

想让在文本框内输入完回车或按TAB键能移动到指定的控件中去,

yiyaozjk 发布于 2011-12-27 17:36, 1491 次点击
我的窗体里有三种控件,文本控件组\复选框组\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
3 回复
#2
wube2011-12-28 17:34
TabIndex
#3
yiyaozjk2011-12-29 14:03
我已经在窗体中将Text1(0).到Text1(2)的index属性设置为0 1 2???还是没有实现呀????
#4
yaowm2013-10-12 15:39
index属性和Tabindex属性是两回事哦
1