عرض النص حرف بحرف مثل الباور بوينت

عرض النص حرف بحرف مثل الباور بوينت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عرض النص حرف بحرف مثل الباور بوينت (/showthread.php?tid=8967)

الصفحات: 1 2 3

عرض النص حرف بحرف مثل الباور بوينت - سامي نت - 25-05-13

up
up
up
up
up
up
:o

عرض النص حرف بحرف مثل الباور بوينت - سامي نت - 26-05-13

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

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

عرض النص حرف بحرف مثل الباور بوينت - sooriaty03 - 26-05-13

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

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

PHP كود :

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

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

PHP كود :

Button1.PerformClick() 

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

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

بالتوفيق

عرض النص حرف بحرف مثل الباور بوينت - سامي نت - 26-05-13

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

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

عرض النص حرف بحرف مثل الباور بوينت - سعود - 26-05-13

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

كود :

For Each t As String In TextBox1.Text            

TextBox2.AppendText(t)

            Threading.Thread.Sleep(100)

        Next

عرض النص حرف بحرف مثل الباور بوينت - سامي نت - 26-05-13

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

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

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

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

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

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

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

عرض النص حرف بحرف مثل الباور بوينت - سامي نت - 28-05-13

up
up
up
up
:o

عرض النص حرف بحرف مثل الباور بوينت - sooriaty03 - 28-05-13

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

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

بالتوفيق

عرض النص حرف بحرف مثل الباور بوينت - سامي نت - 28-05-13

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 - 28-05-13

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

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

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

بالتوفيق