你想拥有自己的电子家庭影集吗?其实用VB就能实现。方法如下:
准备:家庭普通照片经扫描后储存。
构想:照片一张接一张出现在屏幕中间,出现时的方式采取动态切换,上方一行标题从左向右移过,标题与照片的背景色随机变化。
关键:调用Bitblt Windows API函数实现照片的动态切换。
内容:工程由Forml和modluel构成。
FORML中的内容如下:
Comst bmpfilemax=11 照片数目常量Const bmpfile(bmpfilemax)As String照片的文件组Dim brawbmpmode(bmpfilemax)As in-teger 照片的切换方式Dim bmpnum,mouvstep,xmax,ymax,endmax,lleft,r,n ,As Integer 照片的序号,步进参数Dim kxy As Single x y方向的比例Private Sub Exit_Click( )EndEne SubPrivate Sub Form_Load( )Labell.Lert=0Labell.Caption="Fami...[ 查看全文 ]