用VB5制作家庭影集
准备：家庭普通照片经扫描后储存。
构想：照片一张接一张出现在屏幕中间，出现时的方式采取动态切换，上方一行标题从左向右移过，标题与照片的背景色随机变化。
关键：调用Bitblt Windows API函数实现照片的动态切换。
内容：工程由Form1和modlue1构成。
Form1中的内容如下：
Const bmpfilemax = 11 ′照片数目常量
Dim bmpfile（bmpfilemax） As String ′照片的文件组
Dim drawbmpmode（bmpfilemax） As Integer ＇照片的切换方式
Dim bmpnum， movestep， xmax， ymax， endmax， lleft， r， n As Integer ′照片的序号、步进参数等
Dim kxy As Single ′x、y方向的比例
Private Sub Exit_Click（）
End
End Sub
Private Sub Form_Load（）
Label1.Left = 0
Label1.Caption = ″Family Album″
Picture1.AutoSize = True
Picture1.Visible = False
bmpfile（0） = App.Path ＋ ″ \son1.jpg″
bmpfile（1） = App.Path ＋ ″\mom_son1.jpg″
bmpfile（2） = App.Path ＋ ″\daddy－son.jpg″
bmpfile（3） = App.Path ＋ ″\yu99yantai.jpg″
bmpfile（4） = App.Path ＋ ″\yu98singap2.jpg″
bmpfile（5） = App.Path ＋ ″\yu98singapore.jpg″
bmpfile（6） = App.Path ＋ ″\mom_son2.jpg″
bmpfile（7） = App.Path ＋ ″\yu99yan2.jpg″
bmpfile（8） = App.Path ＋ ″\family.jpg″
bmpfile（9） = App.Path ＋ ″\fan－yantai.jpg″
bmpfile（10） = App.Path ＋ ″\yu99yan3.jpg″
drawbmpmode（bmpnum） = 1 ＋ Int（Rnd（） ＊ 4）
movestep = 0 ′步进参数
xmax = Form1.ScaleWidth ／
ymax = Form1.ScaleHeight ／
kxy = ymax ／ xmax
Picture1.Picture = LoadPicture（bmpfile（bmpnum））
Timer1.Interval = 30
End Sub
Private Sub Timer1_Timer（）
m = Form1.ScaleWidth ／ － Picture1.Width ／ ′照片显示结束时的X方向居中定位
n = Form1.ScaleHeight ／ － Picture1.Height ／ ′照片显示结束时的Y方向居中定位
hDestDC = Form1.hDC
hSrcDC = Picture1.hDC
drawflag = drawbmpmode（bmpnum） ′照片显示时的切换方式
Select Case drawflag
Case 1 ′切换方式为从左右向中间进行
Timer1.Interval = 30
endmax = xmax
w = movestep
h = Picture1.Height
i = BitBlt（hDestDC， 0 ＋ m， 0 ＋ n， w， h， hSrcDC， 0， 0， SRCCOPY）
X1 = Picture1.Width － movestep
i = BitBlt（hDestDC， X1 ＋ m， 0 ＋ n， w， h， hSrcDC， X1， 0， SRCCOPY）
Case 2 ′切换方式为从中间向四周扩散进行
Timer1.Interval = 30
endmax = xmax
X1 = xmax － movestep
w = movestep ＊ 2
Y1 = CInt（ymax － movestep ＊ kxy）
h = CInt（2 ＊ movestep）
i = BitBlt（hDestDC， X1 ＋ m， Y1 ＋ n， w， h， hSrcDC， X1， Y1， SRCCOPY）
Case 3 ′切换方式为栅栏翻转进行
Timer1.Interval = 200
ednmax = CInt（2 ＊ xmax ／ 10）
tempi = CInt（2 ＊ xmax ／ 10）
w = movestep
h = Picture1.ScaleHeight
For ij = 0 To 9
i = BitBlt（hDestDC， tempi ＊ ij ＋ m， 0 ＋ n， w， h， hSrcDC， tempi ＊ ij， 0，
SRCCOPY）
Next ij
Case 4 ′切换方式为从左向右进行
Timer1.Interval = 30
endmax = xmax
w = movestep ＊ 2
h = Form1.ScaleHeight
i = BitBlt（hDestDC， 0 ＋ m， 0 ＋ n， w， h， hSrcDC， X1， Y1， SRCCOPY）
End Select
Form1.Refresh
movestep = movestep ＋ 4
Label1.Left = movestep
If movestep > endmax ＋ 60 Then
bmpnum = bmpnum ＋ 1
If bmpnum >= bmpfilemax Then
bmpnum = 0
End If
Cls
movestep = 0
Picture1.Picture = LoadPicture（bmpfile（bmpnum））
drawbmpmode（bmpnum） = 1 ＋ Int（Rnd（） ＊ 4）
BackColor = QBColor（Rnd ＊ 15）
Label1.ForeColor = QBColor（Rnd ＊ 10）
If BackColor = Label1.ForeColor Then
Label1.ForeColor = vbBlack
End If
Label1.Caption = ″Family Album″
Label1.Top = Picture1.Top
End If
End Sub
Modlue1中的内容如下：
Option Explicit
Public Const SRCCOPY = ＆HCC0020 ＇ （DWORD） dest = source
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