取Windows系统是否启用风格

来源:互联网 发布:德国联邦网络管理局 编辑:程序博客网 时间:2024/06/05 17:19

取Windows系统是否启用风格 

Private Declare Function IsAppThemed Lib "uxtheme.dll" () As Boolean

Public Function SupportThemeSystem() As Boolean
  
             SupportThemeSystem = IsAppThemed
            Print IsAppThemed
                      
End Function

Private Sub Command1_Click()
 SupportThemeSystem
 
End Sub

原创粉丝点击