VB 做一个窗体的问题 20
让窗体透明,而且置顶,并且可以操作窗体覆盖掉的软件,这个窗体就像是一个影子一样在桌面上.我以前做出来过,但是忘记了.大家帮帮忙^_^透明的窗体只是悬浮在桌面上,依然可以操...
让窗体透明,而且置顶,并且可以操作窗体覆盖掉的软件,这个窗体就像是一个影子一样在桌面上.我以前做出来过,但是忘记了.大家帮帮忙^_^
透明的窗体只是悬浮在桌面上,依然可以操作被窗体透明覆盖掉的程序. 展开
透明的窗体只是悬浮在桌面上,依然可以操作被窗体透明覆盖掉的程序. 展开
2个回答
展开全部
那么提醒你一下,呵呵
还记得API函数SetLayeredWindowAttributes吗?
还记得API函数SetLayeredWindowAttributes吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
置顶就这样做
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hwndinsertafter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wflag As Long)
Private Sub Command1_Click()'按下按求进行置顶操作
Dim rtn
rtn = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
透明那部分就这样做
Private Declare Function SetLayeredWindowAttributes Lib _
"user32" (ByVal hnd As Long, ByVal clval As Long, _
ByVal alph As Byte, ByVal flago As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Const LWA_ALPHA = &H2&
Private Const LWA_COLORKEY = &H1&
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Sub Command2_Click()
'整体半透明:
Dim lOldStyle As Long
Dim bTrans As Byte
bTrans = 128
lOldStyle = GetWindowLong(Form1.hwnd, GWL_EXSTYLE)
SetWindowLong Form1.hwnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED
SetLayeredWindowAttributes Form1.hwnd, COLOR_TRANSPARENCY, bTrans, LWA_ALPHA
'(其中COLOR_TRANSPARENCY是要透明的颜色,使用16进制表示,如&H80000)。
'bTrans是透明度,最大多少,我也没有试过..
'LWA_COLORKEY使透明色透明
'LWA_ALPHA使窗体透明
End Sub
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hwndinsertafter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wflag As Long)
Private Sub Command1_Click()'按下按求进行置顶操作
Dim rtn
rtn = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
透明那部分就这样做
Private Declare Function SetLayeredWindowAttributes Lib _
"user32" (ByVal hnd As Long, ByVal clval As Long, _
ByVal alph As Byte, ByVal flago As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Const LWA_ALPHA = &H2&
Private Const LWA_COLORKEY = &H1&
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const WS_EX_TRANSPARENT = &H20&
Private Sub Command2_Click()
'整体半透明:
Dim lOldStyle As Long
Dim bTrans As Byte
bTrans = 128
lOldStyle = GetWindowLong(Form1.hwnd, GWL_EXSTYLE)
SetWindowLong Form1.hwnd, GWL_EXSTYLE, lOldStyle Or WS_EX_LAYERED
SetLayeredWindowAttributes Form1.hwnd, COLOR_TRANSPARENCY, bTrans, LWA_ALPHA
'(其中COLOR_TRANSPARENCY是要透明的颜色,使用16进制表示,如&H80000)。
'bTrans是透明度,最大多少,我也没有试过..
'LWA_COLORKEY使透明色透明
'LWA_ALPHA使窗体透明
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询