[block de notas] Apis y Constantes de UxTheme.dll

[LeandroA]

Estas son algunas apis y constantes para utilizar los temas de windows, las encontre googleando y bueno solo para no perderlas de vista las pongo aca

Código: [Seleccionar]

'================================================================================================
'API 声明
'================================================================================================
Public Declare Function IsThemeActive Lib "UxTheme.dll" () As Long
Public Declare Function OpenThemeData Lib "UxTheme.dll" (ByVal HWnd As Long, ByVal pszClassList As String) As Long
Public Declare Function CloseThemeData Lib "UxTheme.dll" (ByVal HTheme As Long) As Long
Public Declare Function DrawThemeBackground Lib "UxTheme.dll" (ByVal HTheme As Long,ByVal hdc As Long, ByVal iPartID As Integer, ByVal iStateID As Integer, pRect As RECT, pClipRect As RECT) As Long
Public Declare Function DrawThemeText Lib "UxTheme.dll" (ByVal HTheme As Long, ByVal hdc As Long,ByVal iPartID As Integer, ByVal iStateID As Integer, ByVal pszText As String, ByVal iChar As Long, ByVal dwTextFlags As eDrawTextFormat, ByVal dwTextFlags2 As Long, pRect As RECT) As Long

'================================================================================================
'相关的用户类型与枚举的声明
'================================================================================================
Public Enum eDrawTextFormat
    DT_BOTTOM = &H8
    DT_CALCRECT = &H400
    DT_CENTER = &H1
    DT_CHARSTREAM = 4
    DT_DISPFILE = 6
    DT_EXPANDTABS = &H40
    DT_EXTERNALLEADING = &H200
    DT_INTERNAL = &H1000
    DT_LEFT = &H0
    DT_METAFILE = 5
    DT_NOCLIP = &H100
    DT_NOPREFIX = &H800
    DT_PLOTTER = 0
    DT_RASCAMERA = 3
    DT_RASDISPLAY = 1
    DT_RASPRINTER = 2
    DT_RIGHT = &H2
    DT_SINGLELINE = &H20
    DT_TABSTOP = &H80
    DT_TOP = &H0
    DT_VCENTER = &H4
    DT_WORDBREAK = &H10
    DT_EDITCONTROL = &H2000
    DT_PATH_ELLIPSIS = &H4000
    DT_END_ELLIPSIS = &H8000
    DT_MODIFYSTRING = &H10000
    DT_RTLREADING = &H20000
    DT_WORD_ELLIPSIS = &H40000
End Enum

Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

'# include "tmschema.h"
'Primitive types（基本类型）
Public Const TMT_STRING = 201
Public Const TMT_INT = 202
Public Const TMT_BOOL = 203
Public Const TMT_COLOR = 204
Public Const TMT_MARGINS = 205
Public Const TMT_FILENAME = 206
Public Const TMT_SIZE = 207
Public Const TMT_POSITION = 208
Public Const TMT_RECT = 209
Public Const TMT_FONT = 210
Public Const TMT_INTLIST = 211


'Enumerations ［枚举（常数）］

'BGTYPE Enum（背景类型）
Public Const BT_IMAGEFILE = 0
Public Const BT_BORDERFILL = 1
Public Const BT_NONE = 2

'IMAGELAYOUT Enum
Public Const IL_VERTICAL = 0
Public Const IL_HORIZONTAL = 1

'BORDERTYPE Enum（边框类型）
Public Const BT_RECT = 0
Public Const BT_ROUNDRECT = 1
Public Const BT_ELLIPSE = 2

'FILLTYPE Enum（填充类型）
Public Const FT_SOLID = 0
Public Const FT_VERTGRADIENT = 1
Public Const FT_HORZGRADIENT = 2
Public Const FT_RADIALGRADIENT = 3
Public Const FT_TILEIMAGE = 4

'SIZINGTYPE Enum
Public Const ST_TRUESIZE = 0
Public Const ST_STRETCH = 1
Public Const ST_TILE = 2

'HALIGN Enum（水平对齐）
Public Const HA_LEFT = 0
Public Const HA_CENTER = 1
Public Const HA_RIGHT = 2

'CONTENTALIGNMENT Enum
Public Const CA_LEFT = 0
Public Const CA_CENTER = 1
Public Const CA_RIGHT = 2

'VALIGN Enum（垂直对齐）
Public Const VA_TOP = 0
Public Const VA_CENTER = 1
Public Const VA_BOTTOM = 2

'OFFSETTYPE Enum（偏移类型）
Public Const OT_TOPLEFT = 0
Public Const OT_TOPRIGHT = 1
Public Const OT_TOPMIDDLE = 2
Public Const OT_BOTTOMLEFT = 3
Public Const OT_BOTTOMRIGHT = 4
Public Const OT_BOTTOMMIDDLE = 5
Public Const OT_MIDDLELEFT = 6
Public Const OT_MIDDLERIGHT = 7
Public Const OT_LEFTOFCAPTION = 8
Public Const OT_RIGHTOFCAPTION = 9
Public Const OT_LEFTOFLASTBUTTON = 10
Public Const OT_RIGHTOFLASTBUTTON = 11
Public Const OT_ABOVELASTBUTTON = 12
Public Const OT_BELOWLASTBUTTON = 13

'ICONEFFECT Enum（图标效果）
Public Const ICE_NONE = 0
Public Const ICE_GLOW = 1
Public Const ICE_SHADOW = 2
Public Const ICE_PULSE = 3
Public Const ICE_ALPHA = 4

'TEXTSHADOWTYPE Enum（文本阴影）
Public Const TST_NONE = 0
Public Const TST_SINGLE = 1
Public Const TST_CONTINUOUS = 2

'GLYPHTYPE Enum
Public Const GT_NONE = 0
Public Const GT_IMAGEGLYPH = 1
Public Const GT_FONTGLYPH = 2

'IMAGESELECTTYPE Enum
Public Const IST_NONE = 0
Public Const IST_SIZE = 1
Public Const IST_DPI = 2

