用VB编写画图程序

提供一个绘制任意曲线的简单代码。其他功能类似，希望能举一反三。

在窗体中添加一个Picture box，然后输入命令如下：

Dim oldx As Single

Dim oldy As Single

 Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then       '当鼠标左建按下时发生

        Picture1.Line (oldx, oldy)-(X, Y)

        oldx = X

        oldy = Y

    End If

End Sub

  

Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    oldx = X

    oldy = Y

End Sub

Dim mouse As Boolean

Private Sub Command1_Click()

Form1.DrawWidth = 10

End Sub

Private Sub Command10_Click()

Form1.ForeColor = RGB(0, 255, 0)

End Sub

Private Sub Command11_Click()

Form1.ForeColor = RGB(0, 0, 255)

End Sub

Private Sub Command12_Click()

If List1.Text = "正黄色" Then Form1.ForeColor = RGB(255, 255, 0)

If List1.Text = "天蓝色" Then Form1.ForeColor = RGB(0, 255, 255)

If List1.Text = "粉红色" Then Form1.ForeColor = RGB(255, 0, 255)

If List1.Text = "其它颜色1" Then Form1.ForeColor = RGB(0, 135, 135)

If List1.Text = "其它颜色2" Then Form1.ForeColor = RGB(135, 0, 135)

If List1.Text = "其它颜色3" Then Form1.ForeColor = RGB(65, 65, 65)

If List1.Text = "其它颜色4" Then Form1.ForeColor = RGB(100, 100, 100)

If List1.Text = "其它颜色5" Then Form1.ForeColor = RGB(200, 200, 200)

If List1.Text = "其它颜色6" Then Form1.ForeColor = RGB(150, 150, 150)

If List1.Text = "其它颜色7" Then Form1.ForeColor = RGB(35, 160, 65)

If List1.Text = "其它颜色8" Then Form1.ForeColor = RGB(65, 35, 160)

End Sub

Private Sub Command2_Click()

Form1.DrawWidth = 15

End Sub

Private Sub Command3_Click()

Form1.DrawWidth = 5

End Sub

Private Sub Command4_Click()

Form1.ForeColor = RGB(255, 255, 255)

Form1.DrawWidth = 12

End Sub

Private Sub Command5_Click()

Form1.BackColor = RGB(135, 135, 0)

End Sub

Private Sub Command6_Click()

Form1.ForeColor = RGB(135, 135, 0)

Form1.DrawWidth = 12

End Sub

Private Sub Command7_Click()

Form1.BackColor = RGB(255, 255, 255)

End Sub

Private Sub Command8_Click()

Label1.Caption = "当前时间:" &Time

End Sub

Private Sub Command9_Click()

Form1.ForeColor = RGB(255, 0, 0)

End Sub

Private Sub Form_Load()

mouse = False

Form1.DrawWidth = 10

List1.List(0) = "正黄色"

List1.List(1) = "天蓝色"

List1.List(2) = "粉红色"

List1.List(3) = "其它颜色1"

List1.List(4) = "其它颜色2"

List1.List(5) = "其它颜色3"

List1.List(6) = "其它颜色4"

List1.List(7) = "其它颜色5"

List1.List(8) = "其它颜色6"

List1.List(9) = "其它颜色7"

List1.List(10) = "其它颜色8"

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

mouse = True

Form1.PSet (X, Y)

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If mouse Then Form1.PSet (X, Y)

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

mouse = False

End Sub

---