切割一个Container中的图片

时间： 2021-07-31 作者：daque

前几天在网路上晃荡时，看到有人问了如许的题目：想要写拼图程式，又不想用仍旧切割好的图片，不知要怎样把一个完备的图片运用程式来切割。以次的程式不过演示切割图片的本领，而不是教你怎样写拼图程式。需要物件： form, picturebox请创造一个新旧案，并在表单中放入上述物件，再把以次程式码复制到表单的程式码视窗，最後按下f5来实行。(注企图片路途大概要窜改) private sub form_activate() '精细观赏paintpicture的证明就可领会,在根源图和手段图中, '不妨指定某个一定地区来画图,亦即不妨将图片切割或夸大,减少 picture1.paintpicture picture, 10, 10, 1000, 1000, 0, 0, 500, 500 end subprivate 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

切割一个Container中的图片

相关推荐

推荐下载

热门阅览

最新排行