SetWindowTheme

ウィンドウのビジュアルテーマを設定する

Declare Function SetWindowTheme Lib "UxTheme.dll" _

     (ByVal hWnd As Long, ByVal pszSubAppName As Long, _

     ByVal pszSubIdList As Long) As Long

Declare Function SetWindowTheme Lib "UxTheme.dll" _

     (ByVal hWnd As Integer, ByVal pszSubAppName As Integer, _

     ByVal pszSubIdList As Integer) As Integer

ウィンドウのハンドル

アプリケーション名を格納するメモリポインタ

vbNullStringを指定したとき、呼び出したアプリケーション名を使用する

使用するCLSIDをセミコロン「;」で区切ったリストを含んでいる

文字列へのメモリポインタ

vbNullStringを指定したとき、呼び出したCLSIDを使用する

正常終了のとき  S_OK(=0)

エラーのとき            S_OK以外

ダウンロード(SetWindowTheme.lzh 1.05KB)

'ウィンドウのテーマを設定する
Private Declare Function SetWindowTheme Lib "UxTheme.dll" _
 (ByVal hWnd As Long, ByVal pszSubAppName As Long, ByVal pszSubIdList As Long) As Long

Private Sub Command1_Click()
'XPのスタイルにする
Call SetWindowTheme(Me.hWnd, 0, 0)
End Sub


Private Sub Command2_Click()
'Classicスタイルにする
Call SetWindowTheme(Me.hWnd, StrPtr(" "), StrPtr(" "))
End Sub