Dim paintnow As Boolean

Private Sub Form_DblClick()
Cls
End Sub

Private Sub Form_Load()
DrawWidth = 2
ForeColor = RGB(0, 0, 225)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Inte

展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 夏雨

    13人对此回答表示赞同

    Dim paintnow As Boolean‘定义paintnow 为布尔值
    Private Sub Form_DblClick()'窗体双击时执行下面的动作
    Cls'清空窗体输出的内容
    End Sub'结束窗体双击事件

    Private Sub Form_Load()'窗体载入时执行下面的事件
    DrawWidth = 2'变量赋值
    ForeColor = RGB(0, 0, 225)'
    展开
    13
    0回复
    发布于 5年前

    评论(0)

    收起评论

  • Sebastian

    1人对此回答表示赞同

    解释一题:
    Dim paintnow As Boolean ‘定义paintnow 为布尔型变量,值为True或False
    Private Sub Form_DblClick() '窗体双击事件
    Cls '清空窗体
    End Sub

    Private Sub Form_Load() '窗体载入事件
    DrawWidth = 2 '指定画点的点宽
    ForeColor = RGB(0, 0, 2
    展开
    1
    0回复
    发布于 5年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部