clscellnew.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 = "clsCellNew"
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 stringX      As String               '*字符串

Public Top          As Single               '*顶点位置
Public height       As Single               '*高度

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


Public colFrom      As Integer              '*列起始
Public rowFrom      As Integer              '*行起始

Public colTo        As Integer              '*列终止
Public rowTo        As Integer              '*行终止