حدود مربع النص (اللون و الشكل)

BorderStyle.zip

إليك مبدأ الحل

يجب عليك تخطي الخاصية Paint للنموذج للتحكم بكيفية رسم صندوق النصوص وهنا عليك إنشاء تحكم صندوق النصوص الخاص بك وإضافة الخصائص الجديدة له برمجيا

يمكنك أخذ الكود التالي كمبدأ للإستفادة منه

لنفترض أنه لدينا صندوقي نصوص نريد تغيير شكل ولون الحدود لهما وموجودين سلفا على النافذة ويفضل هنا وضع الخاصية BorderStyle إلى none

سنحتاج أولا للاستيراد التالي من أجل عملية الرسم

Imports System.Drawing.Drawing2D

وذلك في بداية الملف

ثم سنكتب خاصية Paint للنموذج كما يلي

	' تخصيص كيفية رسم النافذة
	Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

		' الحصول على مربع بقياسات صندوق النصوص
		Dim R As New Rectangle(TextBox1.Left, TextBox1.Top, TextBox1.Width - 1, TextBox1.Height - 1)
		Dim R2 As New Rectangle(TextBox2.Left, TextBox2.Top, TextBox2.Width - 1, TextBox2.Height - 1)
		' الحصول على متغير للرسوميات
		Dim G As Graphics = Me.CreateGraphics

		' إنشاء قلم بلون أحمر وحجم 3 نقاط
		Dim P As New Pen(Brushes.Red, 3)
		' تغيير طريقة رسم الخط
		P.DashStyle = DashStyle.DashDot

		' إنشاء قلم بلون أزرق وحجم 3 نقاط
		Dim P2 As New Pen(Brushes.Blue, 3)
		' تغيير طريقة رسم الخط
		P2.DashStyle = DashStyle.DashDotDot

		' رسم إطار صندوق النصوص
		G.DrawRectangle(P, R)

		' رسم إطار صندوق النصوص
		G.DrawRectangle(P2, R2)

	End Sub

ثم عندما ننفذ المشروع سترى النتيجة

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

في المرفقات المثال هنا وأيضا المثال من الكتاب

يمكنك الآن بقليل من الجهد عمل تحكم بالمواصفات التي تريدها

WindowsApplication5.zip

RoundButton.zip

أشكرك أخي الفاضل وليد على المثال ..

و أشكرك أخي الفاضل محمد سامر على التوضيح و التفصيل بارك الله فيك

و العملية قيد التجربة و التطبيق