'================================================================
'= 視覚スタイル(VisualStyle)を判別

'=    (IsThemeActive.bas)
'================================================================
#include "Windows.bi"

' ビジュアルスタイルが有効か判別
Declare Function Api_IsThemeActive& Lib "uxtheme" Alias "IsThemeActive" ()

Var Shared Text1 As Object
Var Shared Button1 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    If Api_IsThemeActive Then
        Text1.SetWindowText "WindowsXPスタイル"
    Else
        Text1.SetWindowText "クラシックスタイル" 
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End