中科新闻网杨绛译堂吉诃德评价:有什么vb函数可以返回背景图的颜色啊
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 14:51:47
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 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
上面要改什么啊
这段代码是我写的，请问你所说的“上面要改什么”是什么意思，你不是要得到窗体上的某个地方的颜色值吗？其中的me.point（）就是获取当前位置的颜色值啊，你可以直接这样就可以得到您要的颜色值，后面的
r = Tcolor Mod 256 '分解出红色值
g = (Tcolor \ 256) Mod 256 '分解出绿色值
b = Tcolor \ 256 \ 256 '分解出兰色值
这三行是我告诉你怎么样将某一颜色值分解成三原色的各单色值，后面再利用RGB函数合成而已啊，就这么简单。
加我QQ:
316250462.
有机会研究研究！