VB怎么让标签自右往左移动
自左往右我会PrivateSubCommand1_Click()Timer1.Interval=0CallMyMoveEndSubPrivateSubCommand2_C...
自左往右我会Private Sub Command1_Click()
Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Command2_Click()
Timer1.Interval = 200
End Sub
Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Left + 50, Label1.Top
If Label1.Left > Form1.Width Then Label1.Left = 0
End Sub
但是右往左怎么弄?把left改成right不行啊,求高手解答 展开
Timer1.Interval = 0
Call MyMove
End Sub
Private Sub Command2_Click()
Timer1.Interval = 200
End Sub
Private Sub Form_Load()
Timer1.Interval = 0
End Sub
Private Sub Timer1_Timer()
Call MyMove
End Sub
Sub MyMove()
Label1.Move Label1.Left + 50, Label1.Top
If Label1.Left > Form1.Width Then Label1.Left = 0
End Sub
但是右往左怎么弄?把left改成right不行啊,求高手解答 展开
3个回答
展开全部
方法和详细的操作步骤如下:
1、第一步,在桌面上单击VisualBasic6.0,见下图,转到下面的步骤。
2、第二步,完成上述步骤后,选择“标准EXE”选项,然后单击“打开”按钮,见下图,转到下面的步骤。
3、第三步,执行完上面的操作之后,分别在窗体中创建一个label控件,两个command控件和一个timer控件,见下图,转到下面的步骤。
4、第四步,执行完上面的操作之后,将“label”的标题更改为“
欢迎来到VB!”,将command1的caption更改为“手动”,并将command2的caption更改为“自动”,见下图,转到下面的步骤。
5、第五步,执行完上面的操作之后,效果见下图,转到下面的步骤。
6、第六步,执行完上面的操作之后,双击打开编辑代码窗口,见下图,转到下面的步骤。
7、第七步,执行完上面的操作之后,单击“F5”键查看运行效果。
单击“自动”将自动从左到右移动,单击“手动”切换到手动模式,单击任意位置将停止,见下图。这样,就解决了这个问题了。
展开全部
Label1.Move Label1.Left + 50, Label1.Top
If Label1.Left > Form1.Width Then Label1.Left = 0
改为
Label1.Move Label1.Left - 50, Label1.Top
If Label1.Left+Label1.width <0 Then Label1.Left = Form1.Width
即可
If Label1.Left > Form1.Width Then Label1.Left = 0
改为
Label1.Move Label1.Left - 50, Label1.Top
If Label1.Left+Label1.width <0 Then Label1.Left = Form1.Width
即可
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
While Not Label1.Left > Me.Width + Label1.Width
aa: DoEvents
Label1.Left = Label1.Left + 1
If Label1.Left > Me.Width - Label1.Width Then GoTo bb
Wend
While Not Label1.Left < 0
bb: DoEvents
Label1.Left = Label1.Left - 1
If Label1.Left < 0 Then GoTo aa
Wend
End Sub
While Not Label1.Left > Me.Width + Label1.Width
aa: DoEvents
Label1.Left = Label1.Left + 1
If Label1.Left > Me.Width - Label1.Width Then GoTo bb
Wend
While Not Label1.Left < 0
bb: DoEvents
Label1.Left = Label1.Left - 1
If Label1.Left < 0 Then GoTo aa
Wend
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询