如何使窗口透明.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 23 行

为了便于观察，先在窗口上添加两个按钮，Command1和Command2。加上如下代码： 
    Private Sub Command1_Click() 
     Print "Hello" 
    End Sub 
     
    Private Sub Command2_Click() 
     End 
    End Sub 
    这两个按钮一个用于终止程序运行，一个用于显示文字。 
    然后，将Form的Border设为None。 
    最后，在Form的声明部分加上以下代码： 
    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 SetParent Lib "user32" (ByVal hWndChild _ 
    As Long, ByVal hWndNewParent As Long) As Long 
    Const WS_EX_TRANSPARENT = &H20& 
    Const GWL_EXSTYLE = (-20) 
    最后，在Form中加上如下代码。 
    Private Sub Form_Load() 
     SetWindowLong hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT 
    End Sub 
<END>