Question

VB 做一个窗体的问题

让窗体透明,而且置顶,并且可以操作窗体覆盖掉的软件,这个窗体就像是一个影子一样在桌面上.我以前做出来过,但是忘记了.大家帮帮忙^_^
透明的窗体只是悬浮在桌面上,依然可以操作被窗体透明覆盖掉的程序.

Answer 1

那么提醒你一下，呵呵
还记得API函数SetLayeredWindowAttributes吗？

Answer 2

置顶就这样做
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