ITPub博客

首页 > IT职业 > IT生活 > 如 何 使 窗 口 透 明 (转)

如 何 使 窗 口 透 明 (转)

原创 IT生活 作者:worldblog 时间:2007-12-06 09:30:38 0 删除 编辑
如 何 使 窗 口 透 明 (转)[@more@]为 了 便 于 观 察 , 先 在 窗 口 上 添 加 两 个 按 钮 , 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

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-988951/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    6241
  • 访问量
    2411059