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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار (/showthread.php?tid=21647)

كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار - الحلوانى - 11-09-17


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

اريد  اسم  ورقم تليفون  يمر من اول يمين الفورم الى اخر الفورم  ثم يبدا من جديد   كما فى فى شريط الاخبار

ارجوا لكم كل الخير والتقدم  وزادكم الله من فضله


RE: كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار - الحلوانى - 11-09-17

الاستاذ  امير الزبيدى

حياكم الله  وزادكم الله من فضله وعلمه


RE: كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار - الحلوانى - 11-09-17

الاستاذ امير الزبيدى
سلام الله عليكم ورحمته

المثال الذى اشرت اليه يا استاذنا الفاضل  كبير وفيه اكود كثير  ولم اعرف الاستفاده منه  لقلة خبرتى عذرا

هل ممكن من فضلكم تعمل لى مثال بسيط لتحريك النص داخل الليبل

عذرا  وهذا من قله خبرتى فسامحونى


لكم كل الود والتحيه


RE: كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار - الحلوانى - 11-09-17

الاستاذ الكريم  والمبجل امير الزبيدى

شكرا لكم  واسف على تعبكم معى

وافاض عليكم الله واصبغ من النعم ظاهرة وباطنه

RE: كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار - الحلوانى - 12-09-17

الاستاذ الفاضل   امير الزيدى


الاستاذ الفاضل   احمد منصور



كل التقدير والمحبه الخالصه فى الله ولوجه الله



اسائل الله العظيم ان يجمعنا واياكم فى الجنه ويجزل لكم العطاء


RE: كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار - سعود - 12-09-17

مشاركة لاخواني اقدم اجتهادي




كود :
Dim b(5) As String
Private Sub Form_Load()
Label1.Caption = ""
b(0) = "ÓÚæÏ"
b(1) = "ãÇÖí"
b(2) = "Úáí"
b(3) = "äÇÌÍ"
b(4) = "ÚÇÑÝ"
b(5) = "íÇÓÑ"

For r = 0 To UBound(b)
Label1.Caption = Label1.Caption & b(r) & " * "
Next

End Sub

Private Sub Timer1_Timer()
If Val(Label1.Left) >= Form1.Width Then Label1.Left = 0 - Label1.Width
Label1.Left = Label1.Left + 10
Me.Caption = Label1.Left
End Sub


RE: كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار - الحلوانى - 14-09-17

الاستاذ امير الزبيدى
كريم  ومبدع
لاجد من الكلام مايوفى حقك


الاخ سعود  جزاك الله كل خير