VB怎么让标签自右往左移动

发布网友发布时间：2022-05-06 02:47

我来回答

共3个回答

热心网友时间：2022-06-28 13:19

方法和详细的操作步骤如下：

1、第一步，在桌面上单击VisualBasic6.0，见下图，转到下面的步骤。

2、第二步，完成上述步骤后，选择“标准EXE”选项，然后单击“打开”按钮，见下图，转到下面的步骤。

3、第三步，执行完上面的操作之后，分别在窗体中创建一个label控件，两个command控件和一个timer控件，见下图，转到下面的步骤。

4、第四步，执行完上面的操作之后，将“label”的标题更改为“
欢迎来到VB！”，将command1的caption更改为“手动”，并将command2的caption更改为“自动”，见下图，转到下面的步骤。

5、第五步，执行完上面的操作之后，效果见下图，转到下面的步骤。

6、第六步，执行完上面的操作之后，双击打开编辑代码窗口，见下图，转到下面的步骤。

7、第七步，执行完上面的操作之后，单击“F5”键查看运行效果。
单击“自动”将自动从左到右移动，单击“手动”切换到手动模式，单击任意位置将停止，见下图。这样，就解决了这个问题了。

热心网友时间：2022-06-28 13:19

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
即可

热心网友时间：2022-06-28 13:20

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