splistheader.cls

短信平台管理系统是一个短信收发的平台,用户可以找一些代理的短信平台(IP),在系统里修改一些设置就可以进行短信的收发,有短信服务器的IP,服务器端口.系统还有一些常用用户的设置,包括客户资料,客户分类

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "spListHeader"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
'=============================================================================================
'源程序名称：splistheader.bas
'  模块名称：splistheader
'  功能说明：超级列表头单元信息
'  相关文档：无
'      作者：chengyanjun
'      审核：无
'=============================================================================================

'功能: 超级列表头单元信息
Private mvarOther1 As String '本地复本
Private mvarOther2 As String '本地复本
'局部变量保存属性值
Private mvarFormatStr As String '本地复本
Private mvarKey As String '本地复本
Private mvarCaption As String '本地复本
Private mvarWidth As Integer '本地复本
'局部变量保存属性值
Private mvarReadOnly As Boolean '本地复本
Private mvarDataType As Integer '本地复本
Private mvarVisible As Boolean '本地复本
'局部变量保存属性值
Private mvarDataWidth As Integer '本地复本
Private mvarRefType As Integer '本地复本
Private mvarPointNum As Integer '本地复本
'局部变量保存属性值
'Private mvarType As String '本地复本
'局部变量保存属性值
Private mvarPos As Integer '本地复本
Private mvarHAlignment As Integer '本地复本
Private mvarTAlignment As Integer '本地复本
Private mvarCanSet As Boolean '本地复本
Private mvarColMerge As Boolean '本地复本
'local variable(s) to hold property value(s)
Private mvarDispTrue As String 'local copy
Private mvarDispFalse As String 'local copy
Private mvarDispNull As String 'local copy
Private mvarCanFilter As Boolean 'local copy
Private mvarcondValue1 As Variant 'local copy
Private mvarCondValue2 As Variant 'local copy
'local variable(s) to hold property value(s)
Private mvarFormatType As Integer 'local copy
Public Property Let FormatType(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.FormatType = 5
    mvarFormatType = vData
End Property


Public Property Get FormatType() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.FormatType
    FormatType = mvarFormatType
End Property



Public Property Let CondValue2(ByVal vData As Variant)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.CondValue2 = 5
    mvarCondValue2 = vData
End Property


Public Property Set CondValue2(ByVal vData As Variant)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.CondValue2 = Form1
    Set mvarCondValue2 = vData
End Property


Public Property Get CondValue2() As Variant
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.CondValue2
    If IsObject(mvarCondValue2) Then
        Set CondValue2 = mvarCondValue2
    Else
        CondValue2 = mvarCondValue2
    End If
End Property



Public Property Let condValue1(ByVal vData As Variant)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.condValue1 = 5
    mvarcondValue1 = vData
End Property


Public Property Set condValue1(ByVal vData As Variant)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.condValue1 = Form1
    Set mvarcondValue1 = vData
End Property


Public Property Get condValue1() As Variant
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.condValue1
    If IsObject(mvarcondValue1) Then
        Set condValue1 = mvarcondValue1
    Else
        condValue1 = mvarcondValue1
    End If
End Property



Public Property Let CanFilter(ByVal vData As Boolean)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.CanFilter = 5
    mvarCanFilter = vData
End Property


Public Property Get CanFilter() As Boolean
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.CanFilter
    CanFilter = mvarCanFilter
End Property



Public Property Let DispNull(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.DispNull = 5
    mvarDispNull = vData
End Property


Public Property Get DispNull() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.DispNull
    DispNull = mvarDispNull
End Property



Public Property Let DispFalse(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.DispFalse = 5
    mvarDispFalse = vData
End Property


Public Property Get DispFalse() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.DispFalse
    DispFalse = mvarDispFalse
End Property



Public Property Let DispTrue(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.DispTrue = 5
    mvarDispTrue = vData
End Property


Public Property Get DispTrue() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.DispTrue
     DispTrue = mvarDispTrue
End Property



Public Property Let ColMerge(ByVal vData As Boolean)
'当给属性赋值时在参数左边使用。
'Syntax: X.ColMerge = 5
    mvarColMerge = vData
End Property


Public Property Get ColMerge() As Boolean
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.ColMerge
    ColMerge = mvarColMerge
End Property



Public Property Let CanSet(ByVal vData As Boolean)
'当给属性赋值时在参数左边使用。
'Syntax: X.CanSet = 5
    mvarCanSet = vData
End Property


Public Property Get CanSet() As Boolean
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.CanSet
    CanSet = mvarCanSet
End Property



Public Property Let TAlignment(ByVal vData As Integer)
'当给属性赋值时在参数左边使用。
'Syntax: X.TAlignment = 5
    mvarTAlignment = vData
End Property


Public Property Get TAlignment() As Integer
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.TAlignment
    TAlignment = mvarTAlignment
End Property



Public Property Let HAlignment(ByVal vData As Integer)
'当给属性赋值时在参数左边使用。
'Syntax: X.HAlignment = 5
    mvarHAlignment = vData
End Property


Public Property Get HAlignment() As Integer
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.HAlignment
    HAlignment = mvarHAlignment
End Property



Public Property Let POS(ByVal vData As Integer)
'当给属性赋值时在参数左边使用。
'Syntax: X.POS = 5
    mvarPos = vData
End Property


Public Property Get POS() As Integer
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.POS
    POS = mvarPos
End Property



'Public Property Let sType(ByVal vData As String)
''当给属性赋值时在参数左边使用。
''Syntax: X.Type = 5
'    mvarType = vData
'End Property
'
'
'Public Property Get sType() As String
''当检索属性值时在参数右边使用。
''Syntax: Debug.Print X.Type
'    sType = mvarType
'End Property

Public Property Let Other2(ByVal vData As String)
'当给属性赋值时在参数左边使用。
'Syntax: X.Other2 = 5
    mvarOther2 = vData
End Property


Public Property Get Other2() As String
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.Other2
    Other2 = mvarOther2
End Property



Public Property Let Other1(ByVal vData As String)
'当给属性赋值时在参数左边使用。
'Syntax: X.Other1 = 5
    mvarOther1 = vData
End Property


Public Property Get Other1() As String
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.Other1
    Other1 = mvarOther1
End Property










Public Property Let PointNum(ByVal vData As Integer)
'当给属性赋值时在参数左边使用。
'Syntax: X.PointNum = 5
    mvarPointNum = vData
End Property


Public Property Get PointNum() As Integer
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.PointNum
    PointNum = mvarPointNum
End Property



Public Property Let RefType(ByVal vData As Integer)
'当给属性赋值时在参数左边使用。
'Syntax: X.RefType = 5
    mvarRefType = vData
End Property


Public Property Get RefType() As Integer
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.RefType
    RefType = mvarRefType
End Property



Public Property Let DataWidth(ByVal vData As Integer)
'当给属性赋值时在参数左边使用。
'Syntax: X.DataWidth = 5
    mvarDataWidth = vData
End Property


Public Property Get DataWidth() As Integer
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.DataWidth
    DataWidth = mvarDataWidth
End Property



Public Property Let Visible(ByVal vData As Boolean)
'当给属性赋值时在参数左边使用。
'Syntax: X.Visible = 5
    mvarVisible = vData
End Property


Public Property Get Visible() As Boolean
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.Visible
    Visible = mvarVisible
End Property



Public Property Let DataType(ByVal vData As Integer)
'当给属性赋值时在参数左边使用。
'Syntax: X.DataType = 5
    mvarDataType = vData
End Property


Public Property Get DataType() As Integer
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.DataType
    DataType = mvarDataType
End Property



Public Property Let ReadOnly(ByVal vData As Boolean)
'当给属性赋值时在参数左边使用。
'Syntax: X.ReadOnly = 5
    mvarReadOnly = vData
End Property


Public Property Get ReadOnly() As Boolean
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.ReadOnly
    ReadOnly = mvarReadOnly
End Property



Public Property Let Width(ByVal vData As Integer)
'当给属性赋值时在参数左边使用。
'Syntax: X.Width = 5
    mvarWidth = vData
End Property


Public Property Get Width() As Integer
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.Width
    Width = mvarWidth
End Property



Public Property Let caption(ByVal vData As String)
'当给属性赋值时在参数左边使用。
'Syntax: X.Text = 5
    mvarCaption = vData
End Property


Public Property Get caption() As String
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.Text
    caption = mvarCaption
End Property



Public Property Let key(ByVal vData As String)
'当给属性赋值时在参数左边使用。
'Syntax: X.Key = 5
    mvarKey = vData
End Property


Public Property Get key() As String
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.Key
    key = mvarKey
End Property



Public Property Let FormatStr(ByVal vData As String)
'当给属性赋值时在参数左边使用。
'Syntax: X.FormatStr = 5
    mvarFormatStr = vData
End Property


Public Property Get FormatStr() As String
'当检索属性值时在参数右边使用。
'Syntax: Debug.Print X.FormatStr
    FormatStr = mvarFormatStr
End Property