Question

VB程序设计 详情

3、设计一个画板程序，程序运行后可以根据选择的线型的粗细、颜色，用鼠标的左键模拟笔在绘图区随意绘图，用鼠标的右键可擦除所绘制的线条，要求：

（1） 绘图区使用图片框，名称为picture1,并将其设置为固定边框，白色背景。

（2） 单击“清除”按钮则清除图片框中的图形。

（3） 粗细线型分别设置为1磅和5磅（设置图片框的Drawwidth属性）,标题为“细”的单选钮名称是option1, 标题为“粗”的单选钮名称是option2。

请依据设计界面编写详细的代码。

程序设计界面如图所示：

Answer 1

Dim Drawing As Boolean
Private Sub Command1_Click()
  Picture1.Cls
End Sub

Private Sub Command2_Click()
  CommonDialog1.Action = 3
  Picture1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Form_Load()
  Picture1.BackColor = vbWhite
  Drawing = False
End Sub

Private Sub Option1_Click()
  Picture1.DrawWidth = 1
End Sub

Private Sub Option2_Click()
  Picture1.DrawWidth = 5
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Drawing = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Drawing Then
    If Button = vbLeftButton Then
      If Option1.Value Then
        Picture1.DrawWidth = 1
      ElseIf Option2.Value Then
        Picture1.DrawWidth = 5
      Else
        Picture1.DrawWidth = 1
      End If
      Picture1.ForeColor = CommonDialog1.Color
    ElseIf Button = vbRightButton Then
      Picture1.DrawWidth = 10
      Picture1.ForeColor = Picture1.BackColor
    End If
    Picture1.PSet (X, Y)
  End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Drawing = False
End Sub

Answer 2

我有现成的毕业设计，你要不，可以发给你不过要100分

追问

我是上机测试