VB作业题

2019年3月21日 191次阅读来源: 九宫图算法

系别：电子信息科学与技术班级：电子2班姓名：李金颖日期：3月20号 VB实验报告——实现能动的图形

Private Sub Command1_Click() Timer1.Enabled = True Timer1.Interval = 100 End Sub

Private Sub Command2_Click() Form1.Cls End Sub

Private Sub Command3_Click() Timer1 = False End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ‘Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800) ‘FillStyle = Int(Rnd * 7) ‘FillColor = QBColor(Int(Rnd * 15)) ‘Timer1.Interval = 10 End Sub

Private Sub Timer1_Timer() Form1.Circle (Int(Rnd * 8000), Int(Rnd * 8000)), Int(Rnd * 800) FillStyle = Int(Rnd * 7) FillColor = QBColor(Int(Rnd * 15)) Line (Int(Rnd * 8000),

    原文作者：九宫图算法
    原文地址: https://blog.csdn.net/lijinying1015/article/details/7470473
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。