modstruct.bas

中专学校的学生操行分管理系统,包含了网络查询的功能

Attribute VB_Name = "modStruct"
'打印数据网格控件   黄敬东
'自定义结构
Option Explicit

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

Public Type POINT
    x As Long
    y As Long
End Type

'打印对齐方式
Public Enum PrintAlign
    bpLeft = 1
    bpCenter = 2
    bpRight = 3
End Enum

'打印页数范围
Public Enum PrintRange
    bpAllPage = 1
    bpCurrentPage = 2
    bpRangePage = 3
End Enum

'标识当前控件以什么方式被调用
Public Enum ReportStyle
    bpQuery = 1                 '打印查询结果集
    bpQueryEx = 2               '增强的打印查询结果集方式，可以打印双层表头
    bpGrid = 3                  '打印网格式报表
    bpLabel = 4                 '打印标签式报表
End Enum

'打印对象
Public Type BrookObject
    Align As PrintAlign         '对齐方式
    backColor As Long           '背景颜色
    borderColor As Long         '边框颜色
    CurX As Integer             '开始打印点的X轴
    curY As Integer             '开始打印点的Y轴
    Font As New StdFont         '字体
    ForeColor As Long           '前景颜色
    Height As Integer           '打印框的高度
    isFun As Boolean            'text是一个函数
    Text As String              '打印的文本
    style As String             '对象类型，有三种：1、Edit 2、Label 3、Shape
    Width As Integer            '打印框的宽度
End Type