-- 作者:大红袍
-- 发布时间:2015/7/1 9:48:00
--
窗口afterload事件,加入代码
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1") With Ctype(tpb.BaseControl, C1Command.C1TopicBar) \'.VisualStyle = C1Command.VisualStyle.WindowsXP \'.VisualStyle = C1Command.VisualStyle.Office2010Blue .VisualStyle = C1Command.VisualStyle.Office2007Silver .Padding = New Windows.Forms.Padding(4) End With
|