منتديات الطرف - عرض مشاركة واحدة

دمعة فرح · 04-05-2003, 04:35 PM

إذا أردت أن تضع في برنامجك نص متحرك قم بعمل الخطوات التالية :-
الخطوة الأولى
قم بعمل فورم جديد وأضف فيه التالي :-
1- ****Box : صندوق نص .
2- Timer : المؤقت .

الخطوة الثانية
-_الكود_-
قم بكتابة الكود التالي في قسم التعريفات العام (General)

code:--------------------------------------------------------------------------------Private str**** As String--------------------------------------------------------------------------------

ثم قم بالنقر المزدوج على الفورم واكتب الكود التالي :

code:--------------------------------------------------------------------------------
Private Sub Form_Load()

str**** = "Welcome to Emad Fathy WebSite this is demo for scrolling ****"
str**** = Space(80) & str****

End Sub
--------------------------------------------------------------------------------

وبعد ذلك قم بالنقر على المؤقت نقرة واحدة وتوجه للخاصية Interval وقم بكتابة أي رقم (هذا الرقم هو عبارة عن سرعة النص المنزلق في صندوق النص)

مع العلم بأن هذا الرقم الذي ستكتبه سيكون عبارة عن سرعة النص في جزء من الثانية . مثلا لو أردت السرعة أن تكون ثانية واحد فعليك أن تكتب الرقم 1000 وهكذا .

وأخيرا قم بالنقر المزدوج على المؤقت واكتب الكود التالي :-

code:--------------------------------------------------------------------------------
Private Sub Timer1_Timer()

str**** = Mid(str****, 2) & Left(str****, 1)
****1.**** = str****
Me.Caption = str****

End Sub

تحياتي للجميع
ارجو ان يكون الامر واضح ومفيد لكم

04-05-2003, 04:35 PM	رقم المشاركة : 17
دمعة فرح طرفاوي مشارك	نص منزلق(يعني متحرك) إذا أردت أن تضع في برنامجك نص متحرك قم بعمل الخطوات التالية :- الخطوة الأولى قم بعمل فورم جديد وأضف فيه التالي :- 1- **Box : صندوق نص . 2- Timer : المؤقت . الخطوة الثانية -_الكود_- قم بكتابة الكود التالي في قسم التعريفات العام (General) code:--------------------------------------------------------------------------------Private str As String-------------------------------------------------------------------------------- ثم قم بالنقر المزدوج على الفورم واكتب الكود التالي : code:-------------------------------------------------------------------------------- Private Sub Form_Load() str = "Welcome to Emad Fathy WebSite this is demo for scrolling " str = Space(80) & str End Sub -------------------------------------------------------------------------------- وبعد ذلك قم بالنقر على المؤقت نقرة واحدة وتوجه للخاصية Interval وقم بكتابة أي رقم (هذا الرقم هو عبارة عن سرعة النص المنزلق في صندوق النص) مع العلم بأن هذا الرقم الذي ستكتبه سيكون عبارة عن سرعة النص في جزء من الثانية . مثلا لو أردت السرعة أن تكون ثانية واحد فعليك أن تكتب الرقم 1000 وهكذا . وأخيرا قم بالنقر المزدوج على المؤقت واكتب الكود التالي :- code:-------------------------------------------------------------------------------- Private Sub Timer1_Timer() str = Mid(str, 2) & Left(str, 1) 1. = str Me.Caption = str End Sub تحياتي للجميع ارجو ان يكون الامر واضح ومفيد لكم توقيع دمعة فرح** :