九州编程
Point 方法按照长整数,返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。不支持命名参数。语法object.Point(x, y)示例代码,可将窗体上载入图片的指定磅的颜色取出红,绿,蓝成份1234567891011Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim sd As Long Dim sdr As Byte Dim sdg As Byte Dim sdb As Byte sd = Point(X, Y) sdr = (Val(sd) Mod 65536) Mod 256 'Red sdg = (Val(sd) Mod 65536) \ 256 'Green sdb = Val(sd) \ 65536 'Blue Shape1.FillColor = RGB(sdr, sdg, sdb)End Sub