The cEquipment Class
Private m_lngID As Long
Private m_sPCType As String
Private m_sPhoneType As String
Private m_sLocation As String
Private m_sFaxYN As String
'
Public Property Get ID() As Long
ID = m_lngID
End Property
Public Property Let ID(newID As Long)
m_lngID = newID
End Property
Public Property Get PCType() As String
PCType = m_sPCType
End Property
Public Property Let PCType(newPCType As String)
m_sPCType = newPCType
End Property
Public Property Get PhoneType() As String
PhoneType = m_sPhoneType
End Property
Public Property Let PhoneType(newPhoneType As String)
m_sPhoneType = newPhoneType
End Property
Public Property Get Location() As String
Location = m_sLocation
End Property
Public Property Let Location(newLocation As String)
m_sLocation = newLocation
End Property
Public Property Get FaxYN() As String
FaxYN = m_sFaxYN
End Property
Public Property Let FaxYN(newFaxYN As String)
m_sFaxYN = newFaxYN
End Property
CHAPTER 4 n USERFORMS 167
Listing 4-3. The cAccess Class
Private m_lngID As Long
Private m_sBuilding As String
Private m_iNetworkLevel As Integer
Private m_sRemoteYN As String
Private m_sParkingSpot As String
'
Public Property Get ID() As Long
ID = m_lngID
End Property
Public Property Let ID(newID As Long)
m_lngID = newID
End Property
Public Property Get Building() As String
Building = m_sBuilding
End Property
Public Property Let Building(newBuilding As String)
m_sBuilding = newBuilding
End Property
Public Property Get NetworkLevel() As Integer
NetworkLevel = m_iNetworkLevel
End Property
Public Property Let NetworkLevel(newNetworkLevel As Integer)
m_iNetworkLevel = newNetworkLevel
End Property
Public Property Get RemoteYN() As String
RemoteYN = m_sRemoteYN
End Property
Public Property Let RemoteYN(newRemoteYN As String)
m_sRemoteYN = newRemoteYN
End Property
Public Property Get ParkingSpot() As String
ParkingSpot = m_sParkingSpot
End Property
Public Property Let ParkingSpot(newParkingSpot As String)
m_sParkingSpot = newParkingSpot
End Property
CHAPTER 4 n USERFORMS 168
Managing Lists
Some of the data inputs on our HRWizard UserForm are being displayed to the user via ComboBox
controls.
Pages:
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177