动画_“蝴蝶飞舞”续集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         '重复播放