Private flag As Boolean
Private Sub close_Click()
Call Command2_Click
End Sub
Private Sub Command1_Click()
Picture1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Picture1.Scale (0, 0)-(1000, 1000)
HScroll1.Value = 5
Label5.Caption = "线宽：" & HScroll1.Value
Picture1.backcolor = Label6.backcolor
End Sub
Private Sub HScroll1_Change()
Picture1.DrawWidth = HScroll1.Value
Label5.Caption = "线宽：" & HScroll1.Value
End Sub
Private Sub Label2_Click(Index As Integer)
Label1.backcolor = Label2.Item(Index).backcolor
Picture1.forecolor = Label1.backcolor
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
flag = True
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If flag Then
Picture1.PSet (X, Y)
End If
Label3.Caption = "X:" & Int(Str(X))
Label4.Caption = "Y:" & Int(Str(Y))
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
flag = False
End If
End Sub
我做的一个，没怎么昨晚的，但是应该对你有用
