Re: [VB6 ] 以Picture2_click做出R.G.B值(附圖)
※ 引述《drcgs (友誼長~~~久!!!)》之銘言：
: 請教各位一下
: 如下圖中的圖2是灰階化後的圖片(彩色變灰色)
: http://i228.photobucket.com/albums/ee156/pro2s/vb6.jpg
: 那我在底下有設一個面版(如圖的面版3)
: 假使我滑鼠移到圖2的某點
: 程式會自動判斷 R.G.B的代碼 0~255 數字越少越深
: 這樣子的話可否給我觀念或者提示!! 我弄不出我要的資料!!
: 謝謝
在Picture1使用滑鼠移動事件取得X Y
再使用Point讀出像素資訊？ 在分別將RGB讀出
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Dim Blue, Green, Red
RGBx = Picture1.Point(X, Y)
Blue = Int(RGBx / 65536)
RGBx = RGBx Mod 65536
Green = Int(RGBx / 256)
Red = RGBx Mod 256
Text1.Text = Blue & "," & Green & "," & Red
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.185.37
推
03/13 13:18, , 1F
03/13 13:18, 1F