VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之如何使窗口透明

为 了 便 于 观 察 , 先 在 窗 口 上 添 加 两 个 按 钮 , 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 

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。


相关教程