首页 相关文章 VB中实现图像特技(2)

VB中实现图像特技(2)

->设置各控件的属性如下:
  Form1:AutoRedraw:True
  ScaleMode:3
  Picture1:AutoRedraw:True
  ScaleMode:3
  Visible:False
  2代码编写
  Modull.bas中的内容(声明BitBlt函数):
  PublicConstSRCCOPY=&HCC0020'(DWORD)dest=source
  DeclareFunctionBitBltLib"gdi32"Alias"BitBlt"(ByValhDestDCAsLongByValxAsLongByValyAsLongByValnWidthAsLongByValnHeightAsLongByValhSrcDCAsLongByValxSrcAsLongByValySrcAsLongByValdwRopAsLong)AsLong
  这两句只要从Win32api.txt文件中粘贴即可。
  Form1中的代码:
  在Declare中定义全局变量:
  Constbmpfilemax=5&总共5个bmp文件
  Dimbmpfile(bmpfilema...[ 查看全文 ]

2016-02-19 标签:

VB中实现图像特技(2)的相关文章

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