السلام عليكم
ارجو من الذين عندهم معلومة كيفية تغيير لون الخط الخارجي للتكست بوكس TextBox
ان لا يبخلو عليا بهذة المعلومة لأنى فى امس الحاجة لها شاكرا لكم جهودكم
وجزاكم الله الف خبر
اخوكم عبدالسلام
السلام عليكم
ارجو من الذين عندهم معلومة كيفية تغيير لون الخط الخارجي للتكست بوكس TextBox
ان لا يبخلو عليا بهذة المعلومة لأنى فى امس الحاجة لها شاكرا لكم جهودكم
وجزاكم الله الف خبر
اخوكم عبدالسلام
يمكنك إزالة الإطار الاعتيادي من مربع النص عن طريق تغيير خاصية 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
اخي الكريم
مرفق مثال تاني لتغيير لون الاطار الخارجي واستخدام اكثر من لون لعمل ذلك
لقد قمت باستخدام اللون الاحمر والازرق
طبعا لازم تعمل الاتي في اول الفورم
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
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…