VB 图像拼合

发布网友发布时间：2023-07-16 16:17

共2个回答

热心网友时间：2024-11-19 16:52

这是缩小1.5倍的代码，已经调试成功，你可以试一下：
Picture1.Height = Image1.Height / 1.5
Picture1.Width = Image1.Width / 1.5
Picture1.AutoSize = True
Image1.Stretch = True
Image1.Width = Image1.Width
Image1.Height = Image1.Height
Picture1.Refresh
Picture1.AutoRedraw = True
Picture1.PaintPicture Image1.Picture, 0, 0, Image1.Width / 1.5, Image1.Height / 1.5
Picture1.Picture = Picture1.Image

热心网友时间：2024-11-19 16:53

这个很简单，可以使用图片框PaintPicture的方法，比如说，将picture1的图片拼接到picture2上，代码：
Picture2.PaintPicture Picture1.Picture, 0, 0
我有一个这方面的实例——图像合成软件，你要是需要，可以联系我，我发给你。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com