منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كيف أجعل النص يتحرك بهذه الطريقة - نسخة قابلة للطباعة

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

الصفحات: 1 2

كيف أجعل النص يتحرك بهذه الطريقة - Necro PC - 22-11-20

من فضلكم كيف أجعل البرنامج يتحرك بهذه الطريقة في الفيديو
https://f.top4top.io/m_1787hetwd0.mp4
و انا احتاج لها باسرع وقت وشكرا

RE: كيف أجعل النص يتحرك بهذه الطريقة - Necro PC - 22-11-20

هل من رد ؟؟؟؟؟

RE: كيف أجعل النص يتحرك بهذه الطريقة - Necro PC - 23-11-20

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

RE: كيف أجعل النص يتحرك بهذه الطريقة - ابراهيم ايبو - 23-11-20

السلام عليكم ورحمة الله وبركاته
اخي الكريم اليك المثال مثل ماطلبت بالفيجوال بيسك نت 

RE: كيف أجعل النص يتحرك بهذه الطريقة - Necro PC - 24-11-20

أخي الكريم يظهر خطأ في Panel1 أنا أستخدم فيجوال بيسك 2010 ممكن الكود صحيح
أخي كما أنني أريده يظهر عندما يظهر الفورم بدون الضغط على أي زر و شكرا
أخي شكرا أخطأت لقد وجدت كل شيء شكرا و تقبل اعتذاري
كيف أعدل على حجم Panel1 لأجعله أكبر و أجعل الكتابة في وسطه
كيف أعدل على حجم Panel1 لأجعله أكبر و أجعل الكتابة في وسطه

RE: كيف أجعل النص يتحرك بهذه الطريقة - Necro PC - 25-11-20

كيف أجعل البانل يمتد بحجم أطول لأنو الفورم عندي أكبر

RE: كيف أجعل النص يتحرك بهذه الطريقة - معاند الحظ - 25-11-20

اخي الكريم 
حاول ان تشغل الفيديو الذي ارفقته بسرعة اقل ودقق ستلاحظ انه بعد انه بعد ان ينفتح البانل تماما ينفتح الليبل الذي يحتوي النص من منتصف البانل
اي ان الليبل يزداد حجمه بالعرض width لكنه يبقى متموضع دائما في منتصف البانل

قد لايكون كلامي مفهوما لكن يمكنك الاطلاع على التعديل الذي قمت به على مثال الاخ ابراهيم مشكورا 
وان شاء الله ستتضح الصورة اكثر 
عموما حاول ان تغير قيمة interval التابعة للـ timer2 في المثال المرفق الة ان تصل للنتيجة المطابقة للمقطع الذي ارفقته

[attachment=26032]

RE: كيف أجعل النص يتحرك بهذه الطريقة - Necro PC - 25-11-20

شكرا أخي لكنه لا يبدأ من منتصف الفورم عندما زدت ال Width

RE: كيف أجعل النص يتحرك بهذه الطريقة - Necro PC - 25-11-20

هل من رد إخواني الكرام ؟؟؟

RE: كيف أجعل النص يتحرك بهذه الطريقة - Anas Mahmoud - 26-11-20

استأذن الاخوة قبلي يمكن عمل ذلك باستخدام بعض الحيل في التصميم دون الحاجة للكود الى في قليل القليل

اضفت TableLayoutPanel بها صفان وجعلت ارتفاعهما AutoSize واضفت في الصف الاول البانل الخاص باللون والصف الثاني الليبل الخاص بالجملة ، وجعلت كل منهما له الخاصية Anchor = None وبالتالي نضمن انهما سيظلا في المنتصف دائما

وهنا حللنا مشكلة المكان تماما دون كتابة الكود

الان في الكود من اجل المرونة جعلت عرض البانل نسبة من عرض الاداه الحاوية له ، حتى يصلح لاي ابعاد تختارها ، وبالطبع بعد ان ينتهي الحركة نقوم بجعل Dock=Fill ليملأ البانل المكان

الان لاحظو كيف اصبح الكود ابسط واقل حجما :
كود :
Public Class Form1

   Dim panelStep As Integer
   Const PANELMAX As Integer = 20

   Dim labelText As String = "الدفتر الجديد يرحب بكم في نسخته الجديدة والمطورة"
   Dim TextStep As Integer

   ' خاص بالبانل
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles tmrPanel.Tick
       If panelStep = PANELMAX Then
           pnlColor.Dock = DockStyle.Fill
           tmrPanel.Stop()
           tmrText.Start()
           Return
       End If

       panelStep += 1
       pnlColor.Width = pnlColor.Parent.Width * panelStep / PANELMAX
   End Sub

   ' حاص بالنص
   Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles tmrText.Tick
       If TextStep = labelText.Length Then
           tmrText.Stop()
           Return
       End If

       TextStep += 1
       lblText.Text = labelText.Substring(0, TextStep)
   End Sub
End Class

[attachment=26042]

هذا هو سحر التصميم هناك الكثير يمكن عمله دون كتابة سطر واحد من الكود