منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
(تم الحل) كيف يمكن تلوين الإطار الخاص بـ Groupbox ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : (تم الحل) كيف يمكن تلوين الإطار الخاص بـ Groupbox ؟ (/showthread.php?tid=6966)



(تم الحل) كيف يمكن تلوين الإطار الخاص بـ Groupbox ؟ - a.amin - 14-11-12

السلام عليكم

أريد تلوين الإطار الخاص بـ Groupbox فكيف يمكن عمل ذلك لأننى لم أجد أى خاصية تتعلق بـ Style or Border ؟؟؟؟



(تم الحل) كيف يمكن تلوين الإطار الخاص بـ Groupbox ؟ - Osama_Ghareeb - 14-11-12

وعليكم السلام

إستخدم الأمر التالي في حدث OnPoint للـ GroupBox
كود :
Dim tSize As Size = TextRenderer.MeasureText(GroupBox1.Text, GroupBox1.Font)
        Dim borderRect As Rectangle = e.ClipRectangle
        borderRect.Y = (borderRect.Y _
                    + (tSize.Height / 2))
        borderRect.Height = (borderRect.Height _
                    - (tSize.Height / 2))
        ControlPaint.DrawBorder(e.Graphics, borderRect, Color.Blue, ButtonBorderStyle.Solid)
        Dim textRect As Rectangle = e.ClipRectangle
        textRect.X = (textRect.X + 6)
        textRect.Width = tSize.Width
        textRect.Height = tSize.Height
        e.Graphics.FillRectangle(New SolidBrush(Me.BackColor), textRect)
        e.Graphics.DrawString(GroupBox1.Text, GroupBox1.Font, New SolidBrush(GroupBox1.ForeColor), textRect)