用vb制作简单的画板

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