WEB开发网
开发学院WEB开发综合 切割一个Container中的图片 阅读

切割一个Container中的图片

 2006-02-27 11:55:14 来源:WEB开发网   
核心提示:->前几天在网路上闲逛时,看到有人问了这样的问题:想要写拼图程式,切割一个Container中的图片,又不想用已经切割好的图片,不知要如何把一个完整的图片利用程式来切割,并在表单中放入上述物件,再把以下程式码复制到表单的程式码视窗,以下的程式只是示范切割图片的方法,而不是教你如何写拼图程式
->前几天在网路上闲逛时,看到有人问了这样的问题:想要写拼图程式,又不想用已经切割好的图片,不知要如何把一个完整的图片利用程式来切割。以下的程式只是示范切割图片的方法,而不是教你如何写拼图程式。

需求物件:

Form,PictureBox

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

PRivateSubForm_Activate()

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

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

Picture1.PaintPicturePicture,10,10,1000,1000,0,0,500,500

EndSub

PrivateSubForm_Load()

AutoRedraw=True

'以下路径可能要修改

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

WithPicture1

.Left=1000

.Top=1000

.Width=2000

.Height=2000

.AutoRedraw=True

EndWith

EndSub->
->

Tags:切割 一个 Container

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接