作者yuchiuan (tema)
看板Visual_Basic
标题Re: [VB6 ] 以Picture2_click做出R.G.B值(附图)
时间Tue Mar 10 11:46:09 2009
※ 引述《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
1F：推 drcgs:我之前有弄出来^^ 不过感谢你回文 .. 03/13 13:18