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

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值