几个实验之五

实验五:能动的图形

一、    实验目的

用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

三、    遇到的问题及解决的方法

不了解编写能动图形的程序,不能顺利地完成实验。

通过请教学过的学姐学长,网上搜索需要的知识理论,完成实验、

四、    心得体会

每个问题都是一个挑战,不要畏惧无知和困难,积极的寻求解决之道才可以不断进步与完善自己。最大的体会:无畏。世界上没有跨不过的困难,在任何困难都会有解决的办法,积极寻找解决之道,最终总会得到成功。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值