تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف تجعل كل شئ مستديرا داخل الفورم
#1
كاتب الموضوع : silverlight

الموضوع: كيف تجعل كل شئ مستديرا داخل الفورم
اعداد : مهندس عمر امين ابراهيم
الهدف : للمبتدئين فقط

الاخوه الكرام

من متابعتي للموقع وجدت ان الكثير من الاخوه يريدون أن يغيرون شكل الباتون ليكون دائريا
الحقيقه نستطيع تغيير الكثير من الكونترول Controls ونجعلها علي شكل دائره وذلك مع الحفاظ علي الخواص الاخري وبدون استخدام اكواد تم تصميمها بواسطة مبرمجين اخرين
عموما كل هذا يتم باستخدام +GDI
كل ذلك يتم عن طريق الحدث Paint او Overrides Paint

مثال : تغيير شكل الفورم الي دائره
كل ما عليك فعله هو ان تجعل الفورم له ابعاد متساويه
وتستخدم الكود الاتي


كود :
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, Me.Width, Me.Height)
Me.Region = New System.Drawing.Region(shape)

End Sub
مثال اخر: تغيير شكل الباتون Button
ايضا نجعل الباتون size متساوي اي نغيير في Properties وتحديدا في Size ونجعل القيميتن متساويتين عمومل لو لم نجعل القيميتين متساويتين سنحصل علي شكل بيضاوي
وهذا الامر ينطبقي علي الفورم وباق الاشياء الاخري

كود :
Private Sub Button1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, Button1.Width, Button1.Height)
Button1.Region = New System.Drawing.Region(shape)

End Sub
مثال اخر: تغيير شكل Panel


كود :
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, Panel1.Width, Panel1.Height)
Panel1.Region = New System.Drawing.Region(shape)

End Sub
مثال اخر : PictureBox


كود :
Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, PictureBox1.Width, PictureBox1.Height)
PictureBox1.Region = New System.Drawing.Region(shape)

End Sub
مثال اخر : حتي DataGridView


كود :
Private Sub DataGridView1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles DataGridView1.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, DataGridView1.Width, DataGridView1.Height)
DataGridView1.Region = New System.Drawing.Region(shape)

End Sub

lمثال اخر: حتي SplitContainer


كود :
Private Sub SplitContainer1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, SplitContainer1.Width, SplitContainer1.Height)
SplitContainer1.Region = New System.Drawing.Region(shape)

End Sub
عموما الاسلوب ده يمكن استخدامه لتغيير اشياء كثيره ..........حاول تجرب بنفسك .......... الامر اسهل مما تتصور اي كونترول يمتلك الحدث Paint يمكن استخدام الكود معه ..................

ملحوظه اخيره: يمكن تغيير الشكل الي اي شئ تريد مثل نجمه او حتي زجاجه او اي شكل قد تتخيله الأمر متروك لخيالك

لكن يتبقي السؤال هل نحن في حاجه لتغيير اشكال الكونترول المختلفه؟
ربما نحتاج ذلك مع البعض او ربما نحتاجه مع كل شئ مين يقدر يعرف

عموما اتمني ان الموضوع يكون واضح

مرفق الكود باستخدام Visual Studio 2008

اخوكم عمر


الملفات المرفقة
.rar   Circluar.rar (الحجم : 60.64 ك ب / التحميلات : 109)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاستفادة من بارمترات الاخراج من SQL Server داخل برنامجك ابو ليلى 1 195 20-08-16, 02:16 AM
آخر رد: الوادي
  كيف تجعل برنامجك عالميا و يدعم أكثر من لغة silverlight 5 726 15-05-16, 05:03 PM
آخر رد: CLARO
  من المنتدى القديم - تحريك الفورم من اي مكان ( للاخ omar2205 ) المبرمج علي نوري 2 734 16-08-15, 05:09 PM
آخر رد: otman_bel
  إيجاد جميع الكونترول الموجودة في الفورم Recursively Find All Controls in Form silverlight 0 498 26-05-15, 12:31 AM
آخر رد: silverlight
  الجزء الثالث من:كيف تجعل الـ Text Box ذكي!يترجم العمليات الحسابية ويخرج الناتج (الأقواس المتعددة) !! أنس محمود 9 2,064 06-12-14, 10:11 PM
آخر رد: RFEE3 ALSHAN
  طريقة تغيير الوان الفورم من ListView 3booody 4 1,323 19-08-13, 05:01 PM
آخر رد: 3booody
  طريقة من أجمل الطرق لجعل الفورم على شكل صورة عندك أسامة أحمد 63 7,372 12-05-13, 10:39 PM
آخر رد: APP
  خطوات بسيطه لجعل الفورم على شكل صورة معينه و بشكل اكثر احترافية - بدون أدوات خارجية السكر المغرور 4 1,698 08-05-13, 01:20 AM
آخر رد: السكر المغرور
  الجزء الثاني من:كيف تجعل الـ Text Box ذكي!يترجم العمليات الحسابية ويخرج الناتج ( العمليات المتعددة)! أنس محمود 0 688 22-02-13, 12:39 AM
آخر رد: أنس محمود
  كيف تجعل الـ Text Box ذكي !! يترجم العمليات الحسابية ويخرج الناتج !! بالداخل المزيد !! أنس محمود 0 1,550 20-02-13, 12:58 AM
آخر رد: أنس محمود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم