منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - عرض النص حرف بحرف مثل الباور بوينت

الصفحات : 1 2 3

up
up
up
up
up
up
:o

عزيزي sooriaty03 لو سمحت لو فقط مثال أو اثنين حتى اعرف الطريقة

مع بس كل مثال لوحده مع شرح طريقة التغيير بخط توضيح اخضر للي ممكن اغيره في المثال

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

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

PHP كود :

Private Sub Animate2_AnimateComplate(ByVal sender As System.Object, ByVal e As Animate.AnimateComplateEvantArgs) Handles Animate2.AnimateComplate
'
'
'
End Sub 

فعندها سنقوم بتكرار الحركة بكتابة الأمر التالي

PHP كود :

Button1.PerformClick() 

أما عن موضوع اختيار الحركة
فالموضوع سهل جدا فقط قم بكتابة الكلمة Animates ثم بمجرد كتابة "." ستظهر قائمة بجميع الحركات اختر منها ماتشاء

وقد أرفقت لك أربع أمثلة لاحظ الفرق بينهم وتأملهم جيدا فالأمر غاية في السهولة

بالتوفيق

sooriaty03 sooriaty03 sooriaty03 الف مليووووون شكر

بجرب ولي رد إن شاء الله

فيه طريقة ابسط لكن ليست احترافية وهي كالتالي:
اضف عدد 2 مربع نص الاول تضع به الجمل التي تريد عرض حروفها حرف حرف والاخر نعرض به الحروف.
زر امر تكتب بحدث النقر له الكود التالي:

كود :

For Each t As String In TextBox1.Text            

TextBox2.AppendText(t)

            Threading.Thread.Sleep(100)

        Next

اشكرك يا استاذي sooriaty03 الكريم

اتضح المثال بعد شرحك الوافي :o

الآن اريد اضع على الفورم زر Button2 عندما اضغط عليه يتوقف العرض

وعندما اضغط على الزر Button1 يعرض بستمرار

يعني ابغى تضع كود ايقاف العرض فقط لكي اضعه بزر Button2

كذلك يوم اشاهد الكود الذي داخل view Code اجد الكود طويل مرة يعني كثير جدا

هل من الممكن اختصار الكود يعني بوضع القليل من السطور
شاهد الصورة كم هوا كثير الكود

up
up
up
up
:o

سامي نت كتب :up
up
up
up
:o

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

تفضل أخي الكريم

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Animate1.Control = Nothing

        Label1.Location = New Point(62, 157)

        Label1.Visible = True

        Animate2.Control = Nothing

        Label2.Location = New Point(88, 161)

        Label2.Visible = True

End Sub

أما بالنسبة إلى الكود دعه كما هو
فهو عبارة عن كلاس خاص به وإن كان يزعجك وجوده في الفورم الرئيسي
فأنشئ كلاس جديد وقم بنقل الكود إليه

بالتوفيق

sooriaty03 كتب :

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

تفضل أخي الكريم

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Animate1.Control = Nothing Label1.Location = New Point(62, 157) Label1.Visible = True Animate2.Control = Nothing Label2.Location = New Point(88, 161) Label2.Visible = True End Sub

أما بالنسبة إلى الكود دعه كما هو
فهو عبارة عن كلاس خاص به وإن كان يزعجك وجوده في الفورم الرئيسي
فأنشئ كلاس جديد وقم بنقل الكود إليه

بالتوفيق

الف شكر لك اخي بس ممكن تحل المشكلة بارك الله فيك

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

أخي هذا الخطأ متوقع لأننا عندما نضغط على زر الإيقاف سوف نمسح قيمة المتغير Control ونجعل قيمته Nothing

أما عند الضغط على الزر الخاص بالحركة فإننا سنغير قيمة المتغير إلى Label
وعموما فإن هذا الخطأ الذي ينتج لن يؤثر على سير البرنامج

بالتوفيق

الصفحات : 1 2 3