mod_suport.bas

套打程序

Attribute VB_Name = "Mod_Suport"
Option Explicit

Public Enum ObjType
    mObjNone = -1
    mObjSelect = 0
    mObjLine = 1
    mObjText = 2
    mObjImg = 3
End Enum

Public Type POINTAPI
    X As Long
    Y As Long
End Type

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

Public g_DrawMode As ObjType

Public g_ActFrm As Object

Public Const BLOCKSIZE = 1024 '1K的块大小

'套打设计

Public g_Table As String, g_TableLine As String, g_TableText As String, g_TableImg As String, g_TableBill As String, g_TableQryEntry As String

Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECTAPI) As Long
Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

'Edit Falg 0 New,-1 OldNoChg,1 Update