[ Visual Basic 6 ] {حصري×حصري} طريقة وضع تكست يتحرك بالفيجوال بيسك {شرح مصور}

تم تحميل الصفحة في 1,5111106 ثانية
{حصري×حصري} طريقة وضع تكست يتحرك بالفيجوال بيسك {شرح مصور}

GeGa-MaN

Beginner Developer
rank
إنضم
11 مارس 2011
المشاركات
18
الإعجابات
2
النقاط
0


كيف حالكم ~ يا أعضاء الديف بوينت ~

إنشاء الله بخير ،،،

اليوم أنـــا مقدم لكم و حصــــ{طريقة لجعل تكست يتحرك [طبعا بالفيجوال بيسك] هههه}ـــريــا ،،،،

بسم الله نبدأ ,,,

أولا : نفتح مشروع جديد و نختار 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 ~ ،،،


 

ĘŞŁДΜ

•سُبْحَانَ اللَّهِ وَبِحَمْدِهِ ،•
rankrankrankrankrankrank
إنضم
1 سبتمبر 2010
المشاركات
4,324
الإعجابات
1,247
النقاط
153
الإقامة
ام الدنيا -مصر
رد: {حصري×حصري} طريقة وضع تكست يتحرك بالفيجوال بيسك {شرح مصور}

الله يعطيك العافيه:9:
 

rowng

DeveloPer Plus
rankrankrank
إنضم
15 أغسطس 2010
المشاركات
612
الإعجابات
59
النقاط
0
رد: {حصري×حصري} طريقة وضع تكست يتحرك بالفيجوال بيسك {شرح مصور}

السلام عليكم ورحمه الله وبركاته

مشاء الله فكره روعه وانا كنت ببحث عنها

ربنا يوفقك يابطل ومنتظرين منك كل ما هوا جديد

تقبل تحياتي وتقبل مروري وتقييمي
 

GeGa-MaN

Beginner Developer
rank
إنضم
11 مارس 2011
المشاركات
18
الإعجابات
2
النقاط
0
رد: {حصري×حصري} طريقة وضع تكست يتحرك بالفيجوال بيسك {شرح مصور}

السلام عليكم ورحمه الله وبركاته

مشاء الله فكره روعه وانا كنت ببحث عنها

ربنا يوفقك يابطل ومنتظرين منك كل ما هوا جديد

تقبل تحياتي وتقبل مروري وتقييمي
مشكور على المرور يــا أخــي

~ { ما كنت أتوقع تتفاعلوا بهاي الطريقة , الله يخليكم } ~

:30::30:
 

dimah

شبح المغرب
rankrankrankrank
إنضم
5 سبتمبر 2010
المشاركات
1,369
الإعجابات
253
النقاط
63
رد: {حصري×حصري} طريقة وضع تكست يتحرك بالفيجوال بيسك {شرح مصور}

مشكور أخوي على الشرح الوافي:6:
تقبل مروري :28:
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل