constant.bas

一个clock的 vb 源码

Attribute VB_Name = "Constant"
Option Explicit
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
' URL:Http://vbcc.126.com
' Sunday, September 02, 2001
' Welcome To Programming Libertine
' Copyright(C) 2001 Programming Libertine And Jiang Jian
' This Module Contain All Const Declare.
' I Love You ByeBye !
'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

'-----------------------------------------------------------------------
'- 注册表 Api 常数...
'-----------------------------------------------------------------------
' Reg Data Types...
Public Const REG_SZ = 1                         ' Unicode空终结字符串
Public Const REG_DWORD = 4                      ' 32-bit 数字
Public Const REG_BINARY = 3                     ' Free form binary

' 注册表创建类型值...
Public Const REG_OPTION_NON_VOLATILE = 0       ' 当系统重新启动时，关键字被保留
Public Const READ_CONTROL = &H20000            ' 注册表关键字安全选项...
Public Const KEY_QUERY_VALUE = &H1
Public Const KEY_SET_VALUE = &H2
Public Const KEY_CREATE_SUB_KEY = &H4
Public Const KEY_ENUMERATE_SUB_KEYS = &H8
Public Const KEY_NOTIFY = &H10
Public Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
Public Const KEY_CREATE_LINK = &H20
Private Const REG_CREATED_NEW_KEY = &H1
Private Const REG_OPENED_EXISTING_KEY = &H2
Public Const KEY_ALL_ACCESS = &H3F
Public Const HKEY_CURRENT_USER = &H80000001     ' 注册表关键字根类型...
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const ERROR_SUCCESS = 0

'---------------------------------------------------------
'CreateWindowEx And Dialog Window Style
'--------------------------------------------------------
Public Const WS_CHILD = &H40000000
Public Const WS_VISIBLE = &H10000000
Public Const WS_TABSTOP = &H10000
Public Const WS_DISABLED = &H8000000
Public Const WS_SYSMENU = &H80000
Public Const WS_POPUP = &H80000000
Public Const WS_GROUP = &H20000

' ShowWindow
Public Const SW_NORMAL = 1
Public Const SW_SHOWNORMAL = 1
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const GWL_WNDPROC = (-4)
Public Const SW_SHOWMINIMIZED = 2

Public Const SIZE_RESTORED = 0
Public Const SIZE_MINIMIZED = 1
Public Const SIZE_MAXSHOW = 3

'-----------------------------------------------------------------------
'BitBlt And LoadImage And CombineRgn
'-----------------------------------------------------------------------
Public Const SRCCOPY = &HCC0020         ' 直接的拷贝(DWORD) dest = source

Public Const IMAGE_BITMAP = 0           ' 欲载入的图象类型
Public Const IMAGE_ICON = 1
Public Const LR_LOADFROMFILE = &H10     ' 文件的名字
Public Const LR_LOADTRANSPARENT = &H20
Public Const LR_LOADMAP3DCOLORS = &H1000

Public Const RGN_OR = 2                 ' 两个源区域的交集

'----------------------------------------------------------------------
' SendMessage 拖动窗体(等于按下了窗体的标题栏)
' HTCAPTION         标题栏
' WM_NCLBUTTONDOWN  包含光标的窗体。
'----------------------------------------------------------------------
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1

'----------------------------------------------------------------------
' GetVersionEx 取得所使用的操作系统(98 Or NT)
' VER_PLATFORM_WIN32_WINDOWS                 '(Windows 9X 系统)
' VER_PLATFORM_WIN32_NT                      '(Windows NT 系统)
'----------------------------------------------------------------------
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const VER_PLATFORM_WIN32_NT = 2

'----------------------------------------------------------------------
' GetWindowLong And SetWindowLong
' GWL_EXSTYLE       扩展窗口样式
'----------------------------------------------------------------------
Public Const GWL_EXSTYLE = (-20)

'----------------------------------------------------------------------
' SetLayeredWindowAttributes Windows 2000 And Windows XP
'----------------------------------------------------------------------
Public Const LWA_ALPHA = &H2            ' New Constant
Public Const LWA_COLORKEY = &H1         ' New Constant
Public Const WS_EX_LAYERED = &H80000    ' New Constant

'----------------------------------------------------------------------
' Shell_NotifyIcon 创建修改系统托盘图标
' NIM_ADD       将一个图标添加到托盘中
' NIM_DELETE    将一个图标从托盘中删除
'----------------------------------------------------------------------
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const NIF_MESSAGE = &H1

' Window Message
Public Const WM_TIMER = &H113
Public Const WM_USER = &H400
Public Const WM_NOTIFY = &H4E
Public Const WM_MOUSEMOVE = &H200
Public Const WM_RBUTTONUP = &H205
Public Const WM_COMMAND = &H111
Public Const WM_ENABLE = &HA
Public Const WM_INITDIALOG = &H110
Public Const WM_PAINT = &HF
Public Const WM_CLOSE = &H10
Public Const WM_CREATE = &H1
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_SIZE = &H5


