VB如何生成指定像素的图片?

发布网友发布时间：2022-08-01 12:38

共2个回答

热心网友时间：2024-10-19 08:18

用一个PictureBox可以做到。假定30*30像素的颜色值是放在一个二维数组c(29,29)中的：

Dim x As Integer, y As Integer
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.BorderStyle = 0
Picture1.Width = 30
Picture1.Height = 30
For x = 0 To 29
For y = 0 To 29
Picture1.PSet (x, y), c(x, y)

Next y
Next x
SavePicture Picture1.Image, "c:\1.bmp"

热心网友时间：2024-10-19 08:18

创建个bitmap，写好header，导入RGB信息，然后open file & write就是了。
这些都可以在网上找到

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