4线进气压力传感器检测:VB中取一个点色素的函数是什么?谢谢!

来源：百度文库编辑：高校问答时间：2024/04/29 23:35:41

使用Point方法.
窗体判色代码:
Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub

PictureBox判色代码:

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
Text3 = Picture1.Point(X, Y)
Text4 = (Val(Text3) Mod 65536) Mod 256 'Red
Text5 = (Val(Text3) Mod 65536) \ 256 'Green
Text6 = Val(Text3) \ 65536 'Blue
Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub

VB中取一个点色素的函数是什么?谢谢! 谁能告诉我用vb取一个点的颜色值的那个函数是什么？谢谢！想知道VB中精确到分秒的函数是什么？谢谢 VB中压缩字符串的函数是什么 vb中画矩形的函数是什么 vb中，画矩形的函数的函数是什么请问VB中直接读取磁盘扇区的函数是什么，谢谢？请问VB中直接读取磁盘扇区的函数是什么，谢谢？ VB中LOF函数溢出的问题！！！谢谢！！！ vb 中如何查看一个陌生函数的返回值？