Access控件焦点获得的另外方法_Access ActiveX控件-Access图表-Access图形

当前位置：主页 > 技巧 > Access技巧 > ActiveX控件图表 > 正文

Access控件焦点获得的另外方法

时间：2009-03-11 15:12 来源：网络作者：beenet 阅读：次

控件焦点获得的另外方法
一般我们使用setfocus来获得焦点，但在实际的工作中，经常会发现setfocus也不是每种情况下，都听话的。
故设计如下另类点的方法来解决。

Private Sub ActiveCl(ControlName As String)
'********************************************************************
' 名称: ActiveCl
' 作用: 模拟键盘操作,使任意控件获得焦点
'
' 输入值: ControlName As String
' ControlName 控件名称
' 作者: beenet
' 日期: 2009-2-10
' 注释: 例:Call ActiveCl("Text1")
' 注意: ControlName所属控件属性项"制表位"不能为否
'********************************************************************
On Error GoTo Err_ActiveCl

SendKeys "{TAB}", True
Do While Me.ActiveControl.Name <> ControlName
SendKeys "{TAB}", True
Loop

Exit_ActiveCl:
Exit Sub

Err_ActiveCl:
Select Case Err

Case 0

Case Else
MsgBox Err.Description
Resume Exit_ActiveCl
End Select

End Sub

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：Access下如何使用通用对话框
下一篇：一个快速注册 DLL 及 OCX 的方法