cboss.cls

Visual Basic 6 大学教程的代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CBoss"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
' CBoss definition
Option Explicit
Implements IEmployee

Private mFirstName As String
Private mLastName As String
Private mWeeklySalary As Currency

Public Property Let WeeklySalary(ByVal wg As Currency)
   mWeeklySalary = IIf(wg > 0, wg, 0)
End Property

Public Property Get WeeklySalary() As Currency
   WeeklySalary = mWeeklySalary
End Property

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

Private Function IEmployee_Earnings() As Double
   IEmployee_Earnings = mWeeklySalary
End Function

Private Function IEmployee_ToString() As String
   IEmployee_ToString = "Boss: " & mFirstName & " " & _
                        mLastName
End Function