关于GetBitmapBits

Public Function BmpXTslh() 'As Image

Dim Pic As StdPicture
Dim i, j, x As Long, hDC As Long
Dim Bmp As BITMAP, BmpInfo As BITMAPINFO
Dim PicData() As Byte
Dim W, H As Long

Set Pic = Activer_PicForm.PicBox1.Picture
GetGDIObject Pic.Handle, Len(Bmp), Bmp

ReDim PicData(0 To Bmp.bmHeight * Bmp.bmWidth - 1) '按图像数据实际的大小分配缓冲区
GetBitmapBits Pic, UBound(PicData), PicData(0)

W = Bmp.bmWidth '宽
H = Bmp.bmHeight '高
MsgBox W & " " & H
Beforethin PicData(0), W, H, True
ThinnerHilditch PicData(0), W, H
Beforethin PicData(0), W, H, False
'-------------

SetBitmapBits Pic, UBound(PicData), PicData(0)

With Activer_PicForm.PicBox1
Set .Picture = Pic
.Refresh
End With

SavePicture Pic, "c:/2.bmp"

MsgBox True
End Function

/////////////////////////////////////////////////////////////////////////////////////

PicData 中连续修改一行时，怎么有间断？行不连续

你好哦楼主~ 很高兴看到你的问题。 但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。 可能是你问的问题有些专业了，没人会。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也会比较热心，能快点帮你解决问题。 希望我的回答能够帮到你！ 祝你好运。。，，