VB利用控件值转移焦点问题

请问有一个[控件1]，他的值[控件1].value="控件2"。如何利用一段程序可以双击[控件1],就把焦点挪到[控件2]上

Private Sub Form_Load()
Text1.Text = "command1"
End Sub

Private Sub Text1_DblClick()
  Dim x As Object
  For Each x In Me.Controls
   If LCase(x.Name) = LCase(Text1.Text) Then
    x.SetFocus
    Exit For
   End If
  Next

End Sub

我想做一个if command1有焦点 then 语句块；else 语句块 怎么办？这个有焦点怎么表示？谢谢~~

----------------------

问题是你判断必需要触发一个事件，当触发事件的同时command1已经失去焦点，那么每一次判断的结果都是else中的语句。这个代码也就失去了意思。

不过推荐你用command1的两个事件过程，一个是gotfocus(得到焦点过程)，一个是lostfocus（失去焦点过程）。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息