C# Signature:

[DllImport("uxtheme.dll", PreserveSig = false)]
public static extern void SetWindowThemeAttribute([In] IntPtr hwnd, [In] WINDOWTHEMEATTRIBUTETYPE eAttribute, [In] ref WTA_OPTIONS pvAttribute, [In] uint cbAttribute);

VB Signature:

Declare Function SetWindowThemeAttribute Lib "uxtheme.dll" (TODO) As TODO
[DllImport("uxtheme.dll", ExactSpelling=true, CharSet=CharSet.Unicode)]
public static extern int SetWindowTheme(IntPtr hWnd, String pszSubAppName, String pszSubIdList);

<DllImport("uxtheme.dll", PreserveSig := False)> _
Public Shared Sub SetWindowThemeAttribute(<[In]> hwnd As IntPtr, <[In]> eAttribute As WINDOWTHEMEATTRIBUTETYPE, <[In]> ByRef pvAttribute As WTA_OPTIONS, <[In]> cbAttribute As UInteger)
End Sub
[DllImport("uxtheme.dll", ExactSpelling=true, CharSet=CharSet.Unicode)]
public static extern int SetWindowTheme(IntPtr hWnd, int pszSubAppName, String pszSubIdList);

User-Defined Types:

WINDOWTHEMEATTRIBUTETYPE

WTA_OPTIONS

[DllImport("uxtheme.dll", ExactSpelling=true, CharSet=CharSet.Unicode)]
public static extern int SetWindowTheme(IntPtr hWnd, String pszSubAppName, int pszSubIdList);

Alternative Managed API:

Do you know one? Please contribute it!

[DllImport("uxtheme.dll", ExactSpelling=true, CharSet=CharSet.Unicode)]
public static extern int SetWindowTheme(IntPtr hWnd, int pszSubAppName, int pszSubIdList);

VB .NET Signature:

Public Declare Unicode Function SetWindowTheme Lib "uxtheme.dll" (ByVal hWnd As HandleRef, ByVal pszSubAppName As String, ByVal pszSubIdList As String) As Integer

Notes:

Returns HRESULT.

<DllImport("uxtheme.dll", ExactSpelling := True, CharSet := CharSet.Unicode)> _
Public Shared Function SetWindowTheme(hWnd As IntPtr, pszSubAppName As [String], pszSubIdList As [String]) As Integer
End Function

Tips & Tricks:

Please add some!

<DllImport("uxtheme.dll", ExactSpelling := True, CharSet := CharSet.Unicode)> _
Public Shared Function SetWindowTheme(hWnd As IntPtr, pszSubAppName As Integer, pszSubIdList As [String]) As Integer
End Function

Sample Code:

Please add some!

<DllImport("uxtheme.dll", ExactSpelling := True, CharSet := CharSet.Unicode)> _
Public Shared Function SetWindowTheme(hWnd As IntPtr, pszSubAppName As [String], pszSubIdList As Integer) As Integer
End Function

http://msdn.microsoft.com/en-us/library/bb759829(VS.85).aspx

<DllImport("uxtheme.dll", ExactSpelling := True, CharSet := CharSet.Unicode)> _
Public Shared Function SetWindowTheme(hWnd As IntPtr, pszSubAppName As Integer, pszSubIdList As Integer) As Integer
End Function

User-Defined Types:

None.

Notes:

None.

Tips & Tricks:

Imports System.Runtime.InteropServices

Public Class Form1

    Private Random As Random
    <DllImport("uxtheme.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)> _
    Private Shared Function SetWindowTheme(ByVal hWnd As IntPtr, ByVal appName As String, ByVal partList As String) As Integer
    End Function
    Public Sub New()
    InitializeComponent()
    Me.Font = System.Drawing.SystemFonts.IconTitleFont
    SetWindowTheme(ListView1.Handle, "explorer", Nothing)
    End Sub

End Class

Sample Code:

using System.Runtime.InteropServices;
...
public class MyForm : System.Windows.Forms.Form
...
[DllImport("uxtheme", ExactSpelling=true, CharSet=CharSet.Unicode)]
public extern static Int32 SetWindowTheme(IntPtr hWnd, String textSubAppName, String textSubIdList);
...
public MyForm()
{                    
SetWindowTheme(this.AnyControl.Handle,"","");
}

Alternative Managed API:

TODO

Please edit this page!

Do you have...

• helpful tips or sample code to share for using this API in managed code?
• corrections to the existing content?
• variations of the signature you want to share?
• additional languages you want to include?

Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing supporting types needed for this API (structures, delegates, and more).