Dim lngColor As Long
Dim intRed As Integer, intGreen As Integer, intBlue As Integer
lngColor = Form1.Point(1, 1) '取得颜色值,括号内为坐标值
'分解成RGB
intRed = lngColor Mod 256
intGreen = (lngColor \ 256) Mod 256
intBlue = lngColor \ 65536
Dim intRed As Integer, intGreen As Integer, intBlue As Integer
lngColor = Form1.Point(1, 1) '取得颜色值,括号内为坐标值
'分解成RGB
intRed = lngColor Mod 256
intGreen = (lngColor \ 256) Mod 256
intBlue = lngColor \ 65536
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货