Private Sub Form_Load()
Picture1.DrawWidth = HScroll1.Value
End Sub
Private Sub HScroll1_Change()
Picture1.DrawWidth = HScroll1.Value
End Sub
Private Sub Label0_Click(Index As Integer)
If Index = 4 Then
Form2.Show
Else
Picture1.ForeColor = Label0(Index).BackColor
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button = 1 Then Picture1.PSet (X,Y)
End Sub
Private Sub Command1_Click()
Form2.Hide
Form1.Picture1.ForeColor = Shape1.FillColor
End Sub
Private Sub Form_Load()
End Sub
Private Sub HScroll1_Change(Index As Integer)
Dim r As Integer,b As Integer,g As Integer
r = HScroll1(0).Value
g = HScroll1(1).Value
b = HScroll1(2).Value
Shape1.FillColor = RGB(r,g,b)
End Sub
Private Sub HScroll1_Scroll(Index As Integer)Call HScroll1_Change(Index)End Sub
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
