modapi32.bas

一个用于开关状态显示的控件

Attribute VB_Name = "modApi32"
Option Explicit

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

'Public Type POINTAPI
Public Const BDR_RAISEDOUTER              As Long = &H1

'Public Const BDR_SUNKENINNER              As Long = &H8
'Public Const EDGE_BUMP                    As Double = (BDR_RAISEDOUTER Or BDR_SUNKENINNER)
Public Const BF_BOTTOM                    As Long = &H8
Public Const BF_LEFT                      As Long = &H1
Public Const BF_RIGHT                     As Long = &H4
Public Const BF_TOP                       As Long = &H2
Public Const BF_RECT                      As Double = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
Public Const BF_SOFT                      As Long = &H1000    ' For softer buttons

Public Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As RECT, _
                        ByVal Edge As Long, ByVal grfFlags As Long) As Long
                        
Public Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long

Public Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long