投稿日	： 2006/09/07(Thu) 18:44
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: Windiwsスタイルの取得方法について

お試し下さい。

Option Explicit
Private Declare Function IsThemeActive Lib "uxtheme.dll" () As Boolean
Private Sub Command1_Click()
    If IsThemeActive Then
        MsgBox "WindowsXP スタイルです"
    Else
        MsgBox "クラシック スタイルです"
    End If
End Sub

# 質問しておきながら返事が無いのはどうでもよい質問だったのでしょうか？
　すぐに返事ができないなら、質問した時にその旨記入して下さい。
　回答者は、結果がどうだったか？ 再質問なりが投稿されていないかと、何度となく
　チェックをしているのですよ。
  http://hanatyan.sakura.ne.jp/hazimeni.htm#no4

　

★ - Windiwsスタイルの取得方法について - ひで 09/07-17:24No.7172
• Re: Windiwsスタイルの取得方法について - 花ちゃん 09/07-18:44 No.7175
  • Re^2: Windiwsスタイルの取得方法について - ひで 09/08-16:47 No.7192
  • Re^2: Windiwsスタイルの取得方法について - ひで 09/10-14:32 No.7196
    • Re^3: Windiwsスタイルの取得方法について - 花ちゃん 09/10-15:53 No.7197
      • Re^4: Windiwsスタイルの取得方法について - ひで 09/10-16:16 No.7199
        • Re^5: Windiwsスタイルの取得方法について - 花ちゃん 09/10-16:29 No.7200
          • Re^6: Windiwsスタイルの取得方法について - ひで 09/10-17:04 No.7201
  • Re^2: Windiwsスタイルの取得方法について - ひで 09/11-15:29 No.7206
    • Re^3: Windiwsスタイルの取得方法について - ひで 09/11-15:33 No.7208