首页 相关文章 用VB5制作家庭影集

用VB5制作家庭影集

  你想拥有自己的电子家庭影集吗?其实用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...[ 查看全文 ]

2016-02-19 标签:

用VB5制作家庭影集的相关文章

手机页面
收藏网站 回到头部