如何让电脑窗口透明

发布网友 发布时间：2022-03-23 23:25

我来回答

共4个回答

热心网友 时间：2022-03-24 00:54

为 了 便 于 观 察 ， 先 在 窗 口 上 添 加 两 个 按 钮 ， Command1和 Command2。 加 上 如 下 代 码 ：Private Sub Command1_Click() Print "Hello"End SubPrivate Sub Command2_Click() EndEnd 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 LongPrivate Declare Function SetParent Lib "user32" (ByVal hWndChild _As Long， ByVal hWndNewParent As Long) As LongConst WS_EX_TRANSPARENT = H20Const GWL_EXSTYLE = (-20)最 后 ， 在 Form中 加 上 如 下 代 码 。Private Sub Form_Load() SetWindowLong hwnd， GWL_EXSTYLE， WS_EX_TRANSPARENTEnd Sub

热心网友 时间：2022-03-24 02:12

那个是系统自配的，有些系统是没有的。。

热心网友 时间：2022-03-24 04:04

window7的系统就是这样的 俺是WIN7的系统

热心网友 时间：2022-03-24 06:12

安装windows7系统