clscell.cls

超经典的打印预览动态库源码 版权： 本资源版权归作者所有 说明： 本资源由源码天空搜集,仅提供学习参考

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCell"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"

Option Explicit
'**************************************************************
'*类模块名称：clsCell
'*类模块说明：单元格对象
'*
'*备注：
'*
'*作者：chlf78
'*日期：2002-03-27 15:57:14
'***************************************************************

Private Const ModalName = "clsCell"


Public text As clsText              '*字符串对象
Public bDone As Boolean             '*已经处理


Public cutpage As Integer           '*所属分页
Public page As Integer              '*所属页

Public colFrom As Integer           '*列起始
Public rowFrom As Integer           '*行起始
Public colTo As Integer             '*列终止
Public rowTo As Integer             '*行终止

Public rows As Integer              '*实际上要输出的行数

Public fRowFrom As Integer          '*输出时的行起始（只是位置的行概念)
Public fRowTo As Integer            '*输出时的行终止


Private Sub Class_Initialize()

    Set text = New clsText
    
End Sub

Private Sub Class_Terminate()

    Set text = Nothing
    
End Sub