tgp旧版本客户端下载:有什么vb函数可以返回所在区域的颜色啊

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/30 06:41:10
在做vb时时想要知道所在区域的颜色啊
请问Dim r As Integer, g As Integer, b As Integer 什么意思

Private Sub Form_Click()
Dim Tcolor As Long
Dim Color As OLE_COLOR
Dim r As Integer, g As Integer, b As Integer
Tcolor = Me.Point(x, y) '获取当前位置的颜色,x,y为鼠标在当前位置的坐标
r = Tcolor Mod 256 '分解出红色值
g = (Tcolor \ 256) Mod 256 '分解出绿色值
b = Tcolor \ 256 \ 256 '分解出兰色值
Color = RGB(r, g, b) '利用RGB函数将分解后的各单色合成
MsgBox Color
'弹出颜色值
End Sub
Dim r As Integer, g As Integer, b As Integer这是对下面要使用的变量进行声明啊,其中r是单词red的缩写啊,g是单词green的缩写,b是单词blue的缩写啊,这三个单词的意思应该不用说吧, 然后下面就可以使用这三个变量进行代码编写啊。