我想把一个01的二维数组写到BMP中,可是写出来的BMP图象的行列和数组的行列不等啊,BMP图象相对于二维数组少了几行和几列,这个问题应该是出在哪里啊?
解决方案 »
- 跪求在EXCEL2007中利用VBA读取XML文件中指定元素,并将结果保存到CSV文件中。
- 如何用VB调整Excel中的图形大小,使得它的大小为100%,即图形的原始大小?
- 高手:关于BItTBLT函数贴图问题,贴窗口皮肤##################
- 我就想问 RichTextBox 导入 word 文件 不出现乱码 为什么没人理啊 是问题太简单 还是 分太少了??这是今天刚给我的10分 就这些了
- dbgrid控件从哪里找,部件没有啊
- 晕哈!
- 帮帮忙?来者有分!!!!!
- vb打包的问题。急,在线等待
- 这种不复杂却很烦人的数据结构应该怎么处理好?
- ocx的注册(regsvr32)??急!!
- 请问如何使用VB中的PRINTER对象设置打印机的打印份数呢?
- Multimedia MCI控件的简单问题!!
文件头部分我就不说了。
在他的颜色信息部分中,并不是简单的RGBRGBRGB...这样排列的。
如果我没有记错,应该是:
GRBGRBGRB000
详细说:先按一行的每点3色,按grb排列(还是gbr?),一行排完后,再补0,补1-3个0 ,让这一行的数据个数能被4整除,比如3个点,9个数据,就要补3个0。
然后记录排下一行。这个应该是直接读写bmp文件常常遇到的问题。
CommonDialog2.Filter = "(*.bmp;*.jpg)|*.bmp;*.jpg"
CommonDialog2.ShowSave
If Len(CommonDialog2.filename) = 0 Then Exit Sub
filename = CommonDialog2.filename
CommonDialog2.CancelError = TruePicture1.Cls
Picture1.Height = dem_y
Picture1.Width = dem_x
Picture1.ScaleHeight = dem_y
Picture1.ScaleWidth = dem_x
For jj = 0 To dem_y - 1
For ii = 0 To dem_x - 1
Picture1.PSet (ii, jj), RGB((1 - dem_river(ii, jj)) * 255, (1 - dem_river(ii, jj)) * 255, (1 - dem_river(ii, jj)) * 255)
Next ii
Next jj
SavePicture Picture1.Image, filename '保存图片
请问有何问题吗?
而生成的图象行列却是47,59
http://www.zahui.com/html/3/6637.htm