我是这样的:
Private Sub Form_Load()
Timer1.Interval = 10
rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hWnd, GWL_EXSTYLE, rtn
For i = 1 To 200
Timer1.Enabled = True
Next i
End Sub
然后,在timer属性中
Private Sub Timer1_Timer()
SetLayeredWindowAttributes hWnd, 0, i, LWA_ALPHA
End Sub
我对timer不是很熟悉,所以我知道问题肯定出在timer里面。
望高手相助!!!
|