السلام عليكم اجمعين ورحمة الله وبركاته
ارغب فى استخدام TEXT SCROLL OCX فى احد المشروعات البرمجيه او شريط متحرك يمكن كتابة نص ما بداخله باللغه العربيه والانجليزيه
فهل من مساعده
ارجو ذلك وللجميع الشكر مسبقا
FKWINNA
e-mail: fathy_eissa@yahoo.com
1/7/2006
هذه ليست اداه يمكنك فعلها من الفيجول اختر من خصائص التيكست خاصية Muiltline وقم بتفعيلها ثم خاصية Scrollbars وأختر نوع الأسكرول الذي تريدي افقي أو رأسي او الأثنان معا
if text1.text="www.arabteam2000.com" then
السلام عليكم ورحمة الله وبركاته
على قد مافهمته مما تقصد
هذا الموضوع ياأخي لايحتاج أي أدوات فقط إستخدم الكود التالي
الكود: للتحريك التلقائي بدون ScrollBars
الأدوات
Timer1
Text1
Private strText As String Private Sub Form_Load() Timer1.Interval = 75 strText = "Guten Tag! Wie ght's Ihnen? Ich hoffe Ihnen alles Gutes!" strText = Space(50) & strText End Sub Private Sub Timer1_Timer() strText = Mid(strText, 2) & Left(strText, 1) Text1.Text = strText End Sub
شرح الكود
strtext هو النص الذي سيتم إدخاله ويمكنك إستبدال هذه العبارة
(Space(50 هي مساحة الفارق بين النص وتكراره
وأتمني أن أكون أفدتك
تم تعديل هذه المشاركة بواسطة شبح البرمجة في 1 يوليو 2006 في 11:45
vb6_scrolllabel_demo.rarالإخوة الأعزاء ...
بداية أود إعلامكم بأنه توجد أداة إسمها crolllabel.ocx، ولكنها نسخة demo
أرفق لكم الأداة مع مثال عليها أرجو أن تلبي حاجاتكم
وشكراً
vb6_scrolllabel_demo.rarالإخوة الأعزاء ...
بداية أود إعلامكم بأنه توجد أداة إسمها crolllabel.ocx، ولكنها نسخة demo
أرفق لكم الأداة مع مثال عليها أرجو أن تلبي حاجاتكم
وشكراً
الى الاخ الفاض شيخ البرمجه
السلام عليكم ورحمة الله
اشكر لكم جزيل الشكر مساعدتكم القيمة على الكود الخاص بالشريط المتحرك وقد افادنى فعلا :rolleyes:
ارجو ان يوفقنى الله واياكم الى الخير باذنه تعالى
FKWINNA
e-mail:fathy_eissa@yahoo.com
الى الاخوه الاعزاء Hichamchak وباسم22
اشكر لكم مساهمتكم القيمه فى امدادى بالمعلومات حول text scroll
ارجو لكم التوفيق
والسلام عليكم ورحمة الله
fkwinna
2/7/2006
هذا الموضوع مغلق.
