22-11-20, 03:45 PM
الصفحات : 1 2
22-11-20, 09:05 PM
هل من رد ؟؟؟؟؟
23-11-20, 05:20 PM
انا أبرمج برنامج مهم جدا و محتاج للكود و أنا مبتدأ و لا أعرف شيء محتاج مساعدة في أسرع وقت إخواني
23-11-20, 08:31 PM
السلام عليكم ورحمة الله وبركاته
اخي الكريم اليك المثال مثل ماطلبت بالفيجوال بيسك نت
اخي الكريم اليك المثال مثل ماطلبت بالفيجوال بيسك نت
24-11-20, 12:28 PM
أخي الكريم يظهر خطأ في Panel1 أنا أستخدم فيجوال بيسك 2010 ممكن الكود صحيح
أخي كما أنني أريده يظهر عندما يظهر الفورم بدون الضغط على أي زر و شكرا
أخي شكرا أخطأت لقد وجدت كل شيء شكرا و تقبل اعتذاري
كيف أعدل على حجم Panel1 لأجعله أكبر و أجعل الكتابة في وسطه
كيف أعدل على حجم Panel1 لأجعله أكبر و أجعل الكتابة في وسطه
أخي كما أنني أريده يظهر عندما يظهر الفورم بدون الضغط على أي زر و شكرا
أخي شكرا أخطأت لقد وجدت كل شيء شكرا و تقبل اعتذاري
كيف أعدل على حجم Panel1 لأجعله أكبر و أجعل الكتابة في وسطه
كيف أعدل على حجم Panel1 لأجعله أكبر و أجعل الكتابة في وسطه
25-11-20, 09:53 AM
كيف أجعل البانل يمتد بحجم أطول لأنو الفورم عندي أكبر
25-11-20, 10:58 AM
اخي الكريم
حاول ان تشغل الفيديو الذي ارفقته بسرعة اقل ودقق ستلاحظ انه بعد انه بعد ان ينفتح البانل تماما ينفتح الليبل الذي يحتوي النص من منتصف البانل
اي ان الليبل يزداد حجمه بالعرض width لكنه يبقى متموضع دائما في منتصف البانل
قد لايكون كلامي مفهوما لكن يمكنك الاطلاع على التعديل الذي قمت به على مثال الاخ ابراهيم مشكورا
وان شاء الله ستتضح الصورة اكثر
عموما حاول ان تغير قيمة interval التابعة للـ timer2 في المثال المرفق الة ان تصل للنتيجة المطابقة للمقطع الذي ارفقته
[attachment=26032]
حاول ان تشغل الفيديو الذي ارفقته بسرعة اقل ودقق ستلاحظ انه بعد انه بعد ان ينفتح البانل تماما ينفتح الليبل الذي يحتوي النص من منتصف البانل
اي ان الليبل يزداد حجمه بالعرض width لكنه يبقى متموضع دائما في منتصف البانل
قد لايكون كلامي مفهوما لكن يمكنك الاطلاع على التعديل الذي قمت به على مثال الاخ ابراهيم مشكورا
وان شاء الله ستتضح الصورة اكثر
عموما حاول ان تغير قيمة interval التابعة للـ timer2 في المثال المرفق الة ان تصل للنتيجة المطابقة للمقطع الذي ارفقته
[attachment=26032]
25-11-20, 06:48 PM
شكرا أخي لكنه لا يبدأ من منتصف الفورم عندما زدت ال Width
25-11-20, 11:26 PM
هل من رد إخواني الكرام ؟؟؟
26-11-20, 02:50 AM
استأذن الاخوة قبلي يمكن عمل ذلك باستخدام بعض الحيل في التصميم دون الحاجة للكود الى في قليل القليل
اضفت TableLayoutPanel بها صفان وجعلت ارتفاعهما AutoSize واضفت في الصف الاول البانل الخاص باللون والصف الثاني الليبل الخاص بالجملة ، وجعلت كل منهما له الخاصية Anchor = None وبالتالي نضمن انهما سيظلا في المنتصف دائما
وهنا حللنا مشكلة المكان تماما دون كتابة الكود
الان في الكود من اجل المرونة جعلت عرض البانل نسبة من عرض الاداه الحاوية له ، حتى يصلح لاي ابعاد تختارها ، وبالطبع بعد ان ينتهي الحركة نقوم بجعل Dock=Fill ليملأ البانل المكان
الان لاحظو كيف اصبح الكود ابسط واقل حجما :
[attachment=26042]
هذا هو سحر التصميم هناك الكثير يمكن عمله دون كتابة سطر واحد من الكود
اضفت 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]
هذا هو سحر التصميم هناك الكثير يمكن عمله دون كتابة سطر واحد من الكود
الصفحات : 1 2