我试过了，我把自动打开都关闭了，然后在项目属性里面这样写上的
Forms("banner").open()Forms("导航").open()
还是这样的，是不是导航中的afterloda代码影响了 我复制给你看看
'''
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
With Ctype(tpb.BaseControl, C1Command.C1TopicBar)
If System.Environment.OSVersion.Version.Major < 6 Then
.VisualStyle = C1Command.VisualStyle.WindowsXP
Else
.VisualStyle = C1Command.VisualStyle.Office2010Blue
End If
.Padding = New Windows.Forms.Padding(4)
End With
tpb.Animation = False
With tpb.Pages
.Add("系统下单", "系统下单", "foxtable.ico").Collapsed = True
.Add("系统收货", "系统收货", "edit.ico").Collapsed = True
End With
With tpb.Pages("系统下单").Links
.Add("下单", "下单")
.Add("历史下单", "历史下单")
End With
With tpb.Pages("系统收货").Links
.Add("SAP收货","SAP收货")
End With
tpb.Animation = True
加好友 
发短信
Post By：2014/2/28 19:15:00 [显示全部帖子]
此主题相关图片如下：qq图片20140228191347.jpg
