VB中PaintPicture图形方法的使用(2)

• 　　三、演示程序
  
  　　文后的程序完整的演示了上述各种图像的特殊处理效果，
  编程需要在From1窗体中安放两个图形框Picture1 及Picture2, 还有五个命令按钮Command1－Command5,之后把下述代码填入相应的事件中, 运行程序后通过按钮1－4即可演示上述的四种图像处理效果, 按"退出"按钮则结束程序。以上方法及程序在WINDOWS95系统、VB4.0环境下调试通过。
  
  　　’图像平铺显示
  
  　　Private Sub Command1_Click()
  
  　　Dim numm As Integer
  
  　　Picture1.AutoSize = True
  
  　　roww = Int(Form1.Width / Picture1.Width) ＋ 1
  
  　　coll = Int(Form1.Height / Picture1.Height) ＋ 1
  
  　　For i = 0 To roww
  
  　　For j = 0 To coll
  
  　　Form1.PaintPicture Picture1.Picture,j＊Picture1.Width,i＊Picture1.Height,Picture1.Width,Picture1.Height
  
  　　numm = numm ＋ 1
  
  　　Form1.Caption = "使用图像个数:" ＋ Str＄(numm)
  
  　　Next j
  
  　　Next i
  
  　　Picture1.Visible = 0
  
  　　End Sub
  
  　　’随机图像显示
  
  　　Private Sub Command2_Click()
  
  　　Picture1.AutoSize = True
  
  　　Do
  
  　　xx = Rnd ＊ Picture2.Width
  
  　　yy = Rnd ＊ Picture2.Height
  
  　　Picture2.PaintPicture Picture1.Picture, xx, yy,Picture1.Width,Picture1.Height
  
  　　DoEvents
  
  　　Loop
  
  　　End Sub
  
  进入讨论组讨论。
  
  　　’镜头推出效果
  
  　　Private Sub Command3_Click()
  
  　　Picture2.Cls
  
  　　Picture1.AutoSize = False
  
  　　Picture1.Width = 0
  
  　　Picture1.Height = 0
  
  　　For i = 0 To 2000 Step 2
  
  
• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• VB中PaintPicture图形方法的使用(2) 相关文章：
• ·VB中PaintPicture图形方法的使用(2)
• VB中PaintPicture图形方法的使用(2) 相关软件

上一篇:VB中PaintPicture图形方法的使用(1)

下一篇:用Visual Basic设计三维图形按钮

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