| 投稿日 | ： 2006/09/11(Mon) 15:29 |
| 投稿者 | ： ひで |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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
>
花ちゃんさんいつもお世話になっております。
上記の方法で実行したのですが、XPでも一部のパソコンで
下記のエラーが出ました。
実行時エラー'429':
ActiveXコンポーネントはオブジェクトを作成できません。
正常に動作したPCは
WindowsXP Home Visual Stadio6.0インストール済み
正常に動作しなかったPCは
WindowsXP Proです。
インストール方法はディストリビューションウィザードで
セットアップを作成しインストールを実行しました。
インストール時に
uxtheme.dllで登録中にエラーが発生しました。
と言うメッセージが出力されます。
これを無視を選択しインストールを完了させたのですが・・・
これが原因なのでしょうか？
何かお気づきの点がありましたらご教示ねがえないでしょうか？
宜しくお願いします。