VB.net点击表格

这是一个复杂的版本,包含所有评论 – 优点：

Imports System.Runtime.Interopservices

Public Class Form1

Private InitialStyle As Integer
Dim PercentVisible As decimal

Private Sub Form_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
    ' Grab the Extended Style information
    ' for this window and store it.
    InitialStyle = GetWindowLong(Me.Handle,GWl.ExStylE)
    PercentVisible = 0.8

    ' Set this window to Transparent
    ' (to the mouse that is!)

    ' This creates a new Extended Style
    ' for our window,which takes effect
    ' immediately upon being set,that
    ' combines the initial style of our window
    ' (saved in Form.Load) and adds the ability
    ' to be Transparent to the mouse.
    ' Both Layered and Transparent must be
    ' turned on for this to work AND have
    '  the window render properly!
    SetWindowLong(Me.Handle,GWl.ExStyle,InitialStyle Or WS_EX.Layered Or WS_EX.Transparent)

    ' Don't forget to set the Alpha
    ' for the window or else you won't be able
    ' to see the window! Possible values
    ' are 0 (visibly transparent)
    ' to 255 (visibly opaquE). I'll set
    ' it to 70% visible here for show.
    ' The second parameter is 0,because
    ' we're not using a ColorKey!
    SetLayeredWindowAttributes(Me.Handle,255 * PercentVisible,LWA.Alpha)

    ' Just for giggles,set this window
    ' to stay on top of all others so we
    ' can see what's happening.
    Me.TopMost = True
    Me.BACkColor = Color.Red
End Sub

Public Enum GWL As Integer
    ExStyle = -20
End Enum

Public Enum WS_EX As Integer
    Transparent = &H20
    Layered = &H80000
End Enum

Public Enum LWA As Integer
    ColorKey = &H1
    Alpha = &H2
End Enum

<DllImport("user32.dll",EntryPoint:="GetWindowLong")> _
Public Shared Function GetWindowLong( _
    ByVal hWnd As IntPtr,_
    ByVal nIndex As GWL _
        ) As Integer
End Function

<DllImport("user32.dll",EntryPoint:="SetWindowLong")> _
Public Shared Function SetWindowLong( _
    ByVal hWnd As IntPtr,_
    ByVal nIndex As GWL,_
    ByVal dwNewLong As WS_EX _
        ) As Integer
End Function

<DllImport("user32.dll",_
  EntryPoint:="SetLayeredWindowAttributes")> _
Public Shared Function SetLayeredWindowAttributes( _
    ByVal hWnd As IntPtr,_
    ByVal crKey As Integer,_
    ByVal alpha As Byte,_
    ByVal dwFlags As LWA _
        ) As Boolean
End Function
End Class

这是我正在使用的简化版本对我来说更有意义：

Imports System.Runtime.Interopservices

Public Class Form1

Private InitialStyle As Integer
Dim PercentVisible As decimal

Private Sub Form_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
    InitialStyle = GetWindowLong(Me.Handle,-20)
    PercentVisible = 0.8

    SetWindowLong(Me.Handle,-20,InitialStyle Or &H80000 Or &H20)

    SetLayeredWindowAttributes(Me.Handle,&H2)

    Me.BACkColor = Color.Red
    Me.TopMost = True
End Sub

<DllImport("user32.dll",EntryPoint:="GetWindowLong")> Public Shared Function GetWindowLong(ByVal hWnd As IntPtr,ByVal nIndex As Integer) As Integer
End Function

<DllImport("user32.dll",EntryPoint:="SetWindowLong")> Public Shared Function SetWindowLong(ByVal hWnd As IntPtr,ByVal nIndex As Integer,ByVal dwNewLong As Integer) As Integer
End Function

<DllImport("user32.dll",EntryPoint:="SetLayeredWindowAttributes")> Public Shared Function SetLayeredWindowAttributes(ByVal hWnd As IntPtr,ByVal crKey As Integer,ByVal alpha As Byte,ByVal dwFlags As Integer) As Boolean
End Function

End Class