控件焦点获得的另外方法

时　间:2009-03-11 08:39:43
作　者:beenet    ID：1445  城市：上海
摘　要:控件焦点获得的另外方法
正　文:

控件焦点获得的另外方法
一般我们使用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