منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طريقة جعل الكتابه تظهر في الليبل افقياً بلتوالي كما في شريط الاخبار في القنوات؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31248)



طريقة جعل الكتابه تظهر في الليبل افقياً بلتوالي كما في شريط الاخبار في القنوات؟ - alshamy - 07-09-19

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



RE: طريقة جعل الكتابه تظهر في الليبل افقياً بلتوالي كما في شريط الاخبار في القنوات؟ - fouadhdfouad - 07-09-19

(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




RE: طريقة جعل الكتابه تظهر في الليبل افقياً بلتوالي كما في شريط الاخبار في القنوات؟ - alshamy - 07-09-19

(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

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



RE: طريقة جعل الكتابه تظهر في الليبل افقياً بلتوالي كما في شريط الاخبار في القنوات؟ - ابراهيم ايبو - 07-09-19

السلام عليكم اخي الكريم
راجع هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=31051