以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段代码什么意思  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83348)
--  作者：fengxiaoyuasd
--  发布时间：2016/4/6 21:36:00
--  这段代码什么意思
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
--  作者：大红袍
--  发布时间：2016/4/6 21:47:00
--  

System.Environment.OSVersion.Version.Major 这个是获取操作系统的版本的。

 

如果值小于6，就是xp，否则，就是win7以上的。

 

根据这个设置不同的风格而已。