主题：TABLE外围边框颜色

全局代码

Public Sub panel_Paint(sender As Object, e As windows.forms.PaintEventArgs)
e.Graphics.DrawLine(Pens.Red, 0, 0, 0, Sender.Height - 2)
End Sub

绑定事件代码

Dim p As C1.Win.C1FlexGrid.C1FlexGridBase = forms("窗口1").controls("table1").basecontrol
addhandler p.paint, addressof panel_paint
p.refresh