27.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 47 行

切割一个Container中的图片 
前几天在网路上闲逛时，看到有人问了这样的问题：想要写拼图程式，又不想用已经切割好的图片，不知要如何把一个完整的图片利用程式来切割。以下的程式只是示范切割图片的方法，而不是教你如何写拼图程式。 

需求物件： 

Form, PictureBox
  

请建立一个新专案，并在表单中放入上述物件，再把以下程式码复制到表单的程式码视窗，最後按下F5来执行。(注意图片路径可能要修改) 

Private Sub Form_Activate() 

     '详细阅读PaintPicture的说明就可了解,在来源图和目的图中, 

     '可以指定某个特定区域来绘图,亦即可以将图片切割或放大,缩小 

     Picture1.PaintPicture Picture, 10, 10, 1000, 1000, _ 

                                                      0, 0, 500, 500 

End Sub
 
  

Private Sub Form_Load() 

     AutoRedraw = True 

     '以下路径可能要修改 

   Picture = LoadPicture("e:\win95\bubbles.bmp") 

     With Picture1 

          .Left = 1000 

          .Top = 1000 

          .Width = 2000 

          .Height = 2000 

          .AutoRedraw = True 

     End With 

End Sub