Public Const WM_MEASUREITEM = &H2C
Public Const WM_DRAWITEM = &H2B
Public Const WM_INITMENUPOPUP = &H117
Public Const WM_DESTROY = &H2
Public Const WM_SETFONT = &H30  ' Message Use SendMessage
Public Const WM_SETTEXT = &HC

' MessageBox Image (VB Msgbox)
Public Const MB_ICONEXCLAMATION = &H30&
Public Const MB_ICONASTERISK = &H40&

' SetWindowPos
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_SHOWWINDOW = &H40
Public Const HWND_TOPMOST = -1

'CreateFont
Public Const DEFAULT_CHARSET = 1
Public Const OUT_DEFAULT_PRECIS = 0
Public Const CLIP_DEFAULT_PRECIS = 0
Public Const DEFAULT_QUALITY = 0
Public Const DEFAULT_PITCH = 0
Public Const FF_DONTCARE = 0

' DrawEdge
Public Const BF_BOTTOM = &H8
Public Const BF_LEFT = &H1
Public Const BF_RIGHT = &H4
Public Const BF_TOP = &H2
Public Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
Public Const BDR_SUNKENOUTER = &H2
Public Const BDR_RAISEDINNER = &H4
Public Const BDR_SUNKENINNER = &H8
Public Const BDR_RAISEDOUTER = &H1
Public Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)
Public Const EDGE_SUNKEN = (BDR_SUNKENOUTER Or BDR_SUNKENINNER)

' ExitWindowsEx
Public Const EWX_LOGIN = &H0
Public Const EWX_SHUTDOWN = &H1
Public Const EWX_REBOOT = &H2
Public Const EWX_POWEROFF = &H8
Public Const EWX_FORCE = &H4


' NT System
Public Const TOKEN_ADJUST_PRIVILEGES = &H20
Public Const TOKEN_QUERY = &H8
Public Const SE_SECURITY_NAME = "SeSecurityPrivilege"
Public Const SE_PRIVILEGE_ENABLED = &H2
Public Const ANYSIZE_ARRAY = 1
Public Const CTRL_SHUTDOWN_EVENT = 6

' MCI
Public Const MCI_OPEN = &H803
Public Const MCI_PLAY = &H806
Public Const MCI_CLOSE = &H804

Public Const MCI_FROM = &H4
Public Const MCI_TO = &H8

Public Const MCI_OPEN_TYPE = &H2000
Public Const MCI_OPEN_ELEMENT = &H200
Public Const MCI_DEVTYPE_SEQUENCER = 523


' Sound
Public Const SND_ASYNC = &H1
Public Const SND_MEMORY = &H4
Public Const SND_RESOURCE = &H40004     '  name is a resource name or atom
Public Const SND_NODEFAULT = &H2 ' 不使用缺省声音
Public Const SND_FILENAME = &H20000

' SetBkMode     透明
' DrawIconEx    画图标

Public Const NEWTRANSPARENT = 3
Public Const DI_NORMAL = &H3
Public Const CW_USEDEFAULT = &H80000000

'-----------------------------------------------------------------------------------------
' All Public Control Style And Stata And Message
'-----------------------------------------------------------------------------------------
 
' Button Style
Public Const BS_AUTORADIOBUTTON = &H9   ' 选项
Public Const BS_AUTOCHECKBOX = &H3&     ' 复选
Public Const BS_DEFPUSHBUTTON = &H1     ' 默认按钮

' Button Message
Public Const BM_GETCHECK = &HF0
Public Const BM_SETCHECK = &HF1
                                       
Public Const BST_CHECKED = &H1          ' BM_GETCHECK 消息返回值 BM_SETCHECK 消息参数
Public Const BST_UNCHECKED = &H0        ' BST_CHECKED 为选择 BST_UNCHECKED 为未选择

' Button Notification Messages
Public Const BN_CLICKED = 0             ' 按钮通知消息 wParam ID lParam hWnd
'-----------------------------------------------------------------------------------------
' Date Time Packer
Public Const DTS_TIMEFORMAT = &H9       ' 显示时间
Public Const DTS_UPDOWN = &H1           ' UpDown风格因为在 DlgSetSystem 要改变(下拉的)
Public Const DTS_LONGDATEFORMAT = &H4   ' 用于日期显示(年-月-日)
Private Const DTM_FIRST = &H1000
Public Const DTM_SETSYSTEMTIME = (DTM_FIRST + 2) ' Set DT Select Date
'-----------------------------------------------------------------------------------------
' List View Notification Message
Public Const LVN_FIRST = (0 - 100)

' LVITEM state
Public Const LVIS_SELCHECK = &H2000
Public Const LVIS_OVERLAYMASK = &HF00
Public Const LVIS_STATEIMAGEMASK = &HF000

Public Const LVN_ODSTATECHANGED = (LVN_FIRST - 15)
Public Const NM_FIRST = (0 - 0)
Public Const NM_CLICK = (NM_FIRST - 2)