VB沒DIB方法。
創(chuàng)新互聯(lián)公司致力于互聯(lián)網(wǎng)品牌建設(shè)與網(wǎng)絡(luò)營(yíng)銷,包括成都網(wǎng)站制作、做網(wǎng)站、外貿(mào)營(yíng)銷網(wǎng)站建設(shè)、SEO優(yōu)化、網(wǎng)絡(luò)推廣、整站優(yōu)化營(yíng)銷策劃推廣、電子商務(wù)、移動(dòng)互聯(lián)網(wǎng)營(yíng)銷等。創(chuàng)新互聯(lián)公司為不同類型的客戶提供良好的互聯(lián)網(wǎng)應(yīng)用定制及解決方案,創(chuàng)新互聯(lián)公司核心團(tuán)隊(duì)10年專注互聯(lián)網(wǎng)開發(fā),積累了豐富的網(wǎng)站經(jīng)驗(yàn),為廣大企業(yè)客戶提供一站式企業(yè)網(wǎng)站建設(shè)服務(wù),在網(wǎng)站建設(shè)行業(yè)內(nèi)樹立了良好口碑。
但可采用Point 方法
按照長(zhǎng)整數(shù),返回在 Form 或 PictureBox 上所指定磅的紅-綠-藍(lán) (RGB) 顏色。
'使用Point方法?,?窗體判色代碼:
Private?Sub?Form_MouseMove(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)
Text1?=?X
Text2?=?Y
Text3?=?Point(X,?Y)
Text4?=?(Val(Text3)?Mod?65536)?Mod?256?'Red
Text5?=?(Val(Text3)?Mod?65536)?\?256?'Green
Text6?=?Val(Text3)?\?65536?'Blue
Shape1.FillColor?=?RGB(Val(Text4),?Val(Text5),?Val(Text6))
End?Sub
'PictureBox判色代碼:
Private?Sub?Picture1_MouseMove(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)
Text1?=?X
Text2?=?Y
Text3?=?Picture1.Point(X,?Y)
Text4?=?(Val(Text3)?Mod?65536)?Mod?256?'Red
Text5?=?(Val(Text3)?Mod?65536)?\?256?'Green
Text6?=?Val(Text3)?\?65536?'Blue
Shape1.FillColor?=?RGB(Val(Text4),?Val(Text5),?Val(Text6))
End?Sub
用directshow獲取幀緩存,轉(zhuǎn)換為標(biāo)準(zhǔn)圖像格式(比如jpg,png這些),存儲(chǔ)到數(shù)據(jù)庫(kù)的image字段里就行了.
'CommandBotton一個(gè)Picture控件一個(gè)
'把picture1的AutoSize屬性設(shè)為True
'用Picture里裝載那張你需要的圖片
'然后
Private Sub Command1_Click()
i = MsgBox("圖片的分辨率為:" + Str(Picture1.ScaleWidth / 15) + "X" + Str(Picture1.ScaleHeight / 15))
End Sub