VB中,一行字从右边移到左边,然后再从右边出现移到左边,代码应该是怎么样的??求回答~~谢谢!!
我只写到这一步:Submymove()Label1.MoveLabel1.Left-50IfLabel1.Left>Form1.WidthThenLabel1.接下去怎么...
我只写到这一步:
Sub mymove()
Label1.Move Label1.Left - 50
If Label1.Left > Form1.Width Then Label1.
接下去怎么试都不对。。。忘大侠指点迷津!!! 展开
Sub mymove()
Label1.Move Label1.Left - 50
If Label1.Left > Form1.Width Then Label1.
接下去怎么试都不对。。。忘大侠指点迷津!!! 展开
3个回答
展开全部
要看到动画效果,添加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 的值.
然后选中窗体上的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 的值.
展开全部
这个用left属性控制比较麻烦 给你个简单的:
添加个 Timer1, Timer1.interval=100
添加个 Label1 里面添加些字符,比方说"一行字从右边移到左边"
再用 Label1 = " " & Label1加强下,这样效果好看点。
Private Sub Timer1_Timer()
Label1 = Right(Label1, Len(Label1) - 1) & Left(Label1, 1)
End Sub
添加个 Timer1, Timer1.interval=100
添加个 Label1 里面添加些字符,比方说"一行字从右边移到左边"
再用 Label1 = " " & Label1加强下,这样效果好看点。
Private Sub Timer1_Timer()
Label1 = Right(Label1, Len(Label1) - 1) & Left(Label1, 1)
End Sub
展开全部
第二句话错啦
if label1.left<=0 then label1.left=form1.width
我电脑没有vb ,直接写的,试试看对不
if label1.left<=0 then label1.left=form1.width
我电脑没有vb ,直接写的,试试看对不
追问
弱弱地问一句,怎样修改已经保存过的工程的代码,我用VB6.0打开已保存的工程,只能运行,不知道应该怎样修改代码。。。
本回答被提问者采纳
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询