API绘制通用控件

阿杰

来源：http://hi.baidu.com/arterioscler ... 9f93f3e0fe0ba2.html
'列出相应的图形。

Option Explicit
Private Enum DFC_
    DFC_CAPTION = 1
    DFC_MENU
    DFC_SCROLL
    DFC_BUTTON
End Enum
Private Enum DFCS_
    DFCS_ADJUSTRECT = &H2000
    DFCS_BUTTON3STATE = &H8
    DFCS_BUTTONCHECK = &H0
    DFCS_BUTTONPUSH = &H10
    DFCS_BUTTONRADIO = &H4
    DFCS_BUTTONRADIOIMAGE = &H1
    DFCS_BUTTONRADIOMASK = &H2
    DFCS_CAPTIONCLOSE = &H0
    DFCS_CAPTIONHELP = &H4
    DFCS_CAPTIONMAX = &H2
    DFCS_CAPTIONMIN = &H1
    DFCS_CAPTIONRESTORE = &H3
    DFCS_CHECKED = &H400
    DFCS_FLAT = &H4000
    DFCS_INACTIVE = &H100
    DFCS_MENUARROW = &H0
    DFCS_MENUARROWRIGHT = &H4
    DFCS_MENUBULLET = &H2
    DFCS_MENUCHECK = &H1
    DFCS_MONO = &H8000
    DFCS_PUSHED = &H200
    DFCS_SCROLLCOMBOBOX = &H5
    DFCS_SCROLLDOWN = &H1
    DFCS_SCROLLLEFT = &H2
    DFCS_SCROLLRIGHT = &H3
    DFCS_SCROLLSIZEGRIP = &H8
    DFCS_SCROLLSIZEGRIPRIGHT = &H10
    DFCS_SCROLLUP = &H0
End Enum
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function DrawFrameControl Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal un1 As DFC_, ByVal un2 As DFCS_) As Long

Private Sub Command1_Click()
Dim r As RECT
r.Bottom = 30
r.Right = 30
DrawFrameControl hDC, r, DFC_BUTTON, DFCS_BUTTON3STATE '(DFCS_BUTTONCHECK)

DrawFrameControl hDC, r, DFC_BUTTON, DFCS_BUTTONPUSH

DrawFrameControl hDC, r, DFC_BUTTON, DFCS_BUTTONRADIO

DrawFrameControl hDC, r, DFC_BUTTON, DFCS_BUTTONRADIOIMAGE

DrawFrameControl hDC, r, DFC_BUTTON, DFCS_BUTTONRADIOMASK

DrawFrameControl hDC, r, DFC_BUTTON, DFCS_CHECKED

DrawFrameControl hDC, r, DFC_BUTTON, DFCS_FLAT '(DFCS_MONO)

DrawFrameControl hDC, r, DFC_BUTTON, DFCS_INACTIVE '(DFCS_PUSHED)

'================================

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_CAPTIONCLOSE

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_CAPTIONHELP

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_CAPTIONMAX

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_CAPTIONMIN

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_CAPTIONRESTORE

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_CHECKED

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_FLAT

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_INACTIVE

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_MONO

DrawFrameControl hDC, r, DFC_CAPTION, DFCS_PUSHED

'======================================

DrawFrameControl hDC, r, DFC_MENU, DFCS_MENUARROW '(DFCS_ADJUSTRECT,DFCS_CHECKED,DFCS_FLAT,DFCS_INACTIVE,DFCS_MONO,DFCS_PUSHED)

DrawFrameControl hDC, r, DFC_MENU, DFCS_MENUARROWRIGHT

DrawFrameControl hDC, r, DFC_MENU, DFCS_MENUBULLET

DrawFrameControl hDC, r, DFC_MENU, DFCS_MENUCHECK

'=============================

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_SCROLLDOWN '(DFCS_SCROLLCOMBOBOX)

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_SCROLLLEFT

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_SCROLLRIGHT

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_SCROLLSIZEGRIP

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_SCROLLSIZEGRIPRIGHT

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_SCROLLUP '(DFCS_ADJUSTRECT)

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_CHECKED

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_FLAT

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_INACTIVE

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_MONO

DrawFrameControl hDC, r, DFC_SCROLL, DFCS_PUSHED

End Sub