标题: 求助:窗体的TAB键或ENTER移动次序的问题 [打印本页] 作者: chuanxi58 时间: 2012-3-19 19:08 标题: 求助:窗体的TAB键或ENTER移动次序的问题 大家好,我现在做一个新增窗体.
请问怎样让TAB键或ENTER键从窗体的主体控件部分移到窗体的页眉的保存按钮上,意思就是当TAB或ENTER到窗体主体的最后一个控件时下一个就到窗体页眉的保存按钮上.谢谢 作者: Henry D. Sy 时间: 2012-3-20 09:05
应该可以调整tab次序的，在窗体设计视图中作者: kangking 时间: 2012-3-20 10:26
Option Compare Database
Option Explicit
'设置一个公共变量来标明是不是录入的最后一个文本框。
Dim isLastText As Boolean
Private Sub Command0_Click()
'这个命令按钮设计在页眉。
MsgBox "你已经单击了命令按钮。"
'使录入的第一个文本框得到焦点。
Me.Text1.SetFocus
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'如果不是按下的回车键则退出。
If KeyAscii <> 13 Then Exit Sub
'如果按下的是回车键并且 isLastText 为真，则让命令按钮得到焦点。
If isLastText Then
Me.Command0.SetFocus
isLastText = False
End If
End Sub
Private Sub Form_Load()
'加载窗体设置窗体的键预览为真。
Me.KeyPreview = True
End Sub
Private Sub Text15_LostFocus()
'这是录入时最后一个文本框的失去焦点事件。
'控件失去焦点出使变量 isLastText 为真。
isLastText = True
End Sub 作者: chuanxi58 时间: 2012-3-20 12:35
谢谢kangking