كيف اغير شكل البوتون (button) في VB.NET 2005

يمكنك عمل زر بشكل قطع ناقص أو دائري وذلك باستخدام أوامر GDI لإعادة رسم منطقة الزر وذلك بمعالجة الحدث Paint لزر الأوامر كما في المثال

	Private Sub Button1_Paint(ByVal sender As Object, _
		ByVal e As System.Windows.Forms.PaintEventArgs) _
		Handles Button1.Paint

		'Instantiate a new instance of the GraphicsPath class.
		Dim myGraphicsPath As New System.Drawing.Drawing2D.GraphicsPath()
		' Add The Desired Shape to  myGraphicsPth
		myGraphicsPath.AddEllipse(New RectangleF(0, 0, Me.Button1.Width, Me.Button1.Height))
		'Set the control's Region property to the instance
		'of the GraphicsPath class you created above.
		Button1.Region = New Region(myGraphicsPath)

	End Sub

كما يمكن استخدام هذه الطريقة لتغيير شكل أي تحكم نريده و حتى النموذج From أيضا يمكن تغيير شكلها بهذه الطريقة

مثال آخر لتحويل الزر إلى شكل نص

		'Instantiate a new instance of the GraphicsPath class.
		Dim myGraphicsPath As New System.Drawing.Drawing2D.GraphicsPath()
		'Specify a string. This will be as the shape of the control.
		Dim stringText As String = "Click Me!"
		'Specify the font family to be used with the string above.
		Dim family As FontFamily = New FontFamily("Arial")
		'Specify the font style to be used with the string above.
		Dim fontStyle As FontStyle = fontStyle.Bold
		'Here is where you specify the height of the string.
		'This integer represents one side of a square.
		'The string you specify will be drawn inside that square.
		'Make the integer larger to draw the string larger,
		'smaller to make the string appear smaller.
		Dim emSize As Integer = 35
		'This is the point that will represent where
		'the text starts. It is calculated from the
		'edge of the control, not the form.
		Dim origin As PointF = New PointF(0, 0)
		'A StringFormat object that specifies
		'text formatting information, such as 
		'line spacing and alignment.
		Dim format As StringFormat = StringFormat.GenericDefault
		'Use the AddString method to create the string whose
		'details you specified above.
		myGraphicsPath.AddString(stringText, family, fontStyle, emSize, origin, format)
		'Set the control's Region property to the instance
		'of the GraphicsPath class you created above.
		Button1.Region = New Region(myGraphicsPath)

وكلما زادت مهاراتك في أوامر GDI تستطيع عمل تحكمات بالأشكال التي تريدها

وهذا مثال عن كيفية تغيير شكل النموذج Form و زر الأوامر Button كما يمكن تطويره لينطبق على أي تحكم تريده

WindowsApplication4.rar

بصراحة اخي محمد سامر الاشكال مش تمام يعني شكل الزر بيمغص البطن وليس المطلوب مطلقا :)

أنا فقط عطيت مثال عن الطريقة للعلم فقط وبشكل عام ولم أقل أن واجهة البرنامج ستكون بهذا الشكل

وبما انك معترض على الشكل لماذا لا تضع كودا فيه شكل أفضل بدلا من الاعتراض

ثم ألا تلاحظ أنك تجاوزت حدود اللباقة في ردك

مرفق مثال آخر

ملاحظة هامة: الأكواد في أجاباتي لهذا الموضوع لغرض عرض الوظائف وكيفية استخدامها فقط لا أحد يضع ملاحظة حول الشكل خذ الطريقة واعمل الشكل الذي يعجبك

WindowsApplication3.zip

تسلم

وشكرا (h)

مشرفنا الغالي

الله يعطيك الصحة والعافية على هذا المثال الرائع جهود تشكر عليه ومثال ولا أروع