让一个红色圆每隔一秒下移100缇,当遇到窗体底部改成向上移,遇到窗体顶部改成向下移直到按按钮后停止

用VB程序实现谢谢!!!!!!下面那个运行不了出错啊~请问圆要自己画吗?... 用VB程序实现 谢谢!!!!!!
下面那个运行不了 出错啊~ 请问圆要自己画吗?
展开
 我来答
0871love
推荐于2016-08-14 · TA获得超过3518个赞
知道大有可为答主
回答量:1418
采纳率:50%
帮助的人:1606万
展开全部
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
Command1.Caption = IIf(Timer1.Enabled, "停止", "继续")
End Sub

Private Sub Form_Load()
Shape1.Shape = 3
Shape1.FillColor = vbRed
Shape1.FillStyle = 0
Shape1.BorderColor = vbRed
Timer1.Interval = 1000
Timer1.Enabled = True
Command1.Caption = "停止"
End Sub

Private Sub Timer1_Timer()
Static goUp As Boolean
Shape1.Top = Shape1.Top + IIf(goUp, -100, 100)
If goUp = True Then
If Shape1.Top < 0 Then goUp = False
Else
If Shape1.Top > Form1.ScaleHeight - Shape1.Height Then goUp = True
End If
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
topscyj
2008-06-23 · TA获得超过100个赞
知道小有建树答主
回答量:395
采纳率:0%
帮助的人:212万
展开全部
红色圆 自己画个 其实是张图片

给你思路.. 让这张图片 往下移 用 timer 控件

然后判断该图片 的底部 移到 form的底部的时候

让他 重新回到 最上面 也就是0

楼上的方法应该可用的
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式