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

• 　　roww = (Picture2.Width － Picture1.Width) / 2 － i / 2
  
  　　coll = (Picture2.Height － Picture1.Height) / 2 － i / 2
  
  　　Picture2.PaintPicture Picture1.Picture, roww, coll,Picture1.Width ＋ i, Picture1.Height ＋ i
  
  　　DoEvents
  
  　　Next i
  
  　　For i = 2000 To 0 Step －2
  
  　　roww = (Picture2.Width － Picture1.Width) / 2 － i / 2
  
  　　coll = (Picture2.Height － Picture1.Height) / 2 － i / 2
  
  　　Picture2.PaintPicture Picture1.Picture, roww, coll,Picture1.
  
  　　Width ＋ i, Picture1.Height ＋ i
  
  　　DoEvents
  
  　　Next i
  
  　　Picture1.AutoSize = True
  
  　　End Sub
  
  进入讨论组讨论。
  
  　　’拖尾效果
  
  　　Private Sub Command4_Click()
  
  　　Picture2.Cls
  
  　　Picture1.AutoSize = False
  
  　　Picture1.Width = 0
  
  　　Picture1.Height = 0
  
  　　For i = 0 To 2000 Step 2
  
  

  　　stepp = i / 2
  
  　　Picture2.PaintPicture Picture1.Picture, stepp, stepp,Picture1.Width ＋ i, Picture1.Height ＋ i
  
• 上一页 [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• VB中PaintPicture图形方法的使用(2) 相关文章：
• ·VB中PaintPicture图形方法的使用(2)
• VB中PaintPicture图形方法的使用(2) 相关软件

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

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

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

精品推荐

热点TOP10

特别推荐