以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Groupbox 边框的线条颜色  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118800)

--  作者:drcqh
--  发布时间:2018/5/11 11:21:00
--  Groupbox 边框的线条颜色
像Groupbox控件 边框的线条颜色属性中能设置就太好了,期待狐表以后能改进一下
--  作者:有点甜
--  发布时间:2018/5/11 11:29:00
--  
参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78401&skin=0
--  作者:drcqh
--  发布时间:2018/5/11 11:44:00
--  

 

 

全局代码

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

上面代码看不太懂。用这段代码测试时发现边框线条是红色,背景是黑色的。我只需要设置线条颜色,上面代码怎么改?


 


--  作者:有点甜
--  发布时间:2018/5/11 12:00:00
--  

看看这里

 

http://www.foxtable.com/webhelp/scr/1482.htm

 

e.Graphics.Clear(Sender.BackColor) \'可以删除

 

设置颜色,修改这个 Pens.Red


--  作者:drcqh
--  发布时间:2018/5/11 15:36:00
--  

谢谢版主!