VB label 的左右移动

label1向右移动到最右边后，会向左移动。当移到最左边时，再向右移。请看是否能帮助到你。

'如果标签的Left加上移动步长小于0，则认为标签达到左边界 '如果标签的Left加上移动步长大于窗体宽度减去标签自身宽度，则认为标签到达右边界 '标签如果达到左右边界，则对其移动步长反向。If Label1.Left + mMove <= 0 Or Label1.Left + mMove >= Me.Width - Label1.Width Then mMove = -mMove ...

1、第一步，在桌面上单击VisualBasic6.0，见下图，转到下面的步骤。2、第二步，完成上述步骤后，选择“标准EXE”选项，然后单击“打开”按钮，见下图，转到下面的步骤。3、第三步，执行完上面的操作之后，分别在窗体中创建一个label控件，两个command控件和一个timer控件，见下图，转到下面的步骤。4、...

1，如果每间隔一段时间增加Left属性，看到的效果就是向右移动。2，如果每间隔一段时间减少Left属性，看到的效果就是向左移动。3，如果每间隔一段时间增加Top属性，看到的效果就是向下移动。4，如果每间隔一段时间减少Top属性，看到的效果就是向上移动。要产生每间隔一段时间，去移动控件，通常用Timer控件...

左移Label1.left= Label1.left－步长 右移Label1.left= Label1.left＋步长 斜移：同时进行上边上下与左右的一个组合 例子：text1输入步长，'tag 确定方向，比如上tag=1,下tag=-1 Private Sub MyMove(ByVal tag%)Label1.Top = Label1.Top + tag * Val(Text1)Label1.Left = Label1.Left ...

Then 每次移距 = -(每次移距) '往返移动End IfLabel1.Left = Label1.Left + 每次移距End Sub'【如果Label1的Left超出[路程总长],那么 Label1就往左】Or'【如果Label1的Left少于[-Label1的宽度],那么 Label1就往右】'[Or]两边的表达式只有其中有一个成立 就返回并‘向下’继续执行。

MOve 方法移动标签，判断其 Left 属性，如果其Left属性大于窗口的 Width ，则把其 Left 属性归零，这样即可实现你所说的，从窗体左边进去，走到最右边后再回到左边来，可以用 Timer 来实现 在窗体上添加一个Label和一个Timer控件，把下面的代码复制到到你的窗体代码那里运行就可以看到效果了 代码如下...

private sub Form_load()timer1.interval=500'窗体出现时，定义定时器的出发间隔为0.5s timer1.enabled=true'定时器启动 end sub private sub timer1_time()label1.left=label1.left+100'label1的左边距离，每0.5s向右移动100，由于文字位于Label上，因此label移动，就会看到文字移动的效果 end sub ...

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Select Case KeyCode Case 38 'Up If Label1.Top > 100 Then Label1.Top = Label1.Top - 100 Case 37 'Left If Label1.Left > 100 Then Label1.Left = Label1.Left - 100 Case 39 'Right If Label1.Left + Label1....

Private Sub Form_Load()With Label1 .BackStyle = 0 .AutoSize = True .Caption = "滚动字幕的演示"End With Timer1.Interval = 10 End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Label1.Left = Label1....