UC知道vb关於vsroll调色的问答
来源：百度知道 编辑：UC知道 时间：2024/09/22 07:49:35
以用3条VScroll来控制颜色去画线
现在的做的程式码是
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static xx, yy
If Button = 1 Then Line (xx, yy)-(X, Y)
xx = X: yy = Y
End Sub
如果要将线段加上颜色 用3个VScroll来平均我画出来的颜色 那麼程式应该是怎样!?
现在的做的程式码是
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static xx, yy
If Button = 1 Then Line (xx, yy)-(X, Y)
xx = X: yy = Y
End Sub
如果要将线段加上颜色 用3个VScroll来平均我画出来的颜色 那麼程式应该是怎样!?
可以用RGB函数。简略代码如下：
'在代码编辑区开头输入
Dim lColor As Long
'第二段代码
lColor=RGB(VScroll1.Value ,VScroll2.Value ,VScroll3.Value)
Me.ForeColor=lColor
将第二段代码分别添加到 VScroll1、VScroll2、VScroll3 的 Change 事件中就行了。