مساعدة: تحريك Label..

كود تحريك الليبل

Dim Str1 as string
do
doevents
str1=left(label1.caption,1)
str1=label1.caption & str1
label1.caption=Right(str1,Len(str1)-1)
loop

;) ;) :rolleyes:

مساء الخير آخي شريف عادل

لقد وضعت الكود في label15 ولم يتحرك الليبل ما هو السبب

ارجو مساعدتي في وضع الكود في الليبيل حتى يشتغل الكود

وجزاك الله الف خير على مساعدتك

انا بنتظر ردك

السلام عليكم ورحمة الله وبركاته

جرب الكود التالى مع TextBox

ضع TextBox سميها Text1 وزر وسميه Command1

Private Sub Command1_Click()
Dim Str1 As String
On Error Resume Next
Do
DoEvents
Str1=Left(Text1.Text,1)
Str1=Text1.Text & Str1
Text1.Text=Right(Str1,Val(Len(Str1)-1))
Str1=""
Loop
End Sub

وأكتب بالتكست أى جمله ثم إضغط على المفتاح Command1 وسوف تجد الجمله تتحرك من اليمين الى اليسار

وإذا لم يكن هذا مطلبك فوضح أكثر

وطريقة التعامل مع الليبل نفس طريقه التعامل مع التكست ولكن بتغيير الخاصيه

من  .Text الى .Caption

;) ;) :rolleyes: