今天我们学习了图形与绘图操作,老师跟我们分析了坐标系统,也教会我们通过属性的设置可以控制窗体颜色或控件颜色。分析了基本的操作步骤后,老师通过在屏幕上的操作,绘制了各种变化的图形,随机的图形。然后让我们在电脑上自己让程序随机不定时间生成随机种类的图形并且生成多个。
我在电脑上通过下列代码,绘制了多个图形。
Private Sub Form_MouseDown(Button As Int)
Dim count As Integer
Count=Int (Rnd *6500)
‘While count = 3
Fillstyle=Int (Rnd *8)
Private Timer1_Timer( )
Dim count As Integer
‘Step = 2
Count=Int (Rnd *6500)
Fillcolr = QBColor(Int (Rnd *15))
Fillstyle =Int (Rnd*8)
Circle(x,y),Int (Rnd*8)
‘Me,Drawwidth =Int (Rnd *8)+1
Line(1500,800) –(2000+Step)
‘Timer1.Enabled=False
End Sub
但是不是道哪里出错了,不能够生成随机的图形,能够变化多种颜色。而且到现在都还没有解决。