examstudent.cls

来自「哈哈」· CLS 代码 · 共 97 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "examstudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'保持属性值的局部变量
Private mvarxuehao As String '局部复制
Private mvarxingming As String '局部复制
Private mvarchengji As Integer '局部复制
Private mvarkaohao As String '局部复制
Private mvarbanji As String '局部复制
Public Property Let banji(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.banji = 5
    mvarbanji = vData
End Property


Public Property Get banji() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.banji
    banji = mvarbanji
End Property



Public Property Let kaohao(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.kaohao = 5
    mvarkaohao = vData
End Property


Public Property Get kaohao() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.kaohao
    kaohao = mvarkaohao
End Property



Public Property Let chengji(ByVal vData As Integer)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.chengji = 5
    mvarchengji = vData
End Property


Public Property Get chengji() As Integer
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.chengji
    chengji = mvarchengji
End Property



Public Property Let xingming(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.xingming = 5
    mvarxingming = vData
End Property


Public Property Get xingming() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.xingming
    xingming = mvarxingming
End Property



Public Property Let xuehao(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.xuehao = 5
    mvarxuehao = vData
End Property


Public Property Get xuehao() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.xuehao
    xuehao = mvarxuehao
End Property