查看: 40690|回复: 33	【VB源码】图像处理之像素的获取和输出 [复制链接]

发送短消息 UID 211464 帖子 21164 精华 13 鲜花 258 朵 铜币 47817 个 银币 60 个 性别 在线时间 263800 注册时间 2008-12-23 最后登录 2022-11-28 1094599314 1094599314 查看公共资料 搜索主题 搜索帖子 兄弟工程师01 组别版主 UID211464 帖子21164 精华13 鲜花258 朵 铜币47817 个 银币60 个 在线时间263800 注册时间2008-12-23 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com 兔年勋章 兔年纪念勋章 论坛MM 按键论坛女性用户勋章 小红帽 对论坛提出良好建议（可向管理员申请） 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 按键元老 资深按键用户的尊贵荣誉勋章 管理人员 按键论坛的管理团队专属勋章	1# 字体大小: t T 发表于 2009-09-17 10:20 | |只看楼主 '获取像素 DibGet() '图像输出 DIBPut() 'Copy 数组 CopyData() '用于存放从DIB输入的像素值(获取的像素数组) ColVal() '注 第一维: 0= B 值 1= G 值 2= R 值 3= Alpha ' 第二维: X 值 ' 第三维: Y 值 '删除一个DC Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long '删除一个对象 Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long '选择当前对象 Private Declare Function GetCurrentObject Lib "gdi32" (ByVal hdc As Long, ByVal uObjectType As Long) As Long '获取DIB Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BitMapInfo, ByVal wUsage As Long) As Long '获取系统时间 Private Declare Function timeGetTime Lib "winmm.dll" () As Long '输出图像 Private Declare Function SetDIBitsToDevice Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, Bits As Any, BitsInfo As BitMapInfo, ByVal wUsage As Long) As Long '内存操作 Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSrc As Any, ByVal ByteLen As Long) '数据结构定义: Private Type BitMapInfoHeader '文件信息头——BITMAPINFOHEADER biSize As Long biWidth As Long biHeight As Long biPlanes As Integer 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 '过程中用到的全局变量: 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信息 '获取像素 Public Sub DibGet(ByVal IdSource As Long, XBegin As Long, ByVal YBegin As Long, ByVal XEnd As Long, ByVal YEnd As Long) Dim iBitmap As Long Dim iDC As Long Dim I As Long Dim W As Long Dim H As Long On Error GoTo ErrLine Done = False TimeGet = timeGetTime InPutWid = XEnd - XBegin InPutHei = YEnd - YBegin W = InPutWid + 1 H = InPutHei + 1 I = (Bits \ 8) - 1 ReDim ColVal(I, InPutWid, InPutHei) With bi24BitInfo.bmiHeader .biBitCount = Bits .biCompression = 0& .biPlanes = 1 .biSize = Len(bi24BitInfo.bmiHeader) .biWidth = W .biHeight = H End With iBitmap = GetCurrentObject(IdSource, 7&) GetDIBits IdSource, iBitmap, 0&, H, ColVal(0, 0, 0), bi24BitInfo, 0& DeleteObject iBitmap Done = True TimeGet = timeGetTime - TimeGet Exit Sub ErrLine: MsgBox "错误号:" & Err.Number & ":" & Err.Description End Sub '图像输出 Private Sub DIBPut(ByVal IdDestination As Long, Width As Long, Height As Long) Dim W As Long Dim H As Long Dim LineBytes As Long On Error GoTo ErrLine Done = False TimePut = timeGetTime W = Width + 1 H = Height + 1 With bi24BitInfo.bmiHeader .biWidth = W .biHeight = H LineBytes = ((W * Bits + 31) And &HFFFFFFE0) \ 8 .biSizeImage = LineBytes * H End With SetDIBitsToDevice IdDestination, 0, 0, W, H, 0, 0, 0, H, ColOut(0, 0, 0), bi24BitInfo, 0 Done = True TimePut = timeGetTime - TimePut Exit Sub On Error GoTo 0 ErrLine: MsgBox Err.Description End Sub 'Copy 数组 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 复制代码 '新建一窗体 添加 Picture1 , Picture2 ,Command1 '给 Picture1 Load 一图片 '按钮事件 Private Sub Command1_Click() With Picture1 .AutoRedraw = True .AutoSize = True .ScaleMode = 3 .BorderStyle = 0 DibGet .hdc, 0, 0, .ScaleWidth, .ScaleHeight End With CopyData InPutHei, InPutWid With Picture2 .AutoRedraw = True .AutoSize = True .ScaleMode = 3 .BorderStyle = 0 DIBPut .hdc, InPutWid, InPutHei .Refresh End With End Sub 复制代码 已有1评分我要评分查看所有评分
	点赞 【按键精灵手机版】按键精灵安卓版v3.0发布啦~体验送现金红包哦！！ 【按键精灵2014.03.16412版】这是有史以来最稳定的版本，不信你用一个？ .
	回顶部

