module1.bas

本文件包含200个visual baisc实例

Attribute VB_Name = "Module1"
Option Explicit
Public Const DST_COMPLEX = &H0
Public Const DST_TEXT = &H1
Public Const DST_PREFIXTEXT = &H2
Public Const DST_ICON = &H3
Public Const DST_BITMAP = &H4

Public Const DSS_NORMAL = &H0
Public Const DSS_UNION = &H10
Public Const DSS_DISABLED = &H20
Public Const DSS_MONO = &H80
Public Const DSS_RIGHT = &H8000

Public Const ILD_NORMAL = 0
Public Const ILD_TRANSPARENT = 1
Public Const ILD_BLEND25 = 2
Public Const ILD_SELECTED = 4
Public Const ILD_FOCUS = 4
Public Const ILD_OVERLAYMASK = 3840
Public Const CLR_NONE = -1



Public Const DI_MASK = &H1
Public Const DI_IMAGE = &H2
Public Const DI_NORMAL = &H3
Public Const DI_COMPAT = &H4
Public Const DI_DEFAULTSIZE = &H8
Declare Function DrawState Lib "user32" Alias "DrawStateA" _
   (ByVal hdc As Long, ByVal hBrush As Long, _
   ByVal lpDrawStateProc As Long, ByVal lParam As Long, _
   ByVal wParam As Long, ByVal X As Long, ByVal Y As Long, _
   ByVal cX As Long, ByVal cY As Long, ByVal fuFlags As Long) As Long


Declare Function ImageList_GetIcon Lib "COMCTL32.DLL" ( _
        ByVal himl As Long, ByVal i As Long, _
        ByVal diIgnore As Long) As Long
Declare Function ImageList_Draw Lib "COMCTL32.DLL" ( _
        ByVal himl As Long, ByVal i As Long, _
        ByVal hdcDst As Long, ByVal X As Long, _
        ByVal Y As Long, ByVal fStyle As Long) As Long
Declare Function ImageList_DrawEx Lib "COMCTL32.DLL" ( _
      ByVal himl As Long, ByVal i As Long, _
      ByVal hdcDst As Long, ByVal X As Long, _
      ByVal Y As Long, ByVal dx As Long, _
      ByVal dy As Long, ByVal rgbBk As Long, _
      ByVal rgbFg As Long, ByVal fStyle As Long) As Long

Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, _
      ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, _
      ByVal cyWidth As Long, ByVal istepIfAniCur As Long, _
      ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Public Const COLOR_WINDOW = 5