[سامي نت]

up
up
up
up
up
up
:o

[سامي نت]

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

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

[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

[sooriaty03]

سامي نت كتب :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

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


بالتوفيق

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

[sooriaty03]

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

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

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

بالتوفيق