نوشته متحرک در لیبل

[raina123]

سلام من می خوام متن درون یه لیبل به طور خودکار حرکت کند می خواستم ببینم چطوری ممکن هست ؟

ممنون

[محسن واژدی]

سلام
راه های مختلفی وجود دارد، به عنوان نمونه برچسب را در یک picture-box قرار داده و با استفاده از تایمر آنرا حرکت دهیم، نمونه زیر را بررسی کنید

موفق باشید

[بهروز عباسی]

Rem Programmer : Behrooz Abbasi

Rem www.programming-co.com

Dim x As Integer

Dim z As Boolean

Private Sub Form_Load()

  Timer1.Enabled = True

  Timer1.Interval = 100

  Label1.Caption = "SAM"

  x = 0

  z = True

End Sub

Private Sub Timer1_Timer()

   If z = True Then

        x = x + 2

      If x < 100 Then

         Label1.Caption = Space(2) + Label1.Caption

      Else

         z = False

      End If

    Else

        x = x - 1

     If x > 2 Then Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption))

     If x < 2 Then z = True: Label1.Caption = Space(1) = Label1.Caption: Label1.Caption = "SAM"

    End If

End Sub