在VB6中该如何将TAB键的功能应用在ENTER键上

zhuangzai 2003-03-12 05:47:28

请各位指教！
谢谢！

...全文

152 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

xks 2003-03-16

打赏
举报

上面的是函数定义！

在模块中输入上面的代码！

xks 2003-03-16

打赏
举报

Public Sub EnterToTab(Keyasc As Integer)
If Keyasc = 13 Then
SendKeys "{TAB}"
End If
End Sub

这是我的程序中的一段代码！

好用的！

不过得在程序中做调用！

我想你会做吧！

scsun 2003-03-16

打赏
举报

把Form的KeyPress设为true.

然后在所有需要把ＴＡＢ换成Enter的控件事件

Private Sub Text_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii=0
End If

End Sub

用户　昵称 2003-03-14

打赏
举报

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim M As msg

If KeyCode = vbKeyEscape Then
Unload Me
ElseIf KeyCode = vbKeyReturn Then
PeekMessage M, Me.hWnd, 0, 0, PM_REMOVE
End If
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error GoTo ErrHAndler

If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then
Text1(Index + 1).setfocus
ElseIf KeyCode = vbKeyUp Then
Text1(Index - 1).setfocus
End If
Exit Sub
ErrHAndler:
'┏━━━━━━━━━┓
'┃容错处理，把焦点设置在确定按钮上或者text1(0)上
'┗━━━━━━━━━┛
If OKButton.Enabled Then
OKButton.SetFocus '最上一个文本框中向上
Else
Text1(0).setfocus '最下一个文本框中向下或者输入数据非法
End If
Err = 0
End Sub

Private Sub Text1_ChAnge(Index As Integer) '检查是否都是数字
Dim I As Integer

For I = 0 To 6
If Not IsNumeric(Text1(I).Text) Then
OKButton.Enabled = False
Exit Sub
End If
Next I
OKButton.Enabled = True
End Sub

...

用户　昵称 2003-03-14

打赏
举报

我还是坚持我的意见，我很早以前解决这个问题的时候发现sendkeys多次的时候会引起系统瘫痪，很多极其都这样，我的方法

1）form.preview = true
2）把相同的控件做成数组
3）在form的onkeydown中调用peekmessage删除回车事件。
4）在控件的onkeydown中下一控件setfocus
5）还可以解决上下左右等等。

lightice 2003-03-14

打赏
举报

我顶

hjwsir 2003-03-14

打赏
举报

yefm 2003-03-12

打赏
举报

northwolves 2003-03-12

打赏
举报

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then SendKeys "{TAB}"
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

commandbox间移动还须设置其command_press事件