发送短消息 UID 108925 帖子 215 精华 0 鲜花 1 朵 铜币 562 个 银币 166 个 性别 在线时间 29880 注册时间 2006-12-19 最后登录 2018-02-23 12345 查看公共资料 搜索主题 搜索帖子 5130041 5130041 组别初中一年级 UID108925 帖子215 精华0 鲜花1 朵 铜币562 个 银币166 个 在线时间29880 注册时间2006-12-19 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com 元旦勋章 按键精灵元旦活动纪念勋章	2# 字体大小: t T 发表于 2015-10-23 03:34 | |只看该用户
	回顶部

发送短消息 UID 513264 帖子 366 精华 0 鲜花 2 朵 铜币 1252 个 银币 -2 个 性别 在线时间 5600 注册时间 2010-10-08 最后登录 2021-12-26 123546 查看公共资料 搜索主题 搜索帖子 sw169 sw169 组别初中三年级 UID513264 帖子366 精华0 鲜花2 朵 铜币1252 个 银币-2 个 在线时间5600 注册时间2010-10-08	3# 字体大小: t T 发表于 2015-11-28 14:04 | |只看该用户 顶.................学习
	回顶部

发送短消息 UID 1412778 帖子 272 精华 0 鲜花 4 朵 铜币 794 个 银币 273 个 性别 在线时间 2940 注册时间 2012-11-08 最后登录 2022-05-04 450511576 查看公共资料 搜索主题 搜索帖子 qhy3990 qhy3990 组别初中二年级 UID1412778 帖子272 精华0 鲜花4 朵 铜币794 个 银币273 个 在线时间2940 注册时间2012-11-08 按键精灵开发者5级 可通过提升认证等级来升级勋章：rz.anjian.com	4# 字体大小: t T 发表于 2016-01-24 16:12 | |只看该用户 留着
	回顶部

发送短消息 UID 466229 帖子 270 精华 0 鲜花 0 朵 铜币 256 个 银币 -1 个 性别 在线时间 13860 注册时间 2010-07-21 最后登录 2020-05-28 5436456 查看公共资料 搜索主题 搜索帖子 kuhaierrr kuhaierrr 组别初中二年级 UID466229 帖子270 精华0 鲜花0 朵 铜币256 个 银币-1 个 在线时间13860 注册时间2010-07-21	5# 字体大小: t T 发表于 2016-01-25 15:32 | |只看该用户 4444444444444444444444444444
	回顶部

发送短消息 UID 386483 帖子 1148 精华 0 鲜花 168 朵 铜币 6425 个 银币 280 个 性别 在线时间 440780 注册时间 2010-04-05 最后登录 2024-11-25 892764998 查看公共资料 搜索主题 搜索帖子 lzq91514 游 组别大学二年级 UID386483 帖子1148 精华0 鲜花168 朵 铜币6425 个 银币280 个 在线时间440780 注册时间2010-04-05 过大年勋章 俩小福娃给大家拜年啦！ 按键精灵开发者6级（新浪V认证） 通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 小红帽 对论坛提出良好建议（可向管理员申请）	6# 字体大小: t T 发表于 2016-02-29 10:22 | |只看该用户 牛
	QQ群号：174972351
	回顶部

