サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ WindowsXP スタイルかクラシック スタイルかを取得(VB6.0) ( No.0 ) 　[親スレッドへ] 日時： 2009/12/26 22:53 名前： 花ちゃん *********************************************************************************** * カテゴリー：[システム関係][自アプリ関係][]                                      * * キーワード：XPスタイル,ウィンドウ,画面のプロパティ,テーマ,Windows クラシック,   * *********************************************************************************** 元質問：Windiwsスタイルの取得方法について - ひで  2006/09/07-17:24 No.7172 現在選択されているWindowsスタイル(クラッシック等)を知りたいのですが、方法がわかりません。 ----------------------------------------------------------------------------------- Re: Windiwsスタイルの取得方法について - 花ちゃん  2006/09/07-18:44 No.7175 ----------------------------------------------------------------------------------- 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

　[スレッド一覧へ]　[親スレッドへ]