كيف حالكم ~ يا أعضاء الديف بوينت ~
إنشاء الله بخير ،،،
اليوم أنـــا مقدم لكم و حصــــ{طريقة لجعل تكست يتحرك [طبعا بالفيجوال بيسك] هههه}ـــريــا ،،،،
بسم الله نبدأ ,,,
أولا : نفتح مشروع جديد و نختار Standar ExE كما في الصورة التاليــة :
ثم نضع الأدوات التالية : 1 صورة , 1 تكست بوكس , 1 تايمر و أخيرا واحد سكرول ~ كما في الصورة التالية ~ :
طبعا الطريقة ذي لجعله يتحرك عموديــا ~ _ ~ :.:,,,
المهم نتابع :
نغير خصائص الأدوات {~ طبعا حسب رغبتك و ذوقك ~} :
للتكست بوكس نغير خاصية MultiLine =True
و الألوان ~{ حسب إختيارك }~ ,,,
~ ملحوظــة : ~ ~ التايمر و التكست بوكس و السكرول داخل الصورة أي البركتشر بوكس ~
و آلآن آلــى آلآكــوآآد :
نكتب في التايمر 1 هذا الكود :
كود:
If VScroll1.Value >= VScroll1.Min + 30 Then VScroll1.Value = VScroll1.Value - 20 Else VScroll1.Value = VScroll1.Max DoEvents End If Text1.Top = VScroll1.Value DoEvents
طبعا شرح الكود سهل جدا ~تابع~ ,,, :
الجزأ الأول :
كود:
If VScroll1.Value >= VScroll1.Min + 30 Then VScroll1.Value = VScroll1.Value - 2
إذآ كــآنت قيمة السكرول في الحد الأدنــى آضف القيمة 20
الجزأ الثآنــي :~_~
كود:
Else VScroll1.Value = VScroll1.Max DoEvents End If
أما الجزأ الثالــث :
كود:
Text1.Top = VScroll1.Value DoEvents
و آالآن لنغير ~ خآصية Interval = 50 للتايمر ~ كما في الصورة التاليــة :
ثم نذهــ~ب~ آالــىآ السكرول حيث سنقوم بتغيير خصائصها كالتالي :
خاصية ~ Max = 6500 ~
خاصية ~ Visible = False ~
كما في الصورة التالية :
~و~ ،،،
~ آنتــهى آالشــرح ~
لتحميل ~ آلسورس ~:
لتحميل ~ آلمثآل ~ :
لتحميل ~ آالصور ~ :
~ آهدآء آىآ كل أعضاء الديف بوينت و زوارها ~
و آلـــىآ آالآعضـــآء :~ عبد آلله آلرويلي ~ , ~ AnTiviRus7 ~ ، ~ X-SHADOW ~ ، ~ Err0R ~
عــــــايـــز { تطبيقق }
و السلام عليكم و رحمة الله تعالى و بركاته ,,,
أخوكم : ~ GeGa-MaN ~ ،،،