发送短消息 UID 411839 帖子 1861 精华 0 鲜花 114 朵 铜币 6848 个 银币 422 个 性别 在线时间 69640 注册时间 2010-05-05 最后登录 2023-05-27 609564130 查看公共资料 搜索主题 搜索帖子 609564130.com 609564130.com 组别大学四年级 UID411839 帖子1861 精华0 鲜花114 朵 铜币6848 个 银币422 个 在线时间69640 注册时间2010-05-05 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 龙年勋章 龙年纪念勋章 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com	7# 字体大小: t T 发表于 2016-03-08 14:12 | |只看该用户
	回顶部

发送短消息 UID 323472 帖子 338 精华 0 鲜花 0 朵 铜币 502 个 银币 0 个 性别 在线时间 17800 注册时间 2009-10-19 最后登录 2024-11-28 查看公共资料 搜索主题 搜索帖子 mrt515 筱崎 组别初中二年级 UID323472 帖子338 精华0 鲜花0 朵 铜币502 个 银币0 个 在线时间17800 注册时间2009-10-19 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	8# 字体大小: t T 发表于 2016-03-26 02:08 | |只看该用户
	回顶部

发送短消息 UID 3838980 帖子 30 精华 0 鲜花 0 朵 铜币 73 个 银币 0 个 性别 在线时间 920 注册时间 2016-03-29 最后登录 2016-05-31 122828837 查看公共资料 搜索主题 搜索帖子 井收勿幕 井收勿幕 组别幼儿园 UID3838980 帖子30 精华0 鲜花0 朵 铜币73 个 银币0 个 在线时间920 注册时间2016-03-29	9# 字体大小: t T 发表于 2016-03-31 20:24 | |只看该用户 安防
	回顶部

发送短消息 UID 2465620 帖子 48 精华 0 鲜花 0 朵 铜币 128 个 银币 0 个 性别 在线时间 440 注册时间 2014-04-13 最后登录 2018-01-02 1017941107 查看公共资料 搜索主题 搜索帖子 1017941107 自如 组别小学二年级 UID2465620 帖子48 精华0 鲜花0 朵 铜币128 个 银币0 个 在线时间440 注册时间2014-04-13	10# 字体大小: t T 发表于 2016-04-06 23:10 | |只看该用户 看看
	回顶部

发送短消息 UID 3872478 帖子 1497 精华 0 鲜花 -15 朵 铜币 1773 个 银币 -15 个 性别 在线时间 73400 注册时间 2016-04-17 最后登录 2018-04-03 查看公共资料 搜索主题 搜索帖子 685685 组别大学三年级 UID3872478 帖子1497 精华0 鲜花-15 朵 铜币1773 个 银币-15 个 在线时间73400 注册时间2016-04-17	11# 字体大小: t T 发表于 2016-04-30 13:08 | |只看该用户 鲁迅
	回顶部

发送短消息 UID 3826245 帖子 38 精华 0 鲜花 0 朵 铜币 129 个 银币 0 个 性别 在线时间 1720 注册时间 2016-03-23 最后登录 2016-12-18 12345 查看公共资料 搜索主题 搜索帖子 andyqxm andyqxm 组别小学二年级 UID3826245 帖子38 精华0 鲜花0 朵 铜币129 个 银币0 个 在线时间1720 注册时间2016-03-23	12# 字体大小: t T 发表于 2016-05-03 14:01 | |只看该用户 好文章一定要回复的。
	回顶部

发送短消息 UID 4060473 帖子 6675 精华 0 鲜花 -63 朵 铜币 6735 个 银币 -63 个 性别 在线时间 34240 注册时间 2016-08-10 最后登录 2017-08-08 查看公共资料 搜索主题 搜索帖子 kongtianyi 组别博士后 UID4060473 帖子6675 精华0 鲜花-63 朵 铜币6735 个 银币-63 个 在线时间34240 注册时间2016-08-10	13# 字体大小: t T 发表于 2016-08-17 09:33 | |只看该用户 学习学习~~~~~~~~~~~~~~~~~~~~~~~~
	回顶部

