多媒体实验二.docxVIP

Public counter Private Sub Command 1 .ClickO Timer2.Enab!ed = True Command 1. Visible = False End Sub Private Sub Fomi_Loai() rtn = GctWindowLong(hwnd. GWL_EXSTYLE) rm = an Or WS_EX_LAYERED SetWindowLong hwnd. GWL.EXSTYLE. nn SeiLayeredWindow/Xuributes hwnd. 0. 0. LWA_ALPHA SeiWindowPos Me.hwnd. HWND TOPMOST. 0,0.0.0. SWP_NOMOVE Or SWP_NOSIZE End Sub Private Sub Timcrl_Timcr() rtn = GctWindowLong(hwnd. GWL_EXSTYLE) rtn = an Or WS_EX_LAYERED SetWindowLong hwnd. GWL.EXSTYLE. rtn SetLayeredWindow/Xuiibutes hwnd. 0. counter. LWA_ALPH/\ SeiWindowPos Me.hwnd. HWND.TOPMOST, 0.0.0.0. SWP_NOMOVE Or SWP