'TRUESIZESCALINGTYPE Enum
Public Const TSST_NONE = 0
Public Const TSST_SIZE = 1
Public Const TSST_DPI = 2

'GLYPHFONTSIZINGTYPE Enum
Public Const GFST_NONE = 0
Public Const GFST_SIZE = 1
Public Const GFST_DPI = 2


'properties（属性）

'Misc properties（杂项）
Public Const TMT_COLORSCHEMES = 401
Public Const TMT_SIZES = 402
Public Const TMT_CHARSET = 403

'Documentation properties（文档）
Public Const TMT_DISPLAYNAME = 601
Public Const TMT_TOOLTIP = 602
Public Const TMT_COMPANY = 603
Public Const TMT_AUTHOR = 604
Public Const TMT_COPYRIGHT = 605
Public Const TMT_URL = 606
Public Const TMT_VERSION = 607
Public Const TMT_DESCRIPTION = 608
Public Const TMT_FIRST_RCSTRING_NAME = TMT_DISPLAYNAME
Public Const TMT_LAST_RCSTRING_NAME = TMT_DESCRIPTION

'Font theme metric properties（字体元素）
Public Const TMT_CAPTIONFONT = 801
Public Const TMT_SMALLCAPTIONFONT = 802
Public Const TMT_MENUFONT = 803
Public Const TMT_STATUSFONT = 804
Public Const TMT_MSGBOXFONT = 805
Public Const TMT_ICONTITLEFONT = 806
Public Const TMT_FIRSTFONT = TMT_CAPTIONFONT
Public Const TMT_LASTFONT = TMT_ICONTITLEFONT

'Bool theme metric properties（Bool 主题元素）
Public Const TMT_FLATMENUS = 1001
Public Const TMT_FIRSTBOOL = TMT_FLATMENUS
Public Const TMT_LASTBOOL = TMT_FLATMENUS

'Size theme metric properties（尺寸主题元素）
Public Const TMT_SIZINGBORDERWIDTH = 1201
Public Const TMT_SCROLLBARWIDTH = 1202
Public Const TMT_SCROLLBARHEIGHT = 1203
Public Const TMT_CAPTIONBARWIDTH = 1204
Public Const TMT_CAPTIONBARHEIGHT = 1205
Public Const TMT_SMCAPTIONBARWIDTH = 1206
Public Const TMT_SMCAPTIONBARHEIGHT = 1207
Public Const TMT_MENUBARWIDTH = 1208
Public Const TMT_MENUBARHEIGHT = 1209
Public Const TMT_FIRSTSIZE = TMT_SIZINGBORDERWIDTH
Public Const TMT_LASTSIZE = TMT_MENUBARHEIGHT

'Int theme metric properties（Int 主题元素）
Public Const TMT_MINCOLORDEPTH = 1301
Public Const TMT_FIRSTINT = TMT_MINCOLORDEPTH
Public Const TMT_LASTINT = TMT_MINCOLORDEPTH

'String theme metric properties（字符串主题元素）
Public Const TMT_CSSNAME = 1401
Public Const TMT_XMLNAME = 1402
Public Const TMT_FIRSTSTRING = TMT_CSSNAME
Public Const TMT_LASTSTRING = TMT_XMLNAME

'Color theme metric properties（颜色主题元素）
Public Const TMT_SCROLLBAR = 1601
Public Const TMT_BACKGROUND = 1602
Public Const TMT_ACTIVECAPTION = 1603
Public Const TMT_INACTIVECAPTION = 1604
Public Const TMT_MENU = 1605
Public Const TMT_WINDOW = 1606
Public Const TMT_WINDOWFRAME = 1607
Public Const TMT_MENUTEXT = 1608
Public Const TMT_WINDOWTEXT = 1609
Public Const TMT_CAPTIONTEXT = 1610
Public Const TMT_ACTIVEBORDER = 1611
Public Const TMT_INACTIVEBORDER = 1612
Public Const TMT_APPWORKSPACE = 1613
Public Const TMT_HIGHLIGHT = 1614
Public Const TMT_HIGHLIGHTTEXT = 1615
Public Const TMT_BTNFACE = 1616
Public Const TMT_BTNSHADOW = 1617
Public Const TMT_GRAYTEXT = 1618
Public Const TMT_BTNTEXT = 1619
Public Const TMT_INACTIVECAPTIONTEXT = 1620
Public Const TMT_BTNHIGHLIGHT = 1621
Public Const TMT_DKSHADOW3D = 1622
Public Const TMT_LIGHT3D = 1623
Public Const TMT_INFOTEXT = 1624
Public Const TMT_INFOBK = 1625
Public Const TMT_BUTTONALTERNATEFACE = 1626
Public Const TMT_HOTTRACKING = 1627
Public Const TMT_GRADIENTACTIVECAPTION = 1628
Public Const TMT_GRADIENTINACTIVECAPTION = 1629
Public Const TMT_MENUHILIGHT = 1630
Public Const TMT_MENUBAR = 1631
Public Const TMT_FIRSTCOLOR = TMT_SCROLLBAR
Public Const TMT_LASTCOLOR = TMT_MENUBAR


'hue properties（色调）
Public Const TMT_FROMHUE1 = 1801
Public Const TMT_FROMHUE2 = 1802
Public Const TMT_FROMHUE3 = 1803
Public Const TMT_FROMHUE4 = 1804
Public Const TMT_FROMHUE5 = 1805
Public Const TMT_TOHUE1 = 1806
Public Const TMT_TOHUE2 = 1807
Public Const TMT_TOHUE3 = 1808
Public Const TMT_TOHUE4 = 1809
Public Const TMT_TOHUE5 = 1810

'color properties（颜色）
Public Const TMT_FROMCOLOR1 = 2001
Public Const TMT_FROMCOLOR2 = 2002
Public Const TMT_FROMCOLOR3 = 2003
Public Const TMT_FROMCOLOR4 = 2004
Public Const TMT_FROMCOLOR5 = 2005
Public Const TMT_TOCOLOR1 = 2006
Public Const TMT_TOCOLOR2 = 2007
Public Const TMT_TOCOLOR3 = 2008
Public Const TMT_TOCOLOR4 = 2009
Public Const TMT_TOCOLOR5 = 2010


'Bool rendering properties（Bool 绘制）
Public Const TMT_TRANSPARENT = 2201
Public Const TMT_AUTOSIZE = 2202
Public Const TMT_BORDERONLY = 2203
Public Const TMT_COMPOSITED = 2204
Public Const TMT_BGFILL = 2205
Public Const TMT_GLYPHTRANSPARENT = 2206
Public Const TMT_GLYPHONLY = 2207
Public Const TMT_ALWAYSSHOWSIZINGBAR = 2208
Public Const TMT_MIRRORIMAGE = 2209
Public Const TMT_UNIFORMSIZING = 2210
Public Const TMT_INTEGRALSIZING = 2211
Public Const TMT_SOURCEGROW = 2212
Public Const TMT_SOURCESHRINK = 2213

'Int rendering properties（Int 绘制）
Public Const TMT_IMAGECOUNT = 2401
Public Const TMT_ALPHALEVEL = 2402
Public Const TMT_BORDERSIZE = 2403
Public Const TMT_ROUNDCORNERWIDTH = 2404
Public Const TMT_ROUNDCORNERHEIGHT = 2405
Public Const TMT_GRADIENTRATIO1 = 2406
Public Const TMT_GRADIENTRATIO2 = 2407
Public Const TMT_GRADIENTRATIO3 = 2408
Public Const TMT_GRADIENTRATIO4 = 2409
Public Const TMT_GRADIENTRATIO5 = 2410
Public Const TMT_PROGRESSCHUNKSIZE = 2411
Public Const TMT_PROGRESSSPACESIZE = 2412
Public Const TMT_SATURATION = 2413
Public Const TMT_TEXTBORDERSIZE = 2414
Public Const TMT_ALPHATHRESHOLD = 2415
Public Const TMT_WIDTH = 2416
Public Const TMT_HEIGHT = 2417
Public Const TMT_GLYPHINDEX = 2418
Public Const TMT_TRUESIZESTRETCHMARK = 2419
Public Const TMT_MINDPI1 = 2420
Public Const TMT_MINDPI2 = 2421
Public Const TMT_MINDPI3 = 2422
Public Const TMT_MINDPI4 = 2423
Public Const TMT_MINDPI5 = 2424

'Font rendering properties（字体绘制）
Public Const TMT_GLYPHFONT = 2601

'Filename rendering properties（文件名绘制）
Public Const TMT_IMAGEFILE = 3001
Public Const TMT_IMAGEFILE1 = 3002
Public Const TMT_IMAGEFILE2 = 3003
Public Const TMT_IMAGEFILE3 = 3004
Public Const TMT_IMAGEFILE4 = 3005
Public Const TMT_IMAGEFILE5 = 3006
Public Const TMT_STOCKIMAGEFILE = 3007
Public Const TMT_GLYPHIMAGEFILE = 3008

'String rendering properties（文本绘制）
Public Const TMT_TEXT = 3201

'Position rendering properties（位置绘制）
Public Const TMT_OFFSET = 3401
Public Const TMT_TEXTSHADOWOFFSET = 3402
Public Const TMT_MINSIZE = 3403
Public Const TMT_MINSIZE1 = 3404
Public Const TMT_MINSIZE2 = 3405
Public Const TMT_MINSIZE3 = 3406
Public Const TMT_MINSIZE4 = 3407
Public Const TMT_MINSIZE5 = 3408
Public Const TMT_NORMALSIZE = 3409

'Margin rendering properties（边界绘制）
Public Const TMT_SIZINGMARGINS = 3601
Public Const TMT_CONTENTMARGINS = 3602
Public Const TMT_CAPTIONMARGINS = 3603

'Color rendering properties（颜色绘制）
Public Const TMT_BORDERCOLOR = 3801
Public Const TMT_FILLCOLOR = 3802
Public Const TMT_TEXTCOLOR = 3803
Public Const TMT_EDGELIGHTCOLOR = 3804
Public Const TMT_EDGEHIGHLIGHTCOLOR = 3805
Public Const TMT_EDGESHADOWCOLOR = 3806
Public Const TMT_EDGEDKSHADOWCOLOR = 3807
Public Const TMT_EDGEFILLCOLOR = 3808
Public Const TMT_TRANSPARENTCOLOR = 3809
Public Const TMT_GRADIENTCOLOR1 = 3810
Public Const TMT_GRADIENTCOLOR2 = 3811
Public Const TMT_GRADIENTCOLOR3 = 3812
Public Const TMT_GRADIENTCOLOR4 = 3813
Public Const TMT_GRADIENTCOLOR5 = 3814
Public Const TMT_SHADOWCOLOR = 3815
Public Const TMT_GLOWCOLOR = 3816
Public Const TMT_TEXTBORDERCOLOR = 3817
Public Const TMT_TEXTSHADOWCOLOR = 3818
Public Const TMT_GLYPHTEXTCOLOR = 3819
Public Const TMT_GLYPHTRANSPARENTCOLOR = 3820
Public Const TMT_FILLCOLORHINT = 3821
Public Const TMT_BORDERCOLORHINT = 3822
Public Const TMT_ACCENTCOLORHINT = 3823

'Enum rendering properties（枚举绘制）
Public Const TMT_BGTYPE = 4001
Public Const TMT_BORDERTYPE = 4002
Public Const TMT_FILLTYPE = 4003
Public Const TMT_SIZINGTYPE = 4004
Public Const TMT_HALIGN = 4005
Public Const TMT_CONTENTALIGNMENT = 4006
Public Const TMT_VALIGN = 4007
Public Const TMT_OFFSETTYPE = 4008
Public Const TMT_ICONEFFECT = 4009
Public Const TMT_TEXTSHADOWTYPE = 4010
Public Const TMT_IMAGELAYOUT = 4011
Public Const TMT_GLYPHTYPE = 4012
Public Const TMT_IMAGESELECTTYPE = 4013
Public Const TMT_GLYPHFONTSIZINGTYPE = 4014
Public Const TMT_TRUESIZESCALINGTYPE = 4015

'custom properties（自定义属性）
Public Const TMT_USERPICTURE = 5001
Public Const TMT_DEFAULTPANESIZE = 5002
Public Const TMT_BLENDCOLOR = 5003

'PARTS & STATES（零件与状态）

'BUTTON parts
Public Const BP_PUSHBUTTON = 1
Public Const BP_RADIOBUTTON = 2
Public Const BP_CHECKBOX = 3
Public Const BP_GROUPBOX = 4
Public Const BP_USERBUTTON = 5

'BUTTON PUSHBUTTON states
Public Const PBS_NORMAL = 1
Public Const PBS_HOT = 2
Public Const PBS_PRESSED = 3
Public Const PBS_DISABLED = 4
Public Const PBS_DEFAULTED = 5

'BUTTON RADIOBUTTON states
Public Const RBS_UNCHECKEDNORMAL = 1
Public Const RBS_UNCHECEDHOT = 2
Public Const RBS_UNCHECKEDPRESSED = 3
Public Const RBS_UNCHECKEDDISABLED = 4
Public Const RBS_CHECKEDNORMAL = 5
Public Const RBS_CHECKEDHOT = 6
Public Const RBS_CHECKEDPRESSED = 7
Public Const RBS_CHECKEDDISABLED = 8

'BUTTON CHECBOX states
Public Const CBS_UNCHECKEDNORMAL = 1
Public Const CBS_UNCHECKEDHOT = 2
Public Const CBS_UNCHECKEDPRESSED = 3
Public Const CBS_UNCHECKEDDISABLED = 4
Public Const CBS_CHECKEDNORMAL = 5
Public Const CBS_CHECKEDHOT = 6
Public Const CBS_CHECKEDPRESSED = 7
Public Const CBS_CHECKEDDISABLED = 8
Public Const CBS_MIXEDNORMAL = 9
Public Const CBS_MIXEDHOT = 10
Public Const CBS_MIXEDPRESSED = 11
Public Const CBS_MIXEDDISABLED = 12

'BUTTON GROUPBOX states
Public Const GBS_NORMAL = 1
Public Const GBS_DISABLED = 2

'CLOCK parts
Public Const CLP_TIME = 1

'CLOCK TIME states
Public Const CLS_NORMAL = 1

'COMBOBOX parts
Public Const CP_DROPDOWNBUTTON = 1

'COMBOBOX DROPDOWNBUTTON states
Public Const CBXS_NORMAL = 1
Public Const CBXS_HOT = 2
Public Const CBXS_PRESSED = 3
Public Const CBXS_DISABLED = 4

'EDIT parts
Public Const EP_EDITTEXT = 1
Public Const EP_CARET = 2

'EDIT EDITTEXT states
Public Const ETS_NORMAL = 1
Public Const ETS_HOT = 2
Public Const ETS_SELECTED = 3
Public Const ETS_DISABLED = 4
Public Const ETS_FOCUSED = 5
Public Const ETS_READONLY = 6
Public Const ETS_ASSIST = 7

'EXPLORERBAR parts
Public Const EBP_HEADERBACKGROUND = 1
Public Const EBP_HEADERCLOSE = 2
Public Const EBP_HEADERPIN = 3
Public Const EBP_IEBARMENU = 4
Public Const EBP_NORMALGROUPBACKGROUND = 5
Public Const EBP_NORMALGROUPCOLLAPSE = 6
Public Const EBP_NORMALGROUPEXPAND = 7
Public Const EBP_NORMALGROUPHEAD = 8
Public Const EBP_SPECIALGROUPBACKGROUND = 9
Public Const EBP_SPECIALGROUPCOLLAPSE = 10
Public Const EBP_SPECIALGROUPEXPAND = 11
Public Const EBP_SPECIALGROUPHEAD = 12

'EXPLORERBAR HEADERCLOSE states
Public Const EBHC_NORMAL = 1
Public Const EBHC_HOT = 2
Public Const EBHC_PRESSED = 3

'EXPLORERBAR HEADERPIN states
Public Const EBHP_NORMAL = 1
Public Const EBHP_HOT = 2
Public Const EBHP_PRESSED = 3
Public Const EBHP_SELECTEDNORMAL = 4
Public Const EBHP_SELECTEDHOT = 5
Public Const EBHP_SELECTEDPRESSED = 6

'EXPLORERBAR IEBARMENU states
Public Const EBM_NORMAL = 1
Public Const EBM_HOT = 2
Public Const EBM_PRESSED = 3

'EXPLORERBAR NORMALGROUPCOLLAPSE states
Public Const EBNGC_NORMAL = 1
Public Const EBNGC_HOT = 2
Public Const EBNGC_PRESSED = 3



[LeandroA]

Código: [Seleccionar]

'EXPLORERBAR NORMALGROUPEXPAND states
Public Const EBNGE_NORMAL = 1
Public Const EBNGE_HOT = 2
Public Const EBNGE_PRESSED = 3

'EXPLORERBAR SPECIALGROUPCOLLAPSE states
Public Const EBSGC_NORMAL = 1
Public Const EBSGC_HOT = 2
Public Const EBSGC_PRESSED = 3

'EXPLORERBAR SPECIALGROUPEXPAND states
Public Const EBSGE_NORMAL = 1
Public Const EBSGE_HOT = 2
Public Const EBSGE_PRESSED = 3

'GLOBALS parts
Public Const GP_BORDER = 1
Public Const GP_LINEHORZ = 2
Public Const GP_LINEVERT = 3

'GLOBALS BORDER states
Public Const BSS_FLAT = 1
Public Const BSS_RAISED = 2
Public Const BSS_SUNKEN = 3

'GLOBALS LINEHORZ states
Public Const LHS_FLAT = 1
Public Const LHS_RAISED = 2
Public Const LHS_SUNKEN = 3

'GLOBAL LINEVERT states
Public Const LVS_FLAT = 1
Public Const LVS_RAISED = 2
Public Const LVS_SUNKEN = 3

'HEADER parts
Public Const HP_HEADERITEM = 1
Public Const HP_HEADERITEMLEFT = 2
Public Const HP_HEADERITEMRIGHT = 3
Public Const HP_HEADERSORTARROW = 4

'HEADER HEADERITEM states
Public Const HIS_NORMAL = 1
Public Const HIS_HOT = 2
Public Const HIS_PRESSED = 3

'HEADER HEADERITEMLEFT states
Public Const HILS_NORMAL = 1
Public Const HILS_HOT = 2
Public Const HILS_PRESSED = 3

'HEADER HEADERITEMRIGHT states
Public Const HIRS_NORMAL = 1
Public Const HIRS_HOT = 2
Public Const HIRS_PRESSED = 3

'HEADER HEADERSORTARROW states
Public Const HSAS_NORMAL = 1
Public Const HSAS_HOT = 2
Public Const HSAS_PRESSED = 3

'LISTVIEW parts
Public Const LVP_LISTITEM = 1
Public Const LVP_LISTGROUP = 2
Public Const LVP_LISTDETAIL = 3
Public Const LVP_LISTSORTEDDETAIL = 4
Public Const LVP_EMPTYTEXT = 5

'LISTVIEW LISTITEM states
Public Const LIS_NORMAL = 1
Public Const LIS_HOT = 2
Public Const LIS_SELECTED = 3
Public Const LIS_DISABLED = 4
Public Const LIS_SELECTEDNOTFOCUS = 5

'MENU parts
Public Const MP_MENUITEM = 1
Public Const MP_MENUDROPDOWN = 2
Public Const MP_MENUBARITEM = 3
Public Const MP_MENUBARDROPDOWN = 4
Public Const MP_CHEVRON = 5
Public Const MP_SEPARATOR = 6

'MENU * states
Public Const MS_NORMAL = 1
Public Const MS_SELECTED = 2
Public Const MS_DEMOTED = 3

'MENUBAND parts
Public Const MDP_NEWAPPBUTTON = 1
'MDP_SEPERATOR isn't a typo, as per Microsoft's headers
Public Const MDP_SEPERATOR = 2

'MENUBAND NEWAPPBUTTON states
Public Const MDS_NORMAL = 1
Public Const MDS_HOT = 2
Public Const MDS_PRESSED = 3
Public Const MDS_DISABLED = 4
Public Const MDS_CHECKED = 5
Public Const MDS_HOTCHECKED = 6

'PAGE parts
Public Const PGRP_UP = 1
Public Const PGRP_DOWN = 2
Public Const PGRP_UPHORZ = 3
Public Const PGRP_DOWNHORZ = 4

'PAGE UP states
Public Const UPS_NORMAL = 1
Public Const UPS_HOT = 2
Public Const UPS_PRESSED = 3
Public Const UPS_DISABLED = 4

'PAGE DOWN states
Public Const DNS_NORMAL = 1
Public Const DNS_HOT = 2
Public Const DNS_PRESSED = 3
Public Const DNS_DISABLED = 4

'PAGE UPHORZ states
Public Const UPHZS_NORMAL = 1
Public Const UPHZS_HOT = 2
Public Const UPHZS_PRESSED = 3
Public Const UPHZS_DISABLED = 4

'PAGE DOWNHORZ states
Public Const DNHZS_NORMAL = 1
Public Const DNHZS_HOT = 2
Public Const DNHZS_PRESSED = 3
Public Const DNHZS_DISABLED = 4

'PROGRESS parts
Public Const PP_BAR = 1
Public Const PP_BARVERT = 2
Public Const PP_CHUNK = 3
Public Const PP_CHUNKVERT = 4

'REBAR parts
Public Const RP_GRIPPER = 1
Public Const RP_GRIPPERVERT = 2
Public Const RP_BAND = 3
Public Const RP_CHEVRON = 4
Public Const RP_CHEVRONVERT = 5

'REBAR CHEVRON states
Public Const CHEVS_NORMAL = 1
Public Const CHEVS_HOT = 2
Public Const CHEVS_PRESSED = 3

'SCROLLBAR parts
Public Const SBP_ARROWBTN = 1
Public Const SBP_THUMBBTNHORZ = 2
Public Const SBP_THUMBBTNVERT = 3
Public Const SBP_LOWERTRACKHORZ = 4
Public Const SBP_UPPERTRACKHORZ = 5
Public Const SBP_LOWERTRACKVERT = 6
Public Const SBP_UPPERTRACKVERT = 7
Public Const SBP_GRIPPERHORZ = 8
Public Const SBP_GRIPPERVERT = 9
Public Const SBP_SIZEBOX = 10

'SCROLLBAR ARROWBTN states
Public Const ABS_UPNORMAL = 1
Public Const ABS_UPHOT = 2
Public Const ABS_UPPRESSED = 3
Public Const ABS_UPDISABLED = 4
Public Const ABS_DOWNNORMAL = 5
Public Const ABS_DOWNHOT = 6
Public Const ABS_DOWNPRESSED = 7
Public Const ABS_DOWNDISABLED = 8
Public Const ABS_LEFTNORMAL = 9
Public Const ABS_LEFTHOT = 10
Public Const ABS_LEFTPRESSED = 11
Public Const ABS_LEFTDISABLED = 12
Public Const ABS_RIGHTNORMAL = 13
Public Const ABS_RIGHTHOT = 14
Public Const ABS_RIGHTPRESSED = 15
Public Const ABS_RIGHTDISABLED = 16

'SCROLLBAR LOWER* / THUMB* / UPPER* states
Public Const SCRBS_NORMAL = 1
Public Const SCRBS_HOT = 2
Public Const SCRBS_PRESSED = 3
Public Const SCRBS_DISABLED = 4

'SCROLLBAR SIZEBOX states
Public Const SZB_RIGHTALIGN = 1
Public Const SZB_LEFTALIGN = 2

'SPIN parts
Public Const SPNP_UP = 1
Public Const SPNP_DOWN = 2
Public Const SPNP_UPHORZ = 3
Public Const SPNP_DOWNHORZ = 4

'SPIN * states
'See PAGE states

'STARTPANEL parts
Public Const SPP_USERPANE = 1
Public Const SPP_MOREPROGRAMS = 2
Public Const SPP_MOREPROGRAMSARROW = 3
Public Const SPP_PROGLIST = 4
Public Const SPP_PROGLISTSEPARATOR = 5
Public Const SPP_PLACESLIST = 6
Public Const SPP_PLACESLISTSEPARATOR = 7
Public Const SPP_LOGOFF = 8
Public Const SPP_LOGOFFBUTTONS = 9
Public Const SPP_USERPICTURE = 10
Public Const SPP_PREVIEW = 11

'STARTPANEL MOREPROGRAMSARROW states
Public Const SPS_NORMAL = 1
Public Const SPS_HOT = 2
Public Const SPS_PRESSED = 3

'STARTPANEL LOGOFFBUTTONS states
Public Const SPLS_NORMAL = 1
Public Const SPLS_HOT = 2
Public Const SPLS_PRESSED = 3

'STATUS parts
Public Const SP_PANE = 1
Public Const SP_GRIPPERPANE = 2
Public Const SP_GRIPPER = 3

'TAB parts
Public Const TABP_TABITEM = 1
Public Const TABP_TABITEMLEFTEDGE = 2
Public Const TABP_TABITEMRIGHTEDGE = 3
Public Const TABP_TABITEMBOTHEDGE = 4
Public Const TABP_TOPTABITEM = 5
Public Const TABP_TOPTABITEMLEFTEDGE = 6
Public Const TABP_TOPTABITEMRIGHTEDGE = 7
Public Const TABP_TOPTABITEMBOTHEDGE = 8
Public Const TABP_PANE = 9
Public Const TABP_BODY = 10

'TAB TABITEM states
Public Const TIS_NORMAL = 1
Public Const TIS_HOT = 2
Public Const TIS_SELECTED = 3
Public Const TIS_DISABLED = 4
Public Const TIS_FOCUSED = 5

'TAB TABITEMLEFTEDGE states
Public Const TILES_NORMAL = 1
Public Const TILES_HOT = 2
Public Const TILES_SELECTED = 3
Public Const TILES_DISABLED = 4
Public Const TILES_FOCUSED = 5

'TAB TABITEMRIGHTEDGE states
Public Const TIRES_NORMAL = 1
Public Const TIRES_HOT = 2
Public Const TIRES_SELECTED = 3
Public Const TIRES_DISABLED = 4
Public Const TIRES_FOCUSED = 5

'TAB TABITEMBOTHEDGES states
Public Const TIBES_NORMAL = 1
Public Const TIBES_HOT = 2
Public Const TIBES_SELECTED = 3
Public Const TIBES_DISABLED = 4
Public Const TIBES_FOCUSED = 5

'TAB TOPTABITEM states
Public Const TTIS_NORMAL = 1
Public Const TTIS_HOT = 2
Public Const TTIS_SELECTED = 3
Public Const TTIS_DISABLED = 4
Public Const TTIS_FOCUSED = 5

'TAB TOPTABITEMLEFTEDGE states
Public Const TTILES_NORMAL = 1
Public Const TTILES_HOT = 2
Public Const TTILES_SELECTED = 3
Public Const TTILES_DISABLED = 4
Public Const TTILES_FOCUSED = 5

'TAB TOPTABITEMRIGHTEDGE states
Public Const TTIRES_NORMAL = 1
Public Const TTIRES_HOT = 2
Public Const TTIRES_SELECTED = 3
Public Const TTIRES_DISABLED = 4
Public Const TTIRES_FOCUSED = 5

'TAB TOPTABITEMBOTHEDGES states
Public Const TTIBES_NORMAL = 1
Public Const TTIBES_HOT = 2
Public Const TTIBES_SELECTED = 3
Public Const TTIBES_DISABLED = 4
Public Const TTIBES_FOCUSED = 5

'TASKBAND parts
Public Const TDP_GROUPCOUNT = 1
Public Const TDP_FLASHBUTTON = 2
Public Const TDP_FLASHBUTTONGROUPMENU = 3

'TASKBAR parts
Public Const TBP_BACKGROUNDBOTTOM = 1
Public Const TBP_BACKGROUNDRIGHT = 2
Public Const TBP_BACKGROUNDTOP = 3
Public Const TBP_BACKGROUNDLEFT = 4
Public Const TBP_SIZINGBARBOTTOM = 5
Public Const TBP_SIZINGBARRIGHT = 6
Public Const TBP_SIZINGBARTOP = 7
Public Const TBP_SIZINGBARLEFT = 8

'TOOLBAR parts
Public Const TP_BUTTON = 1
Public Const TP_DROPDOWNBUTTON = 2
Public Const TP_SPLITBUTTON = 3
Public Const TP_SPLITBUTTONDROPDOWN = 4
Public Const TP_SEPARATOR = 5
Public Const TP_SEPARATORVERT = 6

'TOOLBAR * states
Public Const TS_NORMAL = 1
Public Const TS_HOT = 2
Public Const TS_PRESSED = 3
Public Const TS_DISABLED = 4
Public Const TS_CHECKED = 5
Public Const TS_HOTCHECKED = 6

'TOOLTIP parts
Public Const TTP_STANDARD = 1
Public Const TTP_STANDARDTITLE = 2
Public Const TTP_BALLOON = 3
Public Const TTP_BALLOONTITLE = 4
Public Const TTP_CLOSE = 5

'TOOLTIP STANDARD states
Public Const TTSS_NORMAL = 1
Public Const TTSS_LINK = 2

'TOOLTIP STANDARDTITLE states
'See TOOLTIP STANDARD

'TOOLTIP BALLOON states
Public Const TTBS_NORMAL = 1
Public Const TTBS_LINK = 2

'TOOLTIP BALOONTITLE states
'See TOOLTIP BALOON

'TOOLTIP CLOSE states
Public Const TTCS_NORMAL = 1
Public Const TTCS_HOT = 2
Public Const TTCS_PRESSED = 3

'TRACKBAR parts
Public Const TKP_TRACK = 1
Public Const TKP_TRACKVERT = 2
Public Const TKP_THUMB = 3
Public Const TKP_THUMBBOTTOM = 4
Public Const TKP_THUMBTOP = 5
Public Const TKP_THUMBVERT = 6
Public Const TKP_THUMBLEFT = 7
Public Const TKP_THUMBRIGHT = 8
Public Const TKP_TICS = 9
Public Const TKP_TICSVERT = 10

'TRACKBAR TRACK states
Public Const TRS_NORMAL = 1

'TRACKBAR TRACKVERT states
Public Const TRVS_NORMAL = 1

'TRACKBAR THUMB states
Public Const TUS_NORMAL = 1
Public Const TUS_HOT = 2
Public Const TUS_PRESSED = 3
Public Const TUS_FOCUSED = 4
Public Const TUS_DISABLED = 5

'TRACKBAR THUMBBOTTOM states
Public Const TUBS_NORMAL = 1
Public Const TUBS_HOT = 2
Public Const TUBS_PRESSED = 3
Public Const TUBS_FOCUSED = 4
Public Const TUBS_DISABLED = 5

'TRACKBAR THUMBTOP states
Public Const TUTS_NORMAL = 1
Public Const TUTS_HOT = 2
Public Const TUTS_PRESSED = 3
Public Const TUTS_FOCUSED = 4
Public Const TUTS_DISABLED = 5

'TRACKBAR THUMBVERT states
Public Const TUVS_NORMAL = 1
Public Const TUVS_HOT = 2
Public Const TUVS_PRESSED = 3
Public Const TUVS_FOCUSED = 4
Public Const TUVS_DISABLED = 5

'TRACKBAR THUMBLEFT states
Public Const TUVLS_NORMAL = 1
Public Const TUVLS_HOT = 2
Public Const TUVLS_PRESSED = 3
Public Const TUVLS_FOCUSED = 4
Public Const TUVLS_DISABLED = 5

'TRACKBAR THUMBRIGHT states
Public Const TUVRS_NORMAL = 1
Public Const TUVRS_HOT = 2
Public Const TUVRS_PRESSED = 3
Public Const TUVRS_FOCUSED = 4
Public Const TUVRS_DISABLED = 5

'TRACKBAR TICS states
Public Const TSS_NORMAL = 1

'TRACKBAR TICSVERT states
Public Const TSVS_NORMAL = 1

'TRAYNOTIFY parts
Public Const TNP_BACKGROUND = 1
Public Const TNP_ANIMBACKGROUND = 2

'TREEVIEW parts
Public Const TVP_TREEITEM = 1
Public Const TVP_GLYPH = 2
Public Const TVP_BRANCH = 3

'TREEVIEW TREEITEM states
Public Const TREIS_NORMAL = 1
Public Const TREIS_HOT = 2
Public Const TREIS_SELECTED = 3
Public Const TREIS_DISABLED = 4
Public Const TREIS_SELECTEDNOTFOCUS = 5

'TREEVIEW GLYPH states
Public Const GLPS_CLOSED = 1
Public Const GLPS_OPENED = 2

'WINDOW parts
Public Const WP_CAPTION = 1
Public Const WP_SMALLCAPTION = 2
Public Const WP_MINCAPTION = 3
Public Const WP_SMALLMINCAPTION = 4
Public Const WP_MAXCAPTION = 5
Public Const WP_SMALLMAXCAPTION = 6
Public Const WP_FRAMELEFT = 7
Public Const WP_FRAMERIGHT = 8
Public Const WP_FRAMEBOTTOM = 9
Public Const WP_SMALLFRAMELEFT = 10
Public Const WP_SMALLFRAMERIGHT = 11
Public Const WP_SMALLFRAMEBOTTOM = 12
Public Const WP_SYSBUTTON = 13
Public Const WP_MDISYSBUTTON = 14
Public Const WP_MINBUTTON = 15
Public Const WP_MDIMINBUTTON = 16
Public Const WP_MAXBUTTON = 17
Public Const WP_CLOSEBUTTON = 18
Public Const WP_SMALLCLOSEBUTTON = 19
Public Const WP_MDICLOSEBUTTON = 20
Public Const WP_RESTOREBUTTON = 21
Public Const WP_MDIRESTOREBUTTON = 22
Public Const WP_HELPBUTTON = 23
Public Const WP_MDIHELPBUTTON = 24
Public Const WP_HORZSCROLL = 25
Public Const WP_HORZTHUMB = 26
Public Const WP_VERTSCROLL = 27
Public Const WP_VERTTHUMB = 28
Public Const WP_DIALOG = 29
Public Const WP_CAPTIONSIZINGTEMPLATE = 30
Public Const WP_SMALLCAPTIONSIZINGTEMPLATE = 31
Public Const WP_FRAMELEFTSIZINGTEMPLATE = 32
Public Const WP_SMALLFRAMELEFTSIZINGTEMPLATE = 33
Public Const WP_FRAMERIGHTSIZINGTEMPLATE = 34
Public Const WP_SMALLFRAMERIGHTSIZINGTEMPLATE = 35
Public Const WP_FRAMEBOTTOMSIZINGTEMPLATE = 36
Public Const WP_SMALLFRAMEBOTTOMSIZINGTEMPLATE = 37

'WINDOW CAPTION / SMALLCAPTION state
Public Const CS_ACTIVE = 1
Public Const CS_INACTIVE = 2
Public Const CS_DISABLED = 3

'WINDOW MINCAPTION / SMALLMINCAPTION state
Public Const MNCS_ACTIVE = 1
Public Const MNCS_INACTIVE = 2
Public Const MNCS_DISABLED = 3

'WINDOW MAXCAPTION / SMALLMAXCAPTION state
Public Const MXCS_ACTIVE = 1
Public Const MXCS_INACTIVE = 2
Public Const MXCS_DISABLED = 3

'WINDOW FRAME* / SMALLFRAME* state
Public Const FS_ACTIVE = 1
Public Const FS_INACTIVE = 2

'WINDOW SYSBUTTON / MDISYSBUTTON state
Public Const SBS_NORMAL = 1
Public Const SBS_HOT = 2
Public Const SBS_PUSHED = 3
Public Const SBS_DISABLED = 4

'WINDOW MINBUTTON / MDIMINBUTTON state
Public Const MINBS_NORMAL = 1
Public Const MINBS_HOT = 2
Public Const MINBS_PUSHED = 3
Public Const MINBS_DISABLED = 4

'WINDOW MAXBUTTON state
Public Const MAXBS_NORMAL = 1
Public Const MAXBS_HOT = 2
Public Const MAXBS_PUSHED = 3
Public Const MAXBS_DISABLED = 4

'WINDOW CLOSEBUTTON / SMALLCLOSEBUTTON / MDICLOSEBUTTON state
Public Const CBS_NORMAL = 1
Public Const CBS_HOT = 2
Public Const CBS_PUSHED = 3
Public Const CBS_DISABLED = 4

'WINDOW RESTOREBUTTON / MDIRESTOREBUTTON state
Public Const RBS_NORMAL = 1
Public Const RBS_HOT = 2
Public Const RBS_PUSHED = 3
Public Const RBS_DISABLED = 4

'WINDOW HELPBUTTON / MDIHELPBUTTON state
Public Const HBS_NORMAL = 1
Public Const HBS_HOT = 2
Public Const HBS_PUSHED = 3
Public Const HBS_DISABLED = 4

'WINDOW HORZSCROLL state
Public Const HSS_NORMAL = 1
Public Const HSS_HOT = 2
Public Const HSS_PUSHED = 3
Public Const HSS_DISABLED = 4

'WINDOW HORZTHUMB state
Public Const HTS_NORMAL = 1
Public Const HTS_HOT = 2
Public Const HTS_PUSHED = 3
Public Const HTS_DISABLED = 4

'WINDOW VERTSCROLL state
Public Const VSS_NORMAL = 1
Public Const VSS_HOT = 2
Public Const VSS_PUSHED = 3
Public Const VSS_DISABLED = 4

'WINDOW VERTTHUMB state
Public Const VTS_NORMAL = 1
Public Const VTS_HOT = 2
Public Const VTS_PUSHED = 3
Public Const VTS_DISABLED = 4

'================================================================================================
'相关的用户函数所需的用户类型与枚举的声明
'================================================================================================
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

'================================================================================================
'相关的用户函数
'================================================================================================

'================================================================
'判断系统的 UxTheme.dll 组件是否存在
'================================================================
Function UxThemeEnabled() As Boolean
UxThemeEnabled = (LoadLibrary("UxTheme.dll") <> 0)
End Function

'================================================================
'判断系统的主题是否处于可操作状态（在 NT 系统中如果使用了经典样式则需用户自己绘制界面元素）
'================================================================
Function UxThemeActive() As Boolean
On Error Resume Next
If UxThemeEnabled = True Then
UxThemeActive = (IsThemeActive <> 0)
Else
UxThemeActive = False
End If
End Function

[coco]

Leandro, hay una mas que yo encontre el otro dia de casualidad, que lo que hace es poder controlar si se muestra o no el icono en la barra de titulo, como asi tambien si se dibuja el caption. La unica cagada es que es CDECL. Para eso yo use el cCDECL que creo q es de Carles PV o de Lavolpe.

Código: (vb) [Seleccionar]


Private Enum WTNCA
    NODRAWCAPTION = 1
    NODRAWICON = 2
    NOSYSMENU = 4
    NOMIRRORHELP = 8
    VALIDBITS = NODRAWCAPTION Or NODRAWICON Or NOSYSMENU Or NOMIRRORHELP
End Enum

Private Enum WINDOWTHEMEATTRIBUTETYPE
    WTA_NONCLIENT = 1
End Enum

Private Type WTA_OPTIONS
    dwFlagas As Long    '        public WTNCA dwFlags;
    dwMask As Long      '        public WTNCA dwMask;
End Type


Private Sub SetThemeAttrib(ByVal lngAttrib As Long)
   
    Dim objCdecl As cCDECL

    Dim uWTAO As WTA_OPTIONS
   
    With uWTAO
        .dwFlagas = lngAttrib
        .dwMask = WTNCA.VALIDBITS
    End With
   
    Set objCdecl = New cCDECL
    With objCdecl
        .DllLoad "uxtheme.dll"
   
        Call .CallFunc("SetWindowThemeAttribute", hwnd, WTA_NONCLIENT, VarPtr(uWTAO), LenB(uWTAO))
   
        .DllUnload
    End With
   
    Set objCdecl = Nothing

End Sub
Para usar esta funcion, aca dejo el ejemplo q remueve icono y caption:

Código: (vb) [Seleccionar]

Private Sub Form_Load()
   Call SetThemeAttrib(NODRAWICON Or NODRAWCAPTION)
End Sub
Tambien se pueden usar las dos que quedaron: NOSYSMENU y NOMIRRORHELP. La de NOSYSMENU hace que no aparezca el menu del sistema cuando haces click secundario, y la de NOMIRRORHELP no tengo la mas puta idea.

Saludos

[LeandroA]

Hola Coco, solo para tenerlo en cuenta creo que esa api solo esta disponible para Vista y Seven en xp no encuentra GetProcAddress

Saludos.

[coco]

Es verdad, recien me fije de nuevo y dice minimo Windows Vista.

Saludos

[wolf_kof]

NOMIRRORHELP es para no indexar los archivos de ayuda, si de dan cuenta en la parte de propiedades del proyecto aparece la opcion para cargar el archivo de texto, y cuando precionamos F1 por ejemplo el formulario esta pendiente si carga o no el archivo de ayuda, con esto el formulario descarta la operacion completamente.