发送短消息 UID 1499642 帖子 1670 精华 0 鲜花 4 朵 铜币 1885 个 银币 78 个 性别 在线时间 25220 注册时间 2012-12-20 最后登录 2024-12-01 332850337 查看公共资料 搜索主题 搜索帖子 ghoob ghoob 组别大学三年级 UID1499642 帖子1670 精华0 鲜花4 朵 铜币1885 个 银币78 个 在线时间25220 注册时间2012-12-20 过大年勋章 俩小福娃给大家拜年啦！ 黄金之翼 黄金之翼勋章 骨灰级按键用户 3年以上的按键论坛用户 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章	14# 字体大小: t T 发表于 2016-10-24 22:19 | |只看该用户 给 Picture1 Load 一图片
	回顶部

发送短消息 UID 4530175 帖子 2 精华 0 鲜花 0 朵 铜币 19 个 银币 0 个 性别 在线时间 20 注册时间 2017-07-01 最后登录 2017-07-02 查看公共资料 搜索主题 搜索帖子 hesim 组别小学一年级 UID4530175 帖子2 精华0 鲜花0 朵 铜币19 个 银币0 个 在线时间20 注册时间2017-07-01	15# 字体大小: t T 发表于 2017-07-01 23:56 | |只看该用户 ding ding ding
	回顶部

发送短消息 UID 323336 帖子 296 精华 0 鲜花 15 朵 铜币 2126 个 银币 -2 个 性别 在线时间 11300 注册时间 2009-10-19 最后登录 2023-12-25 查看公共资料 搜索主题 搜索帖子 shufu 组别初中二年级 UID323336 帖子296 精华0 鲜花15 朵 铜币2126 个 银币-2 个 在线时间11300 注册时间2009-10-19	16# 字体大小: t T 发表于 2017-09-05 02:52 | |只看该用户 Picture1 Load 一图片
	回顶部

发送短消息 UID 3213164 帖子 2 精华 0 鲜花 0 朵 铜币 12 个 银币 0 个 性别 在线时间 160 注册时间 2015-04-23 最后登录 2017-09-24 查看公共资料 搜索主题 搜索帖子 cqudaxue cqudaxue 组别小学一年级 UID3213164 帖子2 精华0 鲜花0 朵 铜币12 个 银币0 个 在线时间160 注册时间2015-04-23	17# 字体大小: t T 发表于 2017-09-24 19:14 | |只看该用户 很不错的信息，一定支持
	回顶部

发送短消息 UID 4007044 帖子 30 精华 0 鲜花 -2 朵 铜币 84 个 银币 -2 个 性别 在线时间 420 注册时间 2016-07-09 最后登录 2020-04-21 526873362 查看公共资料 搜索主题 搜索帖子 属龙 属龙 组别小学二年级 UID4007044 帖子30 精华0 鲜花-2 朵 铜币84 个 银币-2 个 在线时间420 注册时间2016-07-09	18# 字体大小: t T 发表于 2017-09-24 19:51 | |只看该用户
	回顶部

发送短消息 UID 4664895 帖子 1 精华 0 鲜花 0 朵 铜币 11 个 银币 0 个 性别 在线时间 20 注册时间 2017-10-11 最后登录 2017-10-11 查看公共资料 搜索主题 搜索帖子 xmligf 组别小学一年级 UID4664895 帖子1 精华0 鲜花0 朵 铜币11 个 银币0 个 在线时间20 注册时间2017-10-11	19# 字体大小: t T 发表于 2017-10-11 15:17 | |只看该用户 学习学习,多谢
	回顶部

发送短消息 UID 4232659 帖子 277 精华 0 鲜花 22 朵 铜币 329 个 银币 206 个 性别 在线时间 10460 注册时间 2016-12-01 最后登录 2024-09-26 查看公共资料 搜索主题 搜索帖子 chenxru 最熟悉的陌生人 组别初中二年级 UID4232659 帖子277 精华0 鲜花22 朵 铜币329 个 银币206 个 在线时间10460 注册时间2016-12-01 按键精灵开发者4级 可通过提升认证等级来升级勋章：rz.anjian.com	20# 字体大小: t T 发表于 2017-10-19 14:32 | |只看该用户 谢谢
	回顶部