作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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

相关软件：