VB中,一行字从右边移到左边,然后再从右边出现移到左边,代码应该是怎么样的??求回答~~谢谢!!

我只写到这一步:Submymove()Label1.MoveLabel1.Left-50IfLabel1.Left>Form1.WidthThenLabel1.接下去怎么... 我只写到这一步:
Sub mymove()
Label1.Move Label1.Left - 50
If Label1.Left > Form1.Width Then Label1.
接下去怎么试都不对。。。忘大侠指点迷津!!!
展开
 我来答 举报
syx54
2012-02-27 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2730万
展开全部
要看到动画效果,添加1个Timer控件吧!就是控件工具箱上的那个时钟一样的图标:
然后选中窗体上的Timer1,将它的属性Interval 设置为1000,该属性决定动画演变的速度.
1000相当于1秒钟执行1次Timer1_Timer()事件,然后双击窗体上的Timer1,编写代码:
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 50
If Label1.Left <= -Label1.Width Then
Label1.Left = Me.Width
End If
End Sub
如果要提高速度,就减小属性Interval 的值.
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
炫斯你9
2012-02-27 · 超过68用户采纳过TA的回答
知道小有建树答主
回答量:202
采纳率:0%
帮助的人:171万
展开全部
这个用left属性控制比较麻烦 给你个简单的:
添加个 Timer1, Timer1.interval=100
添加个 Label1 里面添加些字符,比方说"一行字从右边移到左边"
再用 Label1 = " " & Label1加强下,这样效果好看点。

Private Sub Timer1_Timer()
Label1 = Right(Label1, Len(Label1) - 1) & Left(Label1, 1)
End Sub
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
wangaamao
2012-02-26 · TA获得超过122个赞
知道小有建树答主
回答量:139
采纳率:0%
帮助的人:127万
展开全部
第二句话错啦
if label1.left<=0 then label1.left=form1.width
我电脑没有vb ,直接写的,试试看对不
追问
弱弱地问一句,怎样修改已经保存过的工程的代码,我用VB6.0打开已保存的工程,只能运行,不知道应该怎样修改代码。。。
本回答被提问者采纳
1 已赞过 已踩过<
你对这个回答的评价是?
评论(1) 举报 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式