| 投稿日 | ： 2006/09/10(Sun) 14:32 |
| 投稿者 | ： ひで |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 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
>
上記の方法を実行してみたのですが、Windows2000の場合正しく動作しません。
私の使い方が悪いのかもしれませんが・・・
もう少し調べてみます。