api.bas

一个clock的 vb 源码

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

'-------------------------------------------------------------------------------
' Window Functions
' CreateWindowEx        创建具有扩展性的窗口(包括通用控制如TackBar)
' DestroyWindow         破坏指定的窗口
' EnableWindow          在指定的窗口里允许或禁止所有鼠标及键盘输入(Enabled属性)
' ShowWindow            控制窗口的可见性
' SetWindowPos          这个函数能为窗口设置顶部状态(即最顶层)
'-------------------------------------------------------------------------------
' Window Class Functions And Window Procedure Functions
' GetWindowLong         从指定窗口的结构中取得信息
' SetWindowLong         在窗口结构中为指定的窗口设置信息
'-------------------------------------------------------------------------------
' Window Procedure Functions
' CallWindowProc        将消息通知到规定的窗口及程序
'-------------------------------------------------------------------------------

' Window Functions
Public Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function DrawAnimatedRects Lib "user32" (ByVal hwnd As Long, ByVal idAni As Long, lprcFrom As RECT, lprcTo As RECT) As Long

' Window Class Functions And Window Procedure Functions
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

' Window Procedure Functions
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (dest As Any, ByVal Bytes As Long)

'-------------------------------------------------------------------------------
' Bitmap Functions
' BitBlt                将一幅位图从一个设备场景复制到另一个
' GetPixel              在指定的设备场景中取得一个像素的RGB值
' TransparentBlt        与BitBlt差不多只不可以拷贝时避隐一种颜色
'-------------------------------------------------------------------------------
' Device Context Functions
' CreateCompatibleDC    创建一个与特定设备场景一致的内存设备场景
' DeleteObject          用这个函数删除GDI对象,对象使用的所有系统资源都会被释放
' GetObjects            取得对指定对象进行说明的一个结构(本程序取位图的信息)
' SelectObject          每个设备场景都可能有选入其中的图形对象
' DeleteDC              删除专用设备场景或信息场景，释放所有相关窗口资源
'-------------------------------------------------------------------------------
' Message and Message Queue Functions
' SendMessage           调用一个窗口的窗口函数,将消息发给那个窗口
' SendLongMessage       Send Long Message
' SendStringMessage     Send String Message
'-------------------------------------------------------------------------------

' Bitmap Functions
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hDc As Long, ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function TransparentBlt Lib "msimg32" (ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal hHeightDest As Long, ByVal hdcSrc As Long, ByVal nXOriginSrc As Long, ByVal nYOriginSrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, ByVal crTransparent As Long) As Boolean
Public 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

' Device Context Functions
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDc As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function GetObjects Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hDc As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hDc As Long) As Long
Public Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long


' Message and Message Queue Functions
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SendLongMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SendStringMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long


'-------------------------------------------------------------------------------
' Region Functions
' CombineRgn            将两个区域组合为一个新区域
' CreateRectRgn         创建一个由点X1,Y1和X2,Y2描述的矩形区域
'-------------------------------------------------------------------------------
' Font and Text Functions
' GetTextColor          判断当前字体颜色。通常也称为“前景色”
' SetTextColor          设置当前文本颜色。这种颜色也称为“前景色”
' DrawText              将文本描绘到指定的矩形中
' GetTextExtentPoint32  判断一个字串的大小（范围）
' CreateFont            用指定的属性创建一种逻辑字体
'-------------------------------------------------------------------------------
' Painting and Drawing Functions
' DrawEdge              用指定的样式描绘一个矩形的边框
' SetWindowRgn          本函数允许您改变窗口的区域(窗体的形状)
' SetBkMode             指定阴影刷子、虚线画笔以及字符中的空隙的填充方式
' UpdateWindow          强制立即更新窗口,窗口所有区域都会重画
' BeginPaint            启动一个窗口的 Paint 功能(装载 PAINTSTRUCT 结构)得到hDc
' EndPaint              结束一个窗口的 Paint 功能
' InvalidateRect        屏蔽窗口全部或部分区域 导致窗口发生WM_PAINT事件(重画区域)
'-------------------------------------------------------------------------------

' Region Functions
Public Declare Function CombineRgn Lib "gdi32" (ByVal hdestrgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

' Font and Text Functions
Public Declare Function GetTextColor Lib "gdi32" (ByVal hDc As Long) As Long
Public Declare Function SetTextColor Lib "gdi32" (ByVal hDc As Long, ByVal crColor As Long) As Long
Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hDc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Public Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hDc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As SIZE) As Long
Public Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal h As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal s As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long

' Painting and Drawing Functions
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 SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function SetBkMode Lib "gdi32" (ByVal hDc As Long, ByVal nBkMode As Long) As Long
Public Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function BeginPaint Lib "user32" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long