+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تحريك نص داخل Label (/showthread.php?tid=27094)
تحريك نص داخل Label - Simo1991 - 24-10-18
السلام عليكم
أريد تحريك نص داخل Label عملت محاولة اشتغل لكن مرة واحدة فقط حيت يتحرك النص وعند اختفائه لايظهر مرة اخرى .. أريد ان يتكرر الأمر
الكود في Timer
كود :
Form1.Label1.Left -= 5جزاكم الله خيرا
RE: تحريك نص داخل Label - alsouf - 24-10-18
نضيف المكون المرفق StringAnimator للمشروع ثم نبني المشروع Build
تظهر الاداة الهدف في اعلى صندوق الادوات نضيفها للنموذج و نغيير خصائصها مثل النص و الخلفية ... الخ
نكتب الدوال الوظيفية التالية في محرر الشفرات:
--------------------------
ننتقل للمحرر ونكتب شفرة الوظيفة التالية: في وسط الفئة (الكلاس)
Private Function TryIndent(ByVal func As Func(Of String, String)) As Boolean
Dim source As String = Nothing
Return TryIndent(source, func)
End Function
--------------------------------
ثم شفرة الدالة الوظيفية
Private Function TryIndent(ByRef source As String, ByVal func As Func(Of String, String)) As Boolean
While func IsNot Nothing
Dim src As String = source
Dim dest As String = func(src)
If src = dest Then
Exit While
End If
If src <> dest Then
Return True
End If
End While
Return False
End Function
----------------------------------------------------------
في الزر المنفرد اذا اردنا نكتب الشفرة التالية :يمكننا جعل زر للبداية و اخر للتوقيف.
Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles BtnStart.Click
If BtnStart.Text = "Start Animation" Then
StringAnimator1.StartAnimaion()
BtnStart.Text = "Stop"
Else
Me.StringAnimator1.StopAnimaion()
BtnStart.Text = "Start Animation"
End If
-------------------------------
المكون و التفاصيل و الشفرات مرفقة مع الشرح
RE: تحريك نص داخل Label - سعود الشامان - 24-10-18
اضافه الى ماذكره الاخوان
https://youtu.be/rzPR3qLtgE0
RE: تحريك نص داخل Label - fouadhdfouad - 25-10-18
PHP كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Left -= 5
If Label1.Left <= -Width Then
Label1.Left = Width
End If
End Sub