主题：TopicBar动态添加Link代码

各位高手

“基本功能演示”中"导航"的一些代码，请教一下，

 

1. 以下是什么意思？能去掉吗？

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

2. 以下是什么意思？能去掉吗？帮助中没有

tpb.Animation = False

 

————————————

 

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
    .Add("汇总模式", "汇总模式", "07372.ico").Collapsed = True
End With
With tpb.Pages("特色功能").Links
    .Add("汇总模式", "汇总模式")
    .Add("轻松录入", "轻松录入")
    .Add("框架模式", "框架模式")
End With
With tpb.Pages("轻松录入").Links
    .Add("列表项目","列表项目")
    .Add("目录列表", "目录列表")
End With
With tpb.Pages("汇总模式").Links
    .Add("汇总模式", "汇总模式")
    .Add("日期统计", "日期统计")
    .Add("截止统计", "截止统计")
End With
tpb.Animation = True

 

设置样式和关闭开启动画效果,  直接直接测试一下代码,就可以直观的理解.