设置窗体活动节

来源:原创 点击数:5210 　 | 收藏 | 复制

时　间:2014-04-14 11:14:08
作　者:坚果 ID：35910 城市：嘉兴
摘　要:设置指定的窗体节成为当前活动节
正　文:

为了优化用户体验，在执行窗体页眉节中按钮命令后，将光标自动切到主体中。

'-----------------------------------------------------------------

'Purpose : 设置指定的窗体节成为当前活动节
'Usage : 仅适于窗体节.
'Compatib : 适用于各版本的ACCESS；已测试：Access2003SP3+Win7ChsX64SP1
'Author : Lynn 2014-04-14 Infor: 创建
'-----------------------------------------------------------------
Sub SetFocusSection(Form As Access.Form, Section As AcSection)
Dim ctl As Access.Control, tmp As Long
'排除活动节为已指定的节
If Form.ActiveControl.Section = Section Then Exit Sub
'历遍节中控件
For Each ctl In Form.Section(Section).Controls
tmp = ctl.ControlType
If tmp <> acLabel And tmp <> acLine And tmp <> acPage And tmp <> acPageBreak And tmp <> acRectangle And tmp <> acImage Then
If ctl.TabIndex = 0 Then
ctl.SetFocus
Exit For
End If
End If
Next

End Sub

我们也可以使用Screen.PreviousControl解决(如果窗体为空记录时，则不管用了，但这种情况很少。SetFocusSection就为解决这种很少情况）

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】