VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • vb教程之切割一个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 

相关教程