实验五:能动的图形
一、 实验目的
用VB绘制图形并使其运动
绘制圆形并运动的程序代码实验内容
二、 实验步骤
在窗体中使用了一个按钮、一个计时器,并且用shape控件绘制了一个圆。
Dim g As Boolean
Dim x As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
g = True
x = Shape1.Left
End Sub
Private Sub Timer1_Timer()
If g Then
x = x - 300
Else
x = x + 300
End If
If x < 0 Or x > (Me.ScaleWidth - Shape1.Width) Then
g = Not g
End If
Shape1.Move x
End Sub
三、 遇到的问题及解决的方法
不了解编写能动图形的程序,不能顺利地完成实验。
通过请教学过的学姐学长,网上搜索需要的知识理论,完成实验、
四、 心得体会
每个问题都是一个挑战,不要畏惧无知和困难,积极的寻求解决之道才可以不断进步与完善自己。最大的体会:无畏。世界上没有跨不过的困难,在任何困难都会有解决的办法,积极寻找解决之道,最终总会得到成功。