تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لجعل اسم ورقم التليفون يمر كما فى شريط الاخبار
#1

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

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

ارجوا لكم كل الخير والتقدم  وزادكم الله من فضله
الرد }}}
تم الشكر بواسطة:
#2
الاستاذ  امير الزبيدى

حياكم الله  وزادكم الله من فضله وعلمه
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Ahmed_Mansoor
#3
الاستاذ امير الزبيدى
سلام الله عليكم ورحمته

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

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

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


لكم كل الود والتحيه
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#4
الاستاذ الكريم  والمبجل امير الزبيدى

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

وافاض عليكم الله واصبغ من النعم ظاهرة وباطنه
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Ahmed_Mansoor
#5
الاستاذ الفاضل   امير الزيدى


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



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



اسائل الله العظيم ان يجمعنا واياكم فى الجنه ويجزل لكم العطاء
الرد }}}
#6
مشاركة لاخواني اقدم اجتهادي




كود :
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


الملفات المرفقة
.zip   aaa.zip (الحجم : 1.53 ك ب / التحميلات : 62)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
#7
الاستاذ امير الزبيدى
كريم  ومبدع
لاجد من الكلام مايوفى حقك


الاخ سعود  جزاك الله كل خير
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , عبد العزيز البسكري



التنقل السريع :


يقوم بقرائة الموضوع: