单击另一个应用程序时保持表单打开
Keep form open when clicking on another application
我有一个应用程序,我正试图将其用作键盘来键入特殊字符。它目前有这个功能(不是我的代码!):
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim baseParams As CreateParams = MyBase.CreateParams
Const WS_EX_NOACTIVATE As Integer = &H8000000
Const WS_EX_TOOLWINDOW As Integer = &H80
baseParams.ExStyle = baseParams.ExStyle Or CInt(WS_EX_NOACTIVATE Or WS_EX_TOOLWINDOW)
Return baseParams
End Get
End Property
这使得表单永远不会获得焦点,因为我不想按下表单上的按钮然后窃取焦点。但是,这也意味着当我在窗体外部单击时,window 消失,因为它位于焦点应用程序的后面。使用此程序的唯一方法是调整我要输入的应用程序的大小,然后将 window 放在它旁边。也就是说,我只能这样用了:
所以我想知道的是,如何才能将此应用程序定位在我要使用它的应用程序上,但是当我按下应用程序上的按钮时,它仍然没有聚焦window?
您可以在您的代码中添加 Me.Topmost = True
或者您可以将表单 属性 设置为 TopMost
= True
我有一个应用程序,我正试图将其用作键盘来键入特殊字符。它目前有这个功能(不是我的代码!):
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim baseParams As CreateParams = MyBase.CreateParams
Const WS_EX_NOACTIVATE As Integer = &H8000000
Const WS_EX_TOOLWINDOW As Integer = &H80
baseParams.ExStyle = baseParams.ExStyle Or CInt(WS_EX_NOACTIVATE Or WS_EX_TOOLWINDOW)
Return baseParams
End Get
End Property
这使得表单永远不会获得焦点,因为我不想按下表单上的按钮然后窃取焦点。但是,这也意味着当我在窗体外部单击时,window 消失,因为它位于焦点应用程序的后面。使用此程序的唯一方法是调整我要输入的应用程序的大小,然后将 window 放在它旁边。也就是说,我只能这样用了:
所以我想知道的是,如何才能将此应用程序定位在我要使用它的应用程序上,但是当我按下应用程序上的按钮时,它仍然没有聚焦window?
您可以在您的代码中添加 Me.Topmost = True
或者您可以将表单 属性 设置为 TopMost
= True