图片的平滑切换处理技术

*.rle"
　Dlg.ShowOpen
　If Err Then Exit Sub
　Set Pic.Picture = LoadPicture(Dlg.FileName)
　If Err Then
　　MsgBox "装入图片[" & Dlg.FileName & "]出错.", vbOKOnly, "错误"
　Else
　　Picturelist.AddItem Dlg.FileName
　　Picturelist.ListIndex = Picturelist.ListCount - 1
　End If
　If ShowStyle.ListIndex >= 0 And Picturelist.ListCount >= 2 Then
　　RunAndStopButton.Enabled = True
　End If
End Sub

Private Sub Form_Load()
　ShowStyle.AddItem "随机"
　ShowStyle.AddItem "整个图片淡入淡出"
　ShowStyle.AddItem "从左到右淡入"
　ShowStyle.AddItem "从右到左淡入"
　ShowStyle.AddItem "从上到下淡入"
　ShowStyle.AddItem "从下到上淡入"
　ShowStyle.ListIndex = 0
　UpDown.Value = 20
End Sub

Private Sub ShowStyle_click()
　If ShowStyle.ListIndex >= 0 And Picturelist.ListCount >= 2 Then
　　　RunAndStopButton.Enabled = True
　End If
End Sub

Private Sub TextSpeed_Change()
　n = Int(Val(TextSpeed.Text))
　If n < UpDown.Min Or n > UpDown.Max Then
　　　n = 20
　End If
　UpDown.Value = n
　TextSpeed.Text = n
End Sub

Private Sub UpDown_Change()
　TextSpeed.Text = UpDown.Value
End Sub
　　代码写好了,现在您可以按下Play,运行您的测试程序。按下"Add",向PictureList加入几个图片,选中某一个过渡效果(或随机),再按下"Start"。此时,您只需要来杯咖啡,静静地一旁欣赏,怎么样,不亚于Anfy吧！

　　若想再您的网页中加入这种效果,可以将其设计可OCX。下篇将向您介绍另一种加下雪效果的AddSnowCtrol,并且设计成ActiveX。

　　以上只是笔者的班门弄斧,不当之处,希望多多指教。另外程序由于采用读点写点方法处理,速度的确不尽人意,笔者曾试想直接处理DC中的hBitmap信息,但苦于手中没有资料,只好罢了。若读者对此技术感兴趣,可以给我来信！(本文发表于2000年第6期《电脑编程技巧与维护》)

Word版下载地址：http://www.i0713.net/Download/Prog/Dragon/Doc/PicTrans.doc
源程序下载地址：http://www.i0713.net/Download/Prog/Dragon/Prog/PicTrans.zip

关键词：图片的平滑切换处理技术