?? 動畫_“蝴蝶飛舞”續集m.bas
字號:
Attribute VB_Name = "Module1"
'“動畫_透明處理”的BAS模塊
Option Explicit
'處理位圖的API函數
'hDestDC:目標圖象的句柄
'x,y:目標圖象的位置
'nWidth,nHeight:源圖象或MASK圖象的寬度與高度
'hSrcDC:源圖象或MASK圖象的句柄
'xSrc,ySrc:源圖象或MASK圖象的位置
'dwRop:作圖方式
'以象素為坐標單位
Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, _
ByVal dwRop As Long) As Long
Public Const SRCAND = &H8800C6 '圖象之間作AND運算
Public Const SRCINVERT = &H660046 '圖象之間作Xor運算
'播放聲音的API函數
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ASYNC = &H1 '非同步演奏,在演奏的同時作其他事情
Public Const SND_LOOP = &H8 '重復播放
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -