Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/ruby-on-rails/58.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 始终激活windows应用程序_Vb.net - Fatal编程技术网

Vb.net 始终激活windows应用程序

Vb.net 始终激活windows应用程序,vb.net,Vb.net,我已经创建了一个windows应用程序,在form1中有一个文本框。如果我运行应用程序,它工作正常 我已在文本框中设置丢失焦点事件- 并在形式上取消激活事件- Private Sub frmPlay_Deactivate(sender As Object, e As EventArgs) Handles MyBase.Deactivate txtCardID_LostFocus(sender, e) Me.Activate() End Sub 但我的问题是,当我单击其他应用程

我已经创建了一个windows应用程序,在form1中有一个文本框。如果我运行应用程序,它工作正常

我已在文本框中设置丢失焦点事件-

并在形式上取消激活事件-

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

    txtCardID_LostFocus(sender, e)
    Me.Activate()
End Sub
但我的问题是,当我单击其他应用程序(如paint)或其他成为激活的应用程序时,我的应用程序会失去焦点

当我点击我的表单时,它会激活并工作

我需要始终激活我的表单,并且在文本框中输入所单击的值,阅读文章

或者,如果您的表单中没有超过个控件,请尝试以下操作:

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

我使用了您的代码集,但它限制所有应用程序执行其操作。例如:如果我运行我的程序,它会运行,我去我需要的,但我不允许任何东西运行,所以我不能让我的程序停止,我需要的是我的表单应该始终处于活动状态,而且它允许其他应用程序工作如果你允许另一个应用程序有焦点,例如,有一个按钮,,然后你的应用程序将被禁用,因此txtCardID文本框将失去焦点:嗨,Aprendiendo.NET,我使用热键使我的表单在未聚焦时激活,如果按下g键,我的应用程序将被激活,我将使用它,如果我使用任何应用程序,如paint或其他任何东西,我按下g键,我的应用程序将获得焦点。所以,我的应用程序在获得关注的同时,其他应用程序也在工作我的参考链接是任何方式感谢你的宝贵想法,它帮助了我很多。再次感谢你
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