vb基础

Dim sngdrawwidth As Single '模块级变量，保存线条宽度

Private Sub Command1_Click()'刷新恢复

Form3.Cls

End Sub

Private Sub form_mousedown(button As Integer, shift As Integer, x As Single, y As Single)

If button = 1 Then '如果按下左键

CurrentX = x: CurrentY = y

sngdrawwidth = 1

DrawWidth = sngdrawwidth

End If

End Sub

Private Sub form_mousemove(button As Integer, shift As Integer, x As Single, y As Single)

Dim lngdrawcolor As Long

If button = 1 Then '使用不同颜色

If shift = 1 Then '同时按下shift键，颜色为红色

ingdrawcolor = RGB(255, 0, 0)

ElseIf shift = 2 Then '同时按下ctrl键，颜色为vbgreen

ingdrawcolor = vbGreen

ElseIf shift = 4 Then

ingdrawcolor = &HFF000

End If

sngdrawwidth = sngdrawwidth + 0.1 '加宽线条

DrawWidth = sngdrawwidth

Line -(x, y), ingdrawcolor '画线

End If

End Sub