الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تغيير لون خط الأطار الخارجي لل Textbox ( إذا امكن )

بدأه abdusaslam في 22 مارس 2008 · 2 رد · 863 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

ارجو من الذين عندهم معلومة كيفية تغيير لون الخط الخارجي للتكست بوكس TextBox

ان لا يبخلو عليا بهذة المعلومة لأنى فى امس الحاجة لها شاكرا لكم جهودكم

وجزاكم الله الف خبر

اخوكم عبدالسلام

#2

يمكنك إزالة الإطار الاعتيادي من مربع النص عن طريق تغيير خاصية BorderStyle إلى None

و الاعتماد على كود كالتالي لإنشاء الإطار الملون

   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
		Dim g As Graphics = e.Graphics
		Dim Rect As New Rectangle(Me.TextBox1.Location, Me.TextBox1.Size)
		Dim pen As New Pen(Color.Aqua, 3)

		g.DrawRectangle(pen, Rect)
	End Sub
200px-Dreamworks.jpg
#3

اخي الكريم

مرفق مثال تاني لتغيير لون الاطار الخارجي واستخدام اكثر من لون لعمل ذلك

لقد قمت باستخدام اللون الاحمر والازرق

طبعا لازم تعمل الاتي في اول الفورم

Imports System.Drawing.Drawing2D

وبعدين اضف الكود التالي للفورم

 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint



			 Dim linGrBrush As New LinearGradientBrush(New Point(0, 10), New Point(200, 10), Color.Red, Color.Blue)

			 Dim pen As New Pen(linGrBrush, 5)

			   Dim g As Graphics = e.Graphics

			 Dim Rect As New Rectangle(TextBox1.Location, TextBox1.Size)

				g.DrawRectangle(pen, Rect)


	   End Sub

اخوك عمر

تم تعديل هذه المشاركة بواسطة a_pess في 24 مارس 2008 في 13:45

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…