麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發(fā)設計 > 正文

如何在VB中直接顯示無格式256灰度級圖像

2019-11-18 17:36:24
字體：大 中 小
來源：轉載
供稿：網(wǎng)友
----在具體應用中可能會要處理無格式的圖像,在VB中可利用API函數(shù)SetDIBitsToDevice實現(xiàn)這一功能.下面是我在工作中用到的顯示256X256大小,256灰度級圖像的程序.

DeclareFunctionGlobalAllocLib"kernel32"(ByValwFlagsAsLong,ByValdwBytesAsLong)AsLong
DeclareFunctionGlobalLockLib"kernel32"(ByValhMemAsLong)AsLong
DeclareFunctionGlobalUnlockLib"kernel32"(ByValhMemAsLong)AsLong
DeclareFunctionGlobalFreeLib"kernel32"(ByValhMemAsLong)AsLong

DeclareFunctionDeleteDCLib"gdi32"(ByValHDCAsLong)AsLong
DeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong

DeclareFunctionSetDIBitsToDeviceLib"gdi32"(ByValHDCAsLong,ByValxAsLong,ByValyAsLong,ByValdxAsLong,ByValdyAsLong,ByValSrcXAsLong,ByValSrcYAsLong,ByValScanAsLong,ByValNumScansAsLong,BitsAsAny,BitsInfoAsBITMAPINFO,ByValwUsageAsLong)AsLong

Typergbquad
rgbBlueAsByte
rgbGreenAsByte
rgbRedAsByte
rgbReservedAsByte
EndType

TypePALETTEENTRY
peRedAsByte
peGreenAsByte
peBlueAsByte
peFlagsAsByte
EndType

TypeBITMAPFILEHEADER
bfTypeAsInteger
bfSizeAsLong
bfReserved1AsInteger
bfReserved2AsInteger
bfOffBitsAsLong
EndType

TypeBITMAPINFOHEADER
biSizeAsLong
biWidthAsLong
biHeightAsLong
biplanesAsInteger
biBitCountAsInteger
biCombitmapfile_h.bfSize=1078 h1*w1
bitmapfile_h.bfReserved1=0
bitmapfile_h.bfReserved2=0
bitmapfile_h.bfOffBits=1078

bitmapinfo_h.biSize=40
bitmapinfo_h.biWidth=w1
bitmapinfo_h.biHeight=h1
bitmapinfo_h.biPlanes=1
bitmapinfo_h.biBitCount=8
bitmapinfo_h.biCompression=0
bitmapinfo_h.biSizeImage=0
bitmapinfo_h.biXPelsPerMeter=0
bitmapinfo_h.biYPelsPerMeter=0
bitmapinfo_h.biClrUsed=256
Forii=0To255'設置色表為256灰度
t_rgbquad(ii).rgbBlue=CByte(ii)
t_rgbquad(ii).rgbGreen=CByte(ii)
t_rgbquad(ii).rgbRed=CByte(ii)
't_rgbquad.rgbReserved=0
Nextii

lpInitInfo.bmiHeader=bitmapinfo_h

Forii=0To255
lpInitInfo.bmiColors(ii)=t_rgbquad(ii)
Nextii

'picture1為一個picture控件,
用于顯示無格式256灰度級圖像
x=SetDIBitsToDevice(picture1.HDC,0,0,
w1,h1,0,0,0,h1,t_buf(0),lpInitInfo,
0)'顯示圖像
x=GlobalUnlock(hPal)'釋放資源
x=GlobalFree(hPal)
GoToNormal_exit
Error_process:
Msgbox"程序運行出錯!"
Normal_exit:->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 自拍偷拍亚洲图片 | 亚洲福利视频52 | 欧美成人精品一区 | 国产做爰全免费的视频黑人 | 色屁屁xxxxⅹ免费视频 | 国产精品亚洲精品久久 | 欧美一级特黄aaaaaaa什 | 国产精品久久久久久久成人午夜 | 在线亚洲免费 | 久久人| 黄色影院在线 | 一级免费黄色 | 国产91丝袜在线播放 | 久章草影院 | 91成人在线网站 | 欧美一级高潮片免费的 | 国产成人在线视频播放 | 午夜丰满少妇高清毛片1000部 | 午夜精品在线视频 | 欧美性受ⅹ╳╳╳黑人a性爽 | 成人黄视频在线观看 | 国产精品久久久久久久久久三级 | 久久精品视频16 | av不卡毛片 | 欧美色视 | 欧美三日本三级少妇三级99观看视频 | 国产一级一片免费播放 | 91午夜视频 | 亚洲精中文字幕二区三区 | 免费观看一区二区三区视频 | 久久免费视频一区二区三区 | 久久久久免费精品 | 国产精品久久久久久久不卡 | 午夜久久久精品一区二区三区 | 性欧美暴力猛交69hd | 欧美日韩在线影院 | 婷婷中文字幕一区二区三区 | 亚洲国产精品久久久久制服红楼梦 | hdhdhd79xxxxх | 超碰人人做人人爱 | 97精品国产高清在线看入口 |