[Necro PC]

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

[Necro PC]

هل من رد ؟؟؟؟؟

[Necro PC]

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

[ابراهيم ايبو]

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

[Necro PC]

أخي الكريم يظهر خطأ في Panel1 أنا أستخدم فيجوال بيسك 2010 ممكن الكود صحيح

---

أخي كما أنني أريده يظهر عندما يظهر الفورم بدون الضغط على أي زر و شكرا

---

أخي شكرا أخطأت لقد وجدت كل شيء شكرا و تقبل اعتذاري

---

كيف أعدل على حجم Panel1 لأجعله أكبر و أجعل الكتابة في وسطه

---

كيف أعدل على حجم Panel1 لأجعله أكبر و أجعل الكتابة في وسطه

[Necro PC]

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

[معاند الحظ]

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

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


  Benner Show.zip (الحجم : 133.05 ك ب / التحميلات : 40)

[Necro PC]

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

[Necro PC]

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

[Anas Mahmoud]

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

اضفت 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

   

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