会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > 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%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: