当前位置: 网学 > 编程文档 > VB > 正文

VB图像处理之像素的获取和输出

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/16
下载{$ArticleTitle}原创论文样式

 biBitCount As Integer
 biCompression As Long
 biSizeImage As Long
 biXPelsPerMeter As Long
 biYPelsPerMeter As Long
 biClrUsed As Long
 biClrImportant As Long
End Type

Private Type RGBQuad
 rgbBlue As Byte
 rgbGreen As Byte
 rgbRed As Byte
 ''rgbReserved As Byte
End Type

Private Type BitMapInfo
 bmiHeader As BitMapInfoHeader
 bmiColors As RGBQuad
End Type

  这三个数据结构都是在DIB中不可缺少的。我们不必深究,只是按照顺序复制粘贴直接使用就是了。

  过程中用到的全局变量:

Private Const Bits As Long = 32 ''颜色深度,这里把所有图像都按照32位来处理
Public Done As Boolean ''用于标记一个过程是否结束
Public TimeGet As Long ''用于记录输入过程处理所花费的时间
Public TimePut As Long ''用于记录输出过程处理所花费的时间
Dim ColVal() As Byte ''用于存放从DIB输入的像素值
Dim ColOut() As Byte ''用于存放向DIB输出的像素值
Dim InPutHei As Long ''用于记录输入图像的高度
Dim InPutWid As Long ''用于记录输入图像的宽度
Dim bi24BitInfo As BitMapInfo ''定义BMP信息

  可以看出,我在输入和输出中使用了两个不同的动态数组ColVal()和ColOut(),这么做是有道理的,因为我们不只是为了输入和输出图像,中间还要对像素进行处理。包括图像缩放、色彩调整、锐化、柔化等等处理,使用两个不同的数组来分别存放数据更有利于程序的实现。

  有些性急的朋友说不定已经把程序贴到工程里试用了,可是会发现根本不能输出图像。这是因为当你用DIBGET获得的图像还在ColVal() 中呢,需要把它们放到ColOut()这个数组中去,DIBPUT这个过程才能起作用。

  这里再给出一个用于数组整体移动数据的过程:

Public Sub CopyData(ByVal W As Long, ByVal H As Long)
 Dim Length As Long
 Dim I As Long
 Dim L As Long
 I = Bits \ 8
 L = I - 1
 Length = (W + 1&) * (H + 1&) * I
 ReDim ColOut(L, W, H)
 CopyMemory ColOut(0, 0, 0), ColVal(0, 0, 0), Length
End sub

  API定义:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long)

  这时,我们就可以来试一下效果了:

  把你的显示器调到32位色。

  将前面的所有API和变量定义全部贴到一个新建的模块里

  新建一个窗体,加两个PICTURE控件:pictrue1 ,picture2 一个按钮command1

  在pictrue1中加载一个图片

  在command1中写如下代码:

sub command1_click()
 With picture1
  .ScaleMode=3
  .BorderStyle=0
  DibGet .hdc,0,0,.scalewidth,.scaleheight
 End With
 CopyData InPutHei ,InPutWid
 picture2.AutoRedraw=True
 DibPut picture2.hdc
 picture2.refresh
end sub

  运行一下,按钮按下,pictreu1中的图片就立刻显示到了picture2中。

  这时,你可能会说,弄了这么半天就贴个图?用PaintPicture不是就可以了吗?

  不错,如果只是要贴个图,确实不用这么麻烦,可是,我们后面要说的图像处理部分将会用到前门得到的像素值。所以,这只是一个开始,我真正要讲的东西还在后面呢。请大家继续关注。

  • 下一篇资讯: 格式化磁盘演示
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号