主题：求助 panel 的边框颜色

全局代码

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

1、

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

2、绑定事件，写到窗口afterLoad事件，即可。

绑定多个

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