以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 panel 的边框颜色  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104112)
--  作者：jackyfashion
--  发布时间：2017/7/23 20:38:00
--  求助 panel 的边框颜色
老师：
您好！
请问一下怎样可以设置 panel  和 TabControl 的边框颜色？
谢谢！
--  作者：有点甜
--  发布时间：2017/7/23 21:20:00
--  

全局代码

 

Public Sub panel_Paint(sender As Object, e As windows.forms.PaintEventArgs)
 windows.forms.ControlPaint.DrawBorder(e.Graphics, sender.ClientRectangle, Color.White, 10, windows.forms.ButtonBorderStyle.Solid, Color.White, _
  10, windows.forms.ButtonBorderStyle.Solid, Color.DimGray, 10, windows.forms.ButtonBorderStyle.Solid, Color.DimGray, _
  10, windows.forms.ButtonBorderStyle.Solid)

End Sub

 

 

绑定事件

 

Dim p As windows.forms.panel = e.form.controls("panel1").basecontrol
addhandler p.paint, addressof panel_paint
p.refresh
--  作者：jackyfashion
--  发布时间：2017/7/26 20:48:00
--  
谢谢老师！
请问全局代码写在那个模块？
绑定事件，请问绑定那个事件？
谢谢！
[此贴子已经被作者于2017/7/26 21:14:40编辑过]
--  作者：有点甜
--  发布时间：2017/7/26 21:56:00
--  

1、

 

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

 

2、绑定事件，写到窗口afterLoad事件，即可。
--  作者：jackyfashion
--  发布时间：2017/7/27 21:30:00
--  
谢谢老师！
--  作者：jackyfashion
--  发布时间：2017/7/28 0:10:00
--  
老师：
您好！
我有几个panel 请问怎样写代码可以全部统一改边框颜色？谢谢！
--  作者：有点甜
--  发布时间：2017/7/28 9:01:00
--  

绑定多个

 

Dim p As windows.forms.panel = e.form.controls("panel1").basecontrol
addhandler p.paint, addressof panel_paint
p.refresh

 

Dim p2 As windows.forms.panel = e.form.controls("panel2").basecontrol
addhandler p2.paint, addressof panel_paint
p2.refresh
--  作者：jackyfashion
--  发布时间：2017/7/28 22:05:00
--  
谢谢！