如何使窗口透明

領測軟件測試網 為 了 便 于 觀 察 ， 先 在 窗 口 上 添 加 兩 個 按 鈕 ， 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 

文章來源于領測軟件測試網 http://www.kjueaiud.com/