以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  控件问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=78401)
--  作者：drcqh
--  发布时间：2015/12/8 16:32:00
--  控件问题
分组框控件（GroupBox）的没有设置边框颜色的属性，请问怎么设置边框颜色？
[此贴子已经被作者于2015/12/8 16:38:44编辑过]
--  作者：大红袍
--  发布时间：2015/12/8 20:14:00
--  

不行，没有设置变宽颜色的属性。

 

 
--  作者：大红袍
--  发布时间：2015/12/8 20:25:00
--  

如果要做，可以绑定paint事件

 

全局代码

 

Public Sub groupBox1_Paint(sender As Object, e As Windows.Forms.PaintEventArgs)
       
 e.Graphics.Clear(Sender.BackColor)
 e.Graphics.DrawString(Sender.Text, Sender.Font, Brushes.Red, 10, 1)
 e.Graphics.DrawLine(Pens.Red, 1, 7, 8, 7)
 e.Graphics.DrawLine(Pens.Red, e.Graphics.MeasureString(Sender.Text, Sender.Font).Width + 8, 7, Sender.Width - 2, 7)
 e.Graphics.DrawLine(Pens.Red, 1, 7, 1, Sender.Height - 2)
 e.Graphics.DrawLine(Pens.Red, 1, Sender.Height - 2, Sender.Width - 2, Sender.Height - 2)
 e.Graphics.DrawLine(Pens.Red, Sender.Width - 2, 7, Sender.Width - 2, Sender.Height - 2)
End Sub

 

afterLoad事件

 

Dim gbx As Windows.forms.Groupbox= e.Form.Controls("GroupBox1").basecontrol
addhandler gbx.paint, addressof GroupBox1_paint