主题：BUG修改

此主题相关图片如下：qq截图20110825134521.png

 

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

If user.IsRole = "管理员" Then

    e.Form.Controls("TopicBar1").Pages("系统设置").Visible = True

    e.Form.Controls("TopicBar1").Pages("基础数据").Visible = True

    e.Form.Controls("TopicBar1").Pages("员工管理").Visible = True

Else e.Form.Controls("TopicBar1").Pages("系统设置").Visible = False

     e.Form.Controls("TopicBar1").Pages("基础数据").Visible = False

     e.Form.Controls("TopicBar1").Pages("员工管理").Visible = False

End If

 

 

窗口AFTERLOAD中运行出现如图错误，不是太明白