记录：VB6 直接获取 PictureBox 的图像数据到数组 GetDIBits

原创

已于 2024-12-15 22:05:36 修改 · 385 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#GetDIBits #BMP #从图片控件直接获取图像数据

于 2024-12-15 22:04:00 首次发布

记得十几年前写几个游戏辅助工具的时候用过这个功能，这几天想直接把图片控件的数据转换为 PNG 文件不想用存出 BMP 文件交换，直接取得图像数据操作即可，但是忘记了当初是怎么做的了，找到个 2007 年的例子好像不太对，运行直接关闭，后来找到个 2008 年的大家来找茬辅助工具后，终于运行正确了，简单优化一下，先实现由获取的数组数据保存为 BMP 文件，以此记录，省得以后又忘记了：

正确运行后应该可以保存出这张图片：

Option Explicit

Dim bi24BitInfo As BITMAPINFO, bmHead As bmfh '位图文件头
Dim BMLineBytes As Long, BMpicByte As Integer, BMTrueLineBytes As Long

Private Sub Command1_Click()
    Dim Col() As Byte, fp, fn
    With Pic_DT
        With .Font
            .Name = "Arial"      ' 字体名称
            .Size = 40           ' 字体大小
            .Bold = True         ' 加粗
        End With
        .CurrentX = 0
        .CurrentY = 0
        .ForeColor = vbRed ' 设置前景色为红色
    End With
    Pic_DT.Print "Hello, VB6!"
    
    Call DibGetP(Pic_DT, Col())        '----从 picbox 直接提取图像数据
    
    With bmHead                 '----构造文件头