Question

求一个用VB制作的简单动画，可以控制的那种，点一个控件就可以运行，再点一个又可以停止的那种，

发到我邮箱496238415@qq.com

方便的话可以教教我，我想学啊

Answer 1

先用shape画一个图形（圆啊，方啊都可以），命名shape1，另外放两个按钮Command1 Command2，再放个Timer,Timer的有一个In什么的属性改成100
极其简单，此代码未实际检验，应该没有问题，点击Pause暂停，再点Start继续。有问题找我
代码
Dim a as integer
Dim b as Boolean
Private Sub Form_Load()
Command1.caption="Pause"
Command2.caption="Start"
Timer1.enable=true
End Sub
Private Sub Command1_Click()
Timer1.enable=false
End sub
Private Sub Command2_Click()
Timer1.enable=true
End sub
Private Sub Timer1_Timer()
If a>3000 then b=true
If a<100 then b=false
If b=true then a=a-5
If b=false then a=a+5
Shape1.left=a
End Sub

Shape1.left=a

追问

代码好象没有问题，就是怎么把图片放进去？
好像 Private Sub Form_Load()这一句有问题，说什么未找到方法或数据成员，
而且 command 也没有变成 start或Pause

追答

图片的话用其他控件，把shape换掉即可。
我犯了一个很严重的错误，是拼写错误，请把所有Timer1.enable后面加一个d，变成enabled。因为我昨天写这个时没在VB中写，直接写的文本，所以漏掉d也不知道，给您带来不便，很抱歉！

追问

你能帮我做一个吗，研究半天，实在是不会啊，然后和素材一起发给我，可以吗？？

Answer 2

你好，程序已发，请采纳