如何用vb设计简单绘图软件并实现功能

来源：百度知道 编辑：UC知道 时间：2024/07/03 16:14:45
主要功能：
实现点、圆、椭圆、线条绘制功能
实现界面清空功能
实现用户所选颜色绘图功能
用户输入6个数，实现从小到大排序功能

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"