VB中如何编程得知XP系统中是否有开启视觉样式效果

VB中如何编程得知XP系统中是否有开启视觉样式效果

Private Declare Function IsAppThemed Lib "uxtheme.dll" () As Boolean
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Public Function SupportThemeSystem() As Boolean
Dim lngLibHandle As Long

lngLibHandle = LoadLibrary("uxtheme.dll")
If lngLibHandle Then
SupportThemeSystem = IsAppThemed
FreeLibrary lngLibHandle
End If
End Function

如果系统是XP以上版本，并且开启桌面主题方案，则SupportThemeSystem返回真。若系统是Win2000及以下版本或者系统是XP以上但使用Windows经典风格界面，则返回假。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息