clslabel.cls

ktv场所的包房开房、迎宾、预定管理系统。

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsLabel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'**************************************************************
'*模块名称：clsLabel
'*模块功能：处于报表任意位置的标签集合
'*说明：
'*
'*备注：
'*
'*作者：progame
'*日期：2002-04-29 22:18:58
'***************************************************************

Private Const ModalName         As String = "clsLabel"

Public Collection               As clsCollection        '*集合

'*垂直对齐方式
Public Enum typeAlignVer
    tyTop = 0
    tyCenter = 1
    tyBottom = 2
End Enum

'*标签在页面中的位置
Public Enum typePosition
    tyPageLeft = 0
    tyPageRight = 1
End Enum

Private m_Align                 As typeAlignVer         '*对齐方式
Private m_Position              As typePosition         '*在页面中的位置（左、右）
'
Public Property Get orient() As typeOrient
'*得到打印方向
    orient = m_Orient
End Property

Public Property Let orient(vData As typeOrient)
'*设置打印方向
    m_Orient = vData
End Property

Public Property Get Align() As typeAlignVer
'*得到对齐方式
    Align = m_Align
End Property

Public Property Let Align(vData As typeAlignVer)
'*设置对齐方式
    m_Align = vData
End Property

Public Property Get Position() As typePosition
'*得到页面中的放置位置（左、右）
    Position = m_Position
End Property

Public Property Let Position(vData As typePosition)
'*设置页面中的放置位置（左、右）
    m_Position = vData
End Property

'**************************************************************
'*名称：PrintIt
'*功能：输出此对象
'*传入参数：
'*      obj         --要输出的对象
'*      height      --可供打印的高度
'*      left        --左起点
'*      top         --顶起点
'*      pages       --所有页数
'*      cutpages    --所有分页数
'*      page        --页数
'*      cutpage     --分页数
'*作者：progame
'*日期：2002-04-09 21:46:51
'***************************************************************
Public Sub PrintIt(obj As Object, width As Single, _
                   left As Single, Top As Single, _
                   pages As Integer, cutpages As Integer, _
                   page As Integer, cutpage As Integer, _
                   sRate As Single)
                   
Dim cText
Dim sWidth      As Single
Dim str         As String

    sWidth = 0
    For Each cText In Collection.texts.Items

        With cText
        
            .orient = Portrait
            
            str = .stringX
            .stringX = rplStr(.stringX, pages, cutpages, page, cutpage)

            
            .left = left + width - sWidth

            .PrintItVer obj, sRate

            '*恢复
            .stringX = str

            sWidth = sWidth + .GetWidthVer
        End With
    Next

End Sub


Private Sub Class_Initialize()
'*初始化类

    Set Collection = New clsCollection
    
    m_Align = tyCenter
    m_Orient = Portrait
    
End Sub

Private Sub Class_Terminate()
'*类中断，释放对象

    Set Collection = Nothing
    
End Sub