منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] نص متحرك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] نص متحرك (/showthread.php?tid=28788)

نص متحرك - محمد مسافر - 27-02-19

ماهو النقص في الكود المرفق في المشروع
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
        If Label1.Left <= Me.Width Then
            Label1.Left += 5
        Else
            Label1.Left = -Label1.1.Width
        End If

    End Sub 


RE: نص متحرك - boudyonline - 27-02-19

تفضل يا اخي

جرب المرفق

RE: نص متحرك - elgokr - 27-02-19

كل ما عليك ان تجعل كود حدث التايمر وهو Timer1_Tick
بهذا الشكل
كود :
       If Label1.Left <= Me.Width - 20 Then
           Label1.Left += 5
       Else
           Label1.Left = -20
       End If

تحياتى لك
وتمنياتى لك التوفيق