激活Windows应用程序总是

Question

我已经创建了一个Windows应用程序，我有一个form1文本框。如果我运行它工作正常的应用程序，

我textbox_lostfocus事件 -

Private Sub txtCardID_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtCardID.LostFocus 

    txtCardID.Focus() 

End Sub 

设置并在形式上取消事件 -

Private Sub frmPlay_Deactivate(sender As Object, e As EventArgs) Handles MyBase.Deactivate 

    txtCardID_LostFocus(sender, e) 
    Me.Activate() 
End Sub 

但我的问题是，当我点击其他应用程序说 - 油漆，或其他变成激活和我的应用程序丢失焦点

当我点击我的表单激活并工作

我总是需要自己的状态也被激活而什么都键点击的价值应该在文本框中输入

Answer 1

阅读后“How can I prevent other apps from stealing the focus?”

或者，如果不是有比你的表单控件尝试这一点， txtCardID：

Public Class Form1 

    Private fin As Boolean 

    Private Sub Form1_Deactivate(sender As Object, e As System.EventArgs) Handles Me.Deactivate 

     Do 
      Me.Activate() 
      My.Application.DoEvents() 
     Loop Until fin 

    End Sub 

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 
     fin = True 
    End Sub 

End Class