1樓：匿名使用者
private sub picturebox1_mousemove(byval sender as object, byval e as system.windows.forms.
mouseeventargs) handles picturebox1.mousemove
if me.picturebox1.image is nothing then '如果picturebox1.image is nothing，退出
exit sub
end if
dim btp as bitmap = picturebox1.image
dim c as color = btp.getpixel(e.x, e.y)
label1.text = c.r '顯示r
label2.text = c.g '顯示g
label3.text = c.g '顯示b
end sub
2樓：
'''return type: colorref->dword->unsigned int
'''hdc: hdc->hdc__*
'''x: int
'''y: int
_public shared function getpixel(byval hdc as system.intptr, byval x as integer, byval y as integer) as uinteger
end function
windows api 萬能產品
3樓：圖杭科技
dim ac as color
...ac=...
dim rr as interger=ac .rdim gg as interger=ac .gdim bb as interger=ac b
opencv提取rgb影象的每個畫素點的r,g,b值並存到乙個三維矩陣裡
4樓：山河不悟
mat是三通道陣列，每個通道存一種顏色
vb如何將tet文字中的內容輸入到陣列裡去
樓上的做人要厚道啊 dima asstring redim a len text1.text 1 asstring fori 0 tolen text1.text 1 a i mid text1.text,i 1,1 next 補充 不知道你是不是用vb除錯的,是不是忘了新增控制元件,我在知道里的回...
如何將中的提撒來，如何將乙個word文件中的一頁提取出來
word中用複製貼上去提取一頁容易格式變化，可以把當前文件另存乙份，然後把除所需頁外的所有頁面刪除，就可以變為只有一頁的文件，步驟如下 所需材料 word。一 首先開啟原文件，點選左上角 選項 二 彈出的選單內滑鼠移到 另存為 三 接著點選 word 文件 把此文件另存乙個文件。四 開啟另存的文件，...
請問vb如何將字串中以若干個空格間隔的資料，分別顯示在list上
private sub command1 click dim a,b as string dim c,i as integer a text1.text b replace a,c split a for i 0 to ubound c list1.additem c i next i end su...