كيف أجعل النص في شريط متحرك
بالفيجوال بيسك
مثل النص الذي يتحرك فوق في هذه النافذه
كيف أجعل النص في شريط متحرك
ماحدش رد عليا
كيف أجعل النص في شريط متحرك
بالفيجوال بيسك
مثل النص الذي يتحرك فوق في هذه النافذه
كيف اعمل النص المتحرك في الفيجوال
اعمل برنامج مهم جدا واردت ان اكتب اسم الشركة علي النافذة
الرئيسية ولكن بشكل متحرك
اي علي شكل شريط ماشي
مثل marquee
في الشاشة المؤقتة في الوندوز
ومثل الشريط اللي في المنتدي اللي ماشي ده
اللي فيه السؤال
جرّب
Private Sub Form_Load() Me.Label1.Top = 0 End Sub Private Sub Timer1_Timer() a = Me.Height b = 200 If Me.Label1.Top < a Then 'Me.Height Then Me.Label1.Top = Me.Label1.Top + b Exit Sub End If For m = 1 To (Int(a / b) + 1) Me.Label1.Top = Me.Label1.Top - 200 For x = 1 To 1000000 Next Next End Sub
علشان خطري أنا ، إتعب نفسك شوية وإستخدم خاصية البحث وصدقني هتلاقي أمثلة متعددة !!!
أنظر المرفق
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
شكرا اخي
اصل مشكلتي اني لسه جديد في البرمجة
وبدخل نت علي التليفون
يعني غالي علي
معذرة
معذرة
اسف للازعاج
حصل خير ، بس ياريت تقرأ شروط المنتدي لكتابة الموضوعات ، حيث أنك كتبت الموضوع أربعة مرات
ربنا يوفقق
شكراً
تم تعديل هذه المشاركة بواسطة MMA_EG_Cairo في 2 مارس 2008 في 00:49
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
اخى على الماشى كده ضع ليبل على الفورم وضع اداة تيمر وجعل الانترفال بتاع التايمر=20 وبعد كده اكتب داخل التايمر
Label1.Left = Label1.Left + 20
00
فاضى
00
من قال فيني عيب والله ظلمني ×× فيني ثمان عيوب والتاسع الطيب
العاشر ليا من رفـيقي زهمني ×× اسوق له عمري واسوق المواجيب
شكرا جزيلا على هذا البرنامج
أرجو أن ينفعك هذا الكود
:D
Res = right(txt, len(txt)-1) & left(txt,1)
Scrolltxt = Res
End function
Public Function Srcolltxt(txt as string) as string
وبعد ذلك يتم وضع timer ووضع الكود التالي فيه
Me.Caption = Scrolltxt(Me.Caption)
قل لن يصيبنا إلا ما كتب الله لنا