clsodcontrol.cls

一款Grid表格控件源代码,非常棒.不下你一定会后悔

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsODControl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'/~ 15 custom controls in one small class..

Implements GXISubclass

Private Const BCM_FIRST                         As Long = &H1600
Private Const BCM_GETIDEALSIZE                  As Long = (BCM_FIRST + &H1)
Private Const BCM_GETIMAGELIST                  As Long = (BCM_FIRST + &H3)
Private Const BCM_GETTEXTMARGIN                 As Long = (BCM_FIRST + &H5)
Private Const BCM_SETIMAGELIST                  As Long = (BCM_FIRST + &H2)
Private Const BCM_SETTEXTMARGIN                 As Long = (BCM_FIRST + &H4)

Private Const BM_TRANSPARENT                    As Long = &H1

Private Const BM_GETCHECK                       As Long = &HF0
Private Const BM_SETCHECK                       As Long = &HF1
Private Const BM_GETSTATE                       As Long = &HF2
Private Const BM_SETSTATE                       As Long = &HF3
Private Const BM_SETSTYLE                       As Long = &HF4
Private Const BM_CLICK                          As Long = &HF5
Private Const BM_GETIMAGE                       As Long = &HF6
Private Const BM_SETIMAGE                       As Long = &HF7

Private Const BN_CLICKED                        As Long = &H0
Private Const BN_PAINT                          As Long = &H1
Private Const BN_HILITE                         As Long = &H2
Private Const BN_UNHILITE                       As Long = &H3
Private Const BN_DISABLE                        As Long = &H4
Private Const BN_DOUBLECLICKED                  As Long = &H5
Private Const BN_SETFOCUS                       As Long = &H6
Private Const BN_KILLFOCUS                      As Long = &H7

Private Const BST_UNCHECKED                     As Long = &H0
Private Const BST_CHECKED                       As Long = &H1
Private Const BST_INDETERMINATE                 As Long = &H2
Private Const BST_PUSHED                        As Long = &H4
Private Const BST_FOCUS                         As Long = &H8

Private Const BS_PUSHBUTTON                     As Long = &H0
Private Const BS_DEFPUSHBUTTON                  As Long = &H1
Private Const BS_CHECKBOX                       As Long = &H2
Private Const BS_AUTOCHECKBOX                   As Long = &H3
Private Const BS_RADIOBUTTON                    As Long = &H4
Private Const BS_3STATE                         As Long = &H5
Private Const BS_AUTO3STATE                     As Long = &H6
Private Const BS_GROUPBOX                       As Long = &H7
Private Const BS_USERBUTTON                     As Long = &H8
Private Const BS_AUTORADIOBUTTON                As Long = &H9
Private Const BS_OWNERDRAW                      As Long = &HB
Private Const BS_LEFTTEXT                       As Long = &H20
Private Const BS_TEXT                           As Long = &H0
Private Const BS_ICON                           As Long = &H40
Private Const BS_BITMAP                         As Long = &H80
Private Const BS_LEFT                           As Long = &H100
Private Const BS_RIGHT                          As Long = &H200
Private Const BS_CENTER                         As Long = &H300
Private Const BS_TOP                            As Long = &H400
Private Const BS_BOTTOM                         As Long = &H800
Private Const BS_VCENTER                        As Long = &HC00
Private Const BS_PUSHLIKE                       As Long = &H1000
Private Const BS_MULTILINE                      As Long = &H2000
Private Const BS_NOTIFY                         As Long = &H4000
Private Const BS_FLAT                           As Long = &H8000

Private Const CB_GETEDITSEL                     As Long = &H140
Private Const CB_LIMITTEXT                      As Long = &H141
Private Const CB_SETEDITSEL                     As Long = &H142
Private Const CB_ADDSTRING                      As Long = &H143
Private Const CB_DELETESTRING                   As Long = &H144
Private Const CB_DIR                            As Long = &H145
Private Const CB_GETCOUNT                       As Long = &H146
Private Const CB_GETCURSEL                      As Long = &H147
Private Const CB_GETLBTEXT                      As Long = &H148
Private Const CB_GETLBTEXTLEN                   As Long = &H149
Private Const CB_INSERTSTRING                   As Long = &H14A
Private Const CB_RESETCONTENT                   As Long = &H14B
Private Const CB_FINDSTRING                     As Long = &H14C
Private Const CB_SELECTSTRING                   As Long = &H14D
Private Const CB_SETCURSEL                      As Long = &H14E
Private Const CB_SHOWDROPDOWN                   As Long = &H14F
Private Const CB_GETITEMDATA                    As Long = &H150
Private Const CB_SETITEMDATA                    As Long = &H151
Private Const CB_GETDROPPEDCONTROLRECT          As Long = &H152
Private Const CB_SETITEMHEIGHT                  As Long = &H153
Private Const CB_GETITEMHEIGHT                  As Long = &H154
Private Const CB_SETEXTENDEDUI                  As Long = &H155
Private Const CB_GETEXTENDEDUI                  As Long = &H156
Private Const CB_GETDROPPEDSTATE                As Long = &H157
Private Const CB_FINDSTRINGEXACT                As Long = &H158
Private Const CB_SETLOCALE                      As Long = &H159
Private Const CB_GETLOCALE                      As Long = &H15A
Private Const CB_GETTOPINDEX                    As Long = &H15B
Private Const CB_SETTOPINDEX                    As Long = &H15C
Private Const CB_GETHORIZONTALEXTENT            As Long = &H15D
Private Const CB_SETHORIZONTALEXTENT            As Long = &H15E
Private Const CB_GETDROPPEDWIDTH                As Long = &H15F
Private Const CB_SETDROPPEDWIDTH                As Long = &H160
Private Const CB_INITSTORAGE                    As Long = &H161

Private Const CLR_NONE                          As Long = -1
Private Const CBN_SELCHANGE                     As Long = &H1
Private Const CBN_DBLCLK                        As Long = &H2
Private Const CBN_SETFOCUS                      As Long = &H3
Private Const CBN_KILLFOCUS                     As Long = &H4
Private Const CBN_EDITCHANGE                    As Long = &H5
Private Const CBN_EDITUPDATE                    As Long = &H6
Private Const CBN_DROPDOWN                      As Long = &H7
Private Const CBN_CLOSEUP                       As Long = &H8
Private Const CBN_SELENDCANCEL                  As Long = &HA

Private Const CBS_SIMPLE                        As Long = &H1
Private Const CBS_DROPDOWN                      As Long = &H2
Private Const CBS_DROPDOWNLIST                  As Long = &H3
Private Const CBS_OWNERDRAWFIXED                As Long = &H10
Private Const CBS_OWNERDRAWVARIABLE             As Long = &H20
Private Const CBS_AUTOHSCROLL                   As Long = &H40
Private Const CBS_SORT                          As Long = &H100
Private Const CBS_HASSTRINGS                    As Long = &H200

Private Const DT_TOP                            As Long = &H0&
Private Const DT_LEFT                           As Long = &H0&
Private Const DT_CENTER                         As Long = &H1&
Private Const DT_RIGHT                          As Long = &H2&
Private Const DT_VCENTER                        As Long = &H4&
Private Const DT_BOTTOM                         As Long = &H8&
Private Const DT_WORDBREAK                      As Long = &H10&
Private Const DT_SINGLELINE                     As Long = &H20&
Private Const DT_EXPANDTABS                     As Long = &H40&
Private Const DT_TABSTOP                        As Long = &H80&
Private Const DT_NOCLIP                         As Long = &H100&
Private Const DT_EXTERNALLEADING                As Long = &H200&
Private Const DT_CALCRECT                       As Long = &H400&
Private Const DT_NOPREFIX                       As Long = &H800&
Private Const DT_INTERNAL                       As Long = &H1000&
Private Const DT_EDITCONTROL                    As Long = &H2000&
Private Const DT_PATH_ELLIPSIS                  As Long = &H4000&
Private Const DT_END_ELLIPSIS                   As Long = &H8000&
Private Const DT_MODIFYSTRING                   As Long = &H10000
Private Const DT_RTLREADING                     As Long = &H20000
Private Const DT_WORD_ELLIPSIS                  As Long = &H40000

Private Const EM_SETREADONLY                    As Long = &HCF

Private Const ES_LEFT                           As Long = &H0
Private Const ES_CENTER                         As Long = &H1
Private Const ES_RIGHT                          As Long = &H2
Private Const ES_MULTILINE                      As Long = &H4
Private Const ES_UPPERCASE                      As Long = &H8
Private Const ES_LOWERCASE                      As Long = &H10
Private Const ES_PASSWORD                       As Long = &H20
Private Const ES_AUTOVSCROLL                    As Long = &H40
Private Const ES_AUTOHSCROLL                    As Long = &H80
Private Const ES_NOHIDESEL                      As Long = &H100
Private Const ES_OEMCONVERT                     As Long = &H400
Private Const ES_READONLY                       As Long = &H800
Private Const ES_WANTRETURN                     As Long = &H1000
Private Const ES_NUMBER                         As Long = &H2000
Private Const FW_NORMAL                         As Long = 400
Private Const FW_BOLD                           As Long = 700

Private Const GW_CHILD                          As Long = &H5

Private Const GWL_STYLE                         As Long = (-16)
Private Const GWL_EXSTYLE                       As Long = (-20)

Private Const HWND_TOP                          As Long = 0
Private Const HWND_BOTTOM                       As Long = 1
Private Const HWND_TOPMOST                      As Long = -1
Private Const HWND_NOTOPMOST                    As Long = -2

Private Const ILD_NORMAL                        As Long = &H0
Private Const ILD_TRANSPARENT                   As Long = &H1
Private Const ILD_BLEND25                       As Long = &H2
Private Const ILD_FOCUS                         As Long = &H4
Private Const ILD_SELECTED                      As Long = &H8

Private Const ILC_COLOR                         As Long = &H0
Private Const ILC_MASK                          As Long = &H1
Private Const ILC_COLOR4                        As Long = &H4
Private Const ILC_COLOR8                        As Long = &H8
Private Const ILC_COLOR16                       As Long = &H10
Private Const ILC_COLOR24                       As Long = &H18
Private Const ILC_COLOR32                       As Long = &H20
Private Const ILC_COLORDDB                      As Long = &HFE

Private Const IMAGE_BITMAP                      As Long = &H0
Private Const IMAGE_ICON                        As Long = &H1
Private Const IMAGE_CURSOR                      As Long = &H2

Private Const LB_ADDSTRING                      As Long = &H180
Private Const LB_INSERTSTRING                   As Long = &H181
Private Const LB_DELETESTRING                   As Long = &H182
Private Const LB_SELITEMRANGEEX                 As Long = &H183
Private Const LB_RESETCONTENT                   As Long = &H184
Private Const LB_SETSEL                         As Long = &H185
Private Const LB_SETCURSEL                      As Long = &H186
Private Const LB_GETSEL                         As Long = &H187
Private Const LB_GETCURSEL                      As Long = &H188
Private Const LB_GETTEXT                        As Long = &H189
Private Const LB_GETTEXTLEN                     As Long = &H18A
Private Const LB_GETCOUNT                       As Long = &H18B
Private Const LB_SELECTSTRING                   As Long = &H18C
Private Const LB_DIR                            As Long = &H18D
Private Const LB_GETTOPINDEX                    As Long = &H18E
Private Const LB_FINDSTRING                     As Long = &H18F
Private Const LB_GETSELCOUNT                    As Long = &H190
Private Const LB_GETSELITEMS                    As Long = &H191
Private Const LB_SETTABSTOPS                    As Long = &H192
Private Const LB_GETHORIZONTALEXTENT            As Long = &H193
Private Const LB_SETHORIZONTALEXTENT            As Long = &H194
Private Const LB_SETCOLUMNWIDTH                 As Long = &H195
Private Const LB_ADDFILE                        As Long = &H196
Private Const LB_SETTOPINDEX                    As Long = &H197
Private Const LB_GETITEMRECT                    As Long = &H198
Private Const LB_GETITEMDATA                    As Long = &H199
Private Const LB_SETITEMDATA                    As Long = &H19A
Private Const LB_SELITEMRANGE                   As Long = &H19B
Private Const LB_SETANCHORINDEX                 As Long = &H19C
Private Const LB_GETANCHORINDEX                 As Long = &H19D
Private Const LB_SETCARETINDEX                  As Long = &H19E
Private Const LB_GETCARETINDEX                  As Long = &H19F
Private Const LB_SETITEMHEIGHT                  As Long = &H1A0
Private Const LB_GETITEMHEIGHT                  As Long = &H1A1
Private Const LB_FINDSTRINGEXACT                As Long = &H1A2
Private Const LB_SETLOCALE                      As Long = &H1A5
Private Const LB_GETLOCALE                      As Long = &H1A6
Private Const LB_SETCOUNT                       As Long = &H1A7

Private Const LBN_SELCHANGE                     As Long = &H1
Private Const LBN_DBLCLK                        As Long = &H2
Private Const LBN_SELCANCEL                     As Long = &H3
Private Const LBN_SETFOCUS                      As Long = &H4
Private Const LBN_KILLFOCUS                     As Long = &H5

Private Const LBS_NOTIFY                        As Long = &H1
Private Const LBS_SORT                          As Long = &H2
Private Const LBS_NOREDRAW                      As Long = &H4
Private Const LBS_MULTIPLESEL                   As Long = &H8
Private Const LBS_OWNERDRAWFIXED                As Long = &H10
Private Const LBS_OWNERDRAWVARIABLE             As Long = &H20
Private Const LBS_HASSTRINGS                    As Long = &H40
Private Const LBS_USETABSTOPS                   As Long = &H80
Private Const LBS_NOINTEGRALHEIGHT              As Long = &H100
Private Const LBS_MULTICOLUMN                   As Long = &H200
Private Const LBS_WANTKEYBOARDINPUT             As Long = &H400
Private Const LBS_EXTENDEDSEL                   As Long = &H800
Private Const LBS_DISABLENOSCROLL               As Long = &H1000
Private Const LBS_NODATA                        As Long = &H2000
Private Const LBS_NOSEL                         As Long = &H4000

Private Const LF_ANTIALIASED_QUALITY            As Long = 4
Private Const LOGPIXELSY                        As Long = 90

Private Const ODS_CHECKED                       As Long = &H8
Private Const ODS_DISABLED                      As Long = &H4
Private Const ODS_GRAYED                        As Long = &H2
Private Const ODS_SELECTED                      As Long = &H1
Private Const ODS_FOCUS                         As Long = &H10
Private Const ODS_COMBOBOXCLICK                 As Long = &H1011
Private Const ODS_COMBOBOXEDIT                  As Long = &H1000

Private Const PS_SOLID                          As Long = 0

Private Const SS_LEFT                           As Long = &H0
Private Const SS_CENTER                         As Long = &H1
Private Const SS_RIGHT                          As Long = &H2
Private Const SS_ICON                           As Long = &H3
Private Const SS_BLACKRECT                      As Long = &H4
Private Const SS_GRAYRECT                       As Long = &H5
Private Const SS_WHITERECT                      As Long = &H6
Private Const SS_BLACKFRAME                     As Long = &H7
Private Const SS_GRAYFRAME                      As Long = &H8
Private Const SS_WHITEFRAME                     As Long = &H9
Private Const SS_USERITEM                       As Long = &HA
Private Const SS_SIMPLE                         As Long = &HB
Private Const SS_LEFTNOWORDWRAP                 As Long = &HC
Private Const SS_OWNERDRAW                      As Long = &HD
Private Const SS_BITMAP                         As Long = &HE
Private Const SS_ENHMETAFILE                    As Long = &HF
Private Const SS_ETCHEDHORZ                     As Long = &H10
Private Const SS_ETCHEDVERT                     As Long = &H11
Private Const SS_ETCHEDFRAME                    As Long = &H12
Private Const SS_TYPEMASK                       As Long = &H1F
Private Const SS_NOPREFIX                       As Long = &H80
Private Const SS_NOTIFY                         As Long = &H100
Private Const SS_CENTERIMAGE                    As Long = &H200
Private Const SS_RIGHTJUST                      As Long = &H400
Private Const SS_REALSIZEIMAGE                  As Long = &H800
Private Const SS_SUNKEN                         As Long = &H1000