vb.net做一个无焦点的窗口 vb窗体失去焦点

一般情况下，代码生成的窗体都是有标题栏的，当鼠标点击这个窗体的任何地方，这个窗体就会拥有焦点；当窗体失去焦点时，标题栏是灰色的。

我们有时希望这个窗体是一个无焦点的窗口，就算你用鼠标点击它，它也不会得到焦点，比如，我们常见的输入法窗口就是一个无焦点的窗口。

如果我们通过代码做一个无焦点的窗体，那么，再加上相应的代码，就可以通过键盘或鼠标点击向别的程序窗口发送字符，就像一个外挂的输入法一样。

下面，我就通过vb.net来做一个无焦点的窗体。

首先，在窗体里建立2个控件，一个是TextBox控件，一个是Button控件。

接着，写入相关代码，代码很简单，先导入相关的API，然后在窗体的Load事件写入相应代码就可以了。全部代码如下：

Public Class Form1
    '无焦点的窗体:
    Private Const GWL_STYLE = (-16)
    Private Const HWND_TOPMOST = -1
    Private Const HWND_NOTOPMOST = -2
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOMOVE = &H2
    Private Const SWP_NOACTIVATE = &H10
    Private Const SWP_SHOWWINDOW = &H40
    Private Const WS_EX_NOACTIVATE = &H8000000
    Private Const GWL_EXSTYLE = (-20)
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        '无焦点的窗体:
        Dim style As Integer
        style = GetWindowLong(Me.Handle.ToInt32, GWL_EXSTYLE)
        style = style Or WS_EX_NOACTIVATE
        Call SetWindowLong(Me.Handle.ToInt32, GWL_EXSTYLE, style) '这一句代表有焦点
        SetWindowPos(Me.Handle.ToInt32, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)

    End Sub

End Class

写好代码，按F5调试运行，运行结果界面如下：

噫？怎么会还有焦点？这是在visual studio 2022测试的结果，难道代码有误？

不用急，当你去点击别的程序，让这个测试窗体Form1失去焦点，然后，你再想让这个失去焦点的窗体再得到焦点，就不可能了，无论是像点击窗体上的2个控件，还是点击窗体的标题栏，就不会让这个无焦点的窗体再得到焦点。

你这时一定在想，能不能让窗体一启动就失去焦点呢？答案是：当然可以。

具体做法是：点击VS2022的“项目”菜单的最后一个“属性”菜单项，或者如下图所示，鼠标右键点击应用程序，点击最后一个菜单，进入属性对话框。

在属性对话框中，在“应用程序框架”项里，要取消勾选第一个选项：“为此项目启用Visusal Basic" 应用程序 框架。

取消勾选第一个选项后，再F5运行，好了，一启动程序就是无焦点的窗体，成功！如下图所示：

但是，你会发现实现窗体启动即无焦点，也付出了代价，即窗体样式只能是经典的样式了，你看看，TextBox控件，一个是Button控件都是经典样式了，不再是XP样式了。