|
先在窗体上加一个按钮，两个timer控件，然后在窗体上加入如下代码
Dim rtn As Long
Dim slo As Integer
Private Sub Command1_Click()
Timer1.Enabled = False
slo = 255 '定义透明度为完全显示
rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes Me.hwnd, 0, slo, LWA_ALPHA
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
c = 1
rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE) '获取窗体大小
rtn = rtn Or WS_EX_LAYERED '赋予rtn为 WS_Ex_Layered
SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn '将半透明值赋予给窗体
SetLayeredWindowAttributes Me.hwnd, 0, 0, LWA_ALPHA '赋予窗体半透明
Timer1.Interval = 1
Timer1.Enabled = True & [1] [2] [3] 下一页
|
