[alshamy]

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

اخواني الافاضل من كم سنه و انا اعمل على مشروعي و هو برنامج شريط اخباري يستخدم في القنوات التلفزيونيه واجهتني مشكله واحدة فقط

و هي عند الكتابه تظهر سطر اسفل سطر اقصد بعد الكتابه في التكست بوكس و ارساله الى الليبل لا تظهر كما يظهر في الشريط الاخباري التلفزيوني حيث تظهر الاخبار في التوالي خبر بعد خبر اريد طريقه او حل لهذه المشكله لا اعرف هل المشكلة في الليبل او في التكست بوكس .

مع فائق الشكر و التقدير.

[fouadhdfouad]

(07-09-19, 04:16 AM)alshamy كتب :

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

اخواني الافاضل من كم سنه و انا اعمل على مشروعي و هو برنامج شريط اخباري يستخدم في القنوات التلفزيونيه واجهتني مشكله واحدة فقط

و هي عند الكتابه تظهر سطر اسفل سطر اقصد بعد الكتابه في التكست بوكس و ارساله الى الليبل لا تظهر كما يظهر في الشريط الاخباري التلفزيوني حيث تظهر الاخبار في التوالي خبر بعد خبر اريد طريقه او حل لهذه المشكله لا اعرف هل المشكلة في الليبل او في التكست بوكس .

مع فائق الشكر و التقدير.

السلام عليكم اخي الكريم

تفضل اخي اكتب ما تريد في label 

اضف مكون Timer ثم ضع هدا الكود 

كود :

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
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       With Timer1
           .Enabled = True
           .Interval = 100
       End With
   End Sub

[alshamy]

(07-09-19, 10:57 AM)fouadhdfouad كتب :

(07-09-19, 04:16 AM)alshamy كتب :

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

اخواني الافاضل من كم سنه و انا اعمل على مشروعي و هو برنامج شريط اخباري يستخدم في القنوات التلفزيونيه واجهتني مشكله واحدة فقط

و هي عند الكتابه تظهر سطر اسفل سطر اقصد بعد الكتابه في التكست بوكس و ارساله الى الليبل لا تظهر كما يظهر في الشريط الاخباري التلفزيوني حيث تظهر الاخبار في التوالي خبر بعد خبر اريد طريقه او حل لهذه المشكله لا اعرف هل المشكلة في الليبل او في التكست بوكس .

مع فائق الشكر و التقدير.

السلام عليكم اخي الكريم

تفضل اخي اكتب ما تريد في label 

اضف مكون Timer ثم ضع هدا الكود 

كود :

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
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       With Timer1
           .Enabled = True
           .Interval = 100
       End With
   End Sub

اخي العزيز شكراً لك على ردك على سؤالي و لاكن انا هاي الطريقه عملتها و كلشي تمام بس المشكله من من اضيف الاخبار و كما تعرف الاخبار تظهر بشكل افقي ليس افقي يعني خبر بعد خبر يظهر و ليس خبر اسفل خبر ارفقة لك مثال حتى توضح عندك الفكره.

[ابراهيم ايبو]

السلام عليكم اخي الكريم

راجع هذا الموضوع

http://vb4arb.com/vb/showthread.php?tid=31051