GetThemeIntList

関数

指定プロパティのテーマ整数リストを取得する。

DLLUXTHEME.dll呼出規約winapi対応OSWindows Vista 以降

シグネチャ

// UXTHEME.dll
#include <windows.h>

HRESULT GetThemeIntList(
    HTHEME hTheme,
    INT iPartId,
    INT iStateId,
    INT iPropId,
    INTLIST* pIntList
);

パラメーター

名前	型	方向	説明
hTheme	HTHEME	in	ウィンドウの指定されたテーマデータへのハンドルです。HTHEME を作成するには OpenThemeData を使用します。
iPartId	INT	in	返すデータのリストを含むパーツを指定する int 型の値です。Parts and States を参照してください。
iStateId	INT	in	パーツの状態を指定する int 型の値です。Parts and States を参照してください。
iPropId	INT	in	取得するプロパティを指定する int 型の値です。Property Identifiers を参照してください。
pIntList	INTLIST*	out	int データを受け取る INTLIST 構造体へのポインターです。

戻り値の型: HRESULT

公式ドキュメント

ビジュアルスタイルから int データのリストを取得します。

戻り値

型: HRESULT

成功した場合は S_OK を返し、それ以外の場合はエラーコードを返します。

出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)

各言語での呼び出し定義

// UXTHEME.dll
#include <windows.h>

HRESULT GetThemeIntList(
    HTHEME hTheme,
    INT iPartId,
    INT iStateId,
    INT iPropId,
    INTLIST* pIntList
);

[DllImport("UXTHEME.dll", ExactSpelling = true)]
static extern int GetThemeIntList(
    IntPtr hTheme,   // HTHEME
    int iPartId,   // INT
    int iStateId,   // INT
    int iPropId,   // INT
    IntPtr pIntList   // INTLIST* out
);

<DllImport("UXTHEME.dll", ExactSpelling:=True)>
Public Shared Function GetThemeIntList(
    hTheme As IntPtr,   ' HTHEME
    iPartId As Integer,   ' INT
    iStateId As Integer,   ' INT
    iPropId As Integer,   ' INT
    pIntList As IntPtr   ' INTLIST* out
) As Integer
End Function

' hTheme : HTHEME
' iPartId : INT
' iStateId : INT
' iPropId : INT
' pIntList : INTLIST* out
Declare PtrSafe Function GetThemeIntList Lib "uxtheme" ( _
    ByVal hTheme As LongPtr, _
    ByVal iPartId As Long, _
    ByVal iStateId As Long, _
    ByVal iPropId As Long, _
    ByVal pIntList As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

GetThemeIntList = ctypes.windll.uxtheme.GetThemeIntList
GetThemeIntList.restype = ctypes.c_int
GetThemeIntList.argtypes = [
    ctypes.c_ssize_t,  # hTheme : HTHEME
    ctypes.c_int,  # iPartId : INT
    ctypes.c_int,  # iStateId : INT
    ctypes.c_int,  # iPropId : INT
    ctypes.c_void_p,  # pIntList : INTLIST* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('UXTHEME.dll')
GetThemeIntList = Fiddle::Function.new(
  lib['GetThemeIntList'],
  [
    Fiddle::TYPE_INTPTR_T,  # hTheme : HTHEME
    Fiddle::TYPE_INT,  # iPartId : INT
    Fiddle::TYPE_INT,  # iStateId : INT
    Fiddle::TYPE_INT,  # iPropId : INT
    Fiddle::TYPE_VOIDP,  # pIntList : INTLIST* out
  ],
  Fiddle::TYPE_INT)

#[link(name = "uxtheme")]
extern "system" {
    fn GetThemeIntList(
        hTheme: isize,  // HTHEME
        iPartId: i32,  // INT
        iStateId: i32,  // INT
        iPropId: i32,  // INT
        pIntList: *mut INTLIST  // INTLIST* out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("UXTHEME.dll")]
public static extern int GetThemeIntList(IntPtr hTheme, int iPartId, int iStateId, int iPropId, IntPtr pIntList);
"@
$api = Add-Type -MemberDefinition $sig -Name 'UXTHEME_GetThemeIntList' -Namespace Win32 -PassThru
# $api::GetThemeIntList(hTheme, iPartId, iStateId, iPropId, pIntList)

#uselib "UXTHEME.dll"
#func global GetThemeIntList "GetThemeIntList" sptr, sptr, sptr, sptr, sptr
; GetThemeIntList hTheme, iPartId, iStateId, iPropId, varptr(pIntList)   ; 戻り値は stat
; hTheme : HTHEME -> "sptr"
; iPartId : INT -> "sptr"
; iStateId : INT -> "sptr"
; iPropId : INT -> "sptr"
; pIntList : INTLIST* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

出力引数:

#uselib "UXTHEME.dll"
#cfunc global GetThemeIntList "GetThemeIntList" sptr, int, int, int, var
; res = GetThemeIntList(hTheme, iPartId, iStateId, iPropId, pIntList)
; hTheme : HTHEME -> "sptr"
; iPartId : INT -> "int"
; iStateId : INT -> "int"
; iPropId : INT -> "int"
; pIntList : INTLIST* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "UXTHEME.dll"
#cfunc global GetThemeIntList "GetThemeIntList" sptr, int, int, int, sptr
; res = GetThemeIntList(hTheme, iPartId, iStateId, iPropId, varptr(pIntList))
; hTheme : HTHEME -> "sptr"
; iPartId : INT -> "int"
; iStateId : INT -> "int"
; iPropId : INT -> "int"
; pIntList : INTLIST* out -> "sptr"
; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。