用VB5制作家庭影集 冯雪瑜 李忠东 2000年 第2期 　　你想拥有自己的电子家庭影集吗？其实用VB就能实现。方法如下： 　　准备：家庭普通照片经扫描后储存。 　　构想：照片一张接一张出现在屏幕中间，出现时的方式采取动态切换，上方一行标题从左向右移过，标题与照片的背景色随机变化。 　　关键：调用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