如何用最简单的方法让一个label控件在窗体中来回动

Question

课后习题，我用时钟控件没做好

Answer 1

参考此帖中我的回复：http://community.csdn.net/Expert/topic/3461/3461179.xml?temp=.9128229

Answer 2

Private Sub Form_Load()
Randomize
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
Dim int_i, int_j As Integer    int_i = Rnd() * Me.Width
    int_j = Rnd() * Me.Height
    
    Label1.Left = int_i
    Label1.Top = int_jEnd Sub

Answer 3

楼上的方法是要label随即的飞舞
楼主是要来回走动找个教 movingtext.ocx 的控件可以实现文字的来回走动
我用的就是这个啊

Answer 4

'单位采用pix
Const speed = 2'速度
Dim f'用来判断方向Private Sub Timer1_Timer()
If Label1.Left > Form1.ScaleWidth - Label1.Width Then
f = 2
ElseIf (Label1.Left < 0) Then
f = 1
End IfIf f = 2 Then
Label1.Left = Label1.Left - speed
Else
Label1.Left = Label1.Left + speed
End IfEnd Sub

Answer 5

Option Explicit
Dim fx As Integer 'label&Ograve;&AElig;&para;&macr;&micro;&Auml;·&frac12;&Iuml;ò  1 &Icirc;&ordf;&acute;&Oacute;×ó&micro;&Agrave;&Oacute;&Ograve;
                                    '&pound;&shy;1 &Icirc;&ordf;&acute;&Oacute;&Oacute;&Ograve;&micro;&Agrave;×óPrivate Sub command1_Click()    If Command1.Caption = "&Ograve;&AElig;&para;&macr;" Then
        Command1.Caption = "&Iacute;&pound;&Ouml;&sup1;"
    Else
        Command1.Caption = "&Ograve;&AElig;&para;&macr;"
    End If
    
    Timer1.Enabled = Not (Timer1.Enabled)
    
End SubPrivate Sub Form_Load()
    Command1.Caption = "&Ograve;&AElig;&para;&macr;"
    Timer1.Enabled = False
    Timer1.Interval = 100
    fx = 1
End SubPrivate Sub Timer1_Timer()
   
    With Label1
        If .Left > ScaleWidth - .Width Or .Left < 0 Then
            fx = -1 * fx
          
        End If
       
        Label1.Move Label1.Left + fx * 100
    End With
    
End Sub