DrawFrameControl

API自绘，DrawFrameControl函数描述收藏

'列出相应的图形。

Private Const DFC_BUTTON = 4
Private Const DFC_CAPTION = 1
Private Const DFC_MENU = 2
Private Const DFC_SCROLL = 3
Private Const DFCS_ADJUSTRECT = &H2000 '与其他配合使用
Private Const DFCS_BUTTON3STATE = &H8
Private Const DFCS_BUTTONCHECK = &H0
Private Const DFCS_BUTTONPUSH = &H10
Private Const DFCS_BUTTONRADIO = &H4
Private Const DFCS_BUTTONRADIOIMAGE = &H1
Private Const DFCS_BUTTONRADIOMASK = &H2
Private Const DFCS_CAPTIONCLOSE = &H0
Private Const DFCS_CAPTIONHELP = &H4
Private Const DFCS_CAPTIONMAX = &H2
Private Const DFCS_CAPTIONMIN = &H1
Private Const DFCS_CAPTIONRESTORE = &H3
Private Const DFCS_CHECKED = &H400 '与其他配合使用
Private Const DFCS_FLAT = &H4000 '与其他配合使用
Private Const DFCS_INACTIVE = &H100 '与其他配合使用
Private Const DFCS_MENUARROW = &H0
Private Const DFCS_MENUARROWRIGHT = &H4
Private Const DFCS_MENUBULLET = &H2
Private Const DFCS_MENUCHECK = &H1
Private Const DFCS_MONO = &H8000 '与其他配合使用
Private Const DFCS_PUSHED = &H200 '与其他配合使用
Private Const DFCS_SCROLLCOMBOBOX = &H5
Private Const DFCS_SCROLLDOWN = &H1
Private Const DFCS_SCROLLLEFT = &H2
Private Const DFCS_SCROLLRIGHT = &H3
Private Const DFCS_SCROLLSIZEGRIP = &H8
Private Const DFCS_SCROLLSIZEGRIPRIGHT = &H10
Private Const DFCS_SCROLLUP = &H0
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 Long, ByVal un2 As Long) As Long

Private Sub Command1_Click()
Dim r As RECT
r.Bottom = 30
r.Right = 30
DrawFrameControl hDC, r, DFC_BUTTON, DFCS_ADJUSTRECT '(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_ADJUSTRECT '(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

End Sub