iemployee2.cls

来自「Visual Basic 6 大学教程的代码」· CLS 代码 · 共 42 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "IEmployee2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' Fig. 16.12
' Inteface IEmployee2 definition
Option Explicit
Private mFirstName As String, mLastName As String

Public Function Earnings() As Double
   ' Empty
End Function

Public Function ToString() As String
   ' Empty
End Function

Public Property Let FirstName(ByVal fName As String)
   mFirstName = fName
End Property

Public Property Get FirstName() As String
   FirstName = mFirstName
End Property

Public Property Let LastName(ByVal name As String)
   mLastName = name
End Property

Public Property Get LastName() As String
   LastName = mLastName
End Property