ab.com コミュニティ

　こんばんは。yu0627です。
　現在ソフトの設定ウインドウとしてタブウインドウを使用しようとしています。
基本は出来たのですが少し不満点として、WindowsXP上でmanifestファイル等でVisual Styleを設定した時に、タブコントロールに貼り付けたダイアログの背景色が3D FACEnoグレー色になってしまい、違和感があります。
　そこでネットで検索し、以下のサイトにて背景色の変更方法を知りました。
http://forums.belution.com/ja/vc/000/058/88s.shtml
なのでやってみましたが、どうしてもうまくいきません。
以下がコードです。

[ここをクリックすると内容が表示されます]

コード: 全て選択

'===========================================================
'
'	Windows　OSバージョン取得用関数
'
'===========================================================
#ifndef _INC_GETWINVER
#define _INC_GETWINVER

'---------
'定数宣言
'---------
'戻り値　－　Windowsのバージョン
Const WIN_VER_95				= &H01				'Windows95
Const WIN_VER_95_OSR2			= &H02				'Windows95 OSR2
Const WIN_VER_98				= &H03				'Windows98
Const WIN_VER_98_SE				= &H04				'Windows98 Second Edition
Const WIN_VER_ME				= &H05				'Windows Millenium Edition
Const WIN_VER_NT				= &H06				'Windows NT
Const WIN_VER_NT_2000			= &H07				'Windows 2000
Const WIN_VER_NT_XP				= &H08				'Windows XP
Const WIN_VER_NT_SERVER_2003	= &H09				'Windows Server 2003
Const WIN_VER_VISTA				= &H0A				'Windows Vista

'Windowsのバージョンを返す関数
Function GetWinVersion() As DWord
	Dim OsVerInfo As OSVERSIONINFO					'OSに関する情報を格納

	OsVerInfo.dwOSVersionInfoSize = SizeOf(OSVERSIONINFO)

	'OSのバージョンを変更
	GetVersionEx(OsVerInfo)

	IF OsVerInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
		'98系のOS
		Select Case OsVerInfo.dwMinorVersion
			Case 0
				If LOWORD(OsVerInfo.dwBuildNumber) = 950 Then
					'Windows 95
					GetWinVersion = WIN_VER_95
				ElseIf LOWORD(OsVerInfo.dwBuildNumber) > 1000 Then
					'Windows 95 OSR2
					GetWinVersion = WIN_VER_95_OSR2
				Else
					GetWinVersion = WIN_VER_95
				End If

				Exit Function
			Case 10
				If LOWORD(OsVerInfo.dwBuildNumber) = 1998 Then
					'Windows 98
					GetWinVersion = WIN_VER_98
				ElseIf LOWORD(OsVerInfo.dwBuildNumber) > 1998 Then
					'Windows 98 Second Edition
					GetWinVersion = WIN_VER_98_SE
				Else
					GetWinVersion = WIN_VER_98
				End If

				Exit Function
			Case 90
				'Windows Millenium Edition
				GetWinVersion = WIN_VER_ME
				Exit Function
		End Select
	ElseIf OsVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT Then
		If OsVerInfo.dwMajorVersion = 4 Then
			'Windows NT
			GetWinVersion = WIN_VER_NT

			Exit Function
		ElseIf OsVerInfo.dwMajorVersion = 5 Then
			If OsVerInfo.dwMinorVersion = 0 Then
				'Windows 2000
				GetWinVersion = WIN_VER_NT_2000
			ElseIf OsVerInfo.dwMinorVersion = 1 Then
				'Windows XP
				GetWinVersion = WIN_VER_NT_XP
			ElseIf OsVerInfo.dwMinorVersion = 2 Then
				'Windows XP Professional x64 Edition / Windows Server 2003 / Windows Server 2003 R2
				GetWinVersion = WIN_VER_NT_SERVER_2003
			End If

			Exit Function
		ElseIf OsVerInfo.dwMajorVersion = 6 Then
			If OsVerInfo.dwMinorVersion = 0 Then
				'Windows Vista / Windows Server "Longhorn"
				GetWinVersion = WIN_VER_VISTA
			End If

			Exit Function
		End If
	End If			
End Function

#endif

Dim hUxThemeLib As HINSTANCE
Dim pEnableThemeDialogTexture As *Function(hWnd As HWND, dwFlags As DWord) As DWord

Const ETDT_ENABLE			= &H2
Const ETDT_USETABTEXTURE	= &H4
Const ETDT_ENABLETAB		= ETDT_ENABLE or ETDT_USETABTEXTURE

'--- MainWndのCreateイベント
If GetWinVersion() >= WIN_VER_NT_XP Then
	hUxThemeLib = LoadLibrary("UxTheme")

	If hUxThemeLib Then
		pEnableThemeDialogTexture = GetProcAddress(hUxThemeLib, "EnableThemeDialogTexture") As *Function
	End If
End If

'---タブに貼り付けるダイアログのCreateイベント
If GetWinVersion() >= WIN_VER_NT_XP Then
	EnableThemeDialogTexture([ダイアログのハンドル], ETDT_ENABLETAB)
End If

'--MainWndのDestroyイベント
If GetWinVersion() >= WIN_VER_NT_XP Then
	If hUxThemeLib Then FreeLibrary(hUxThemeLib)
End If

これをやってもダイアログの背景が変わらないんです。
ちなみにプロパティシートでも同様でした。
ダイアログはモードレス・ダイアログで、タブコントロールの作成にはこのフォーラムにあるタブ作成のクラスを使用しています。

ab.com コミュニティ

タブコントロール上のダイアログ上の背景色（in XP)

タブコントロール上のダイアログ上の背景色（in XP)