
86 CHAPTER 3
PCDPropertyList
For i = 1 To nTotalElements
nResult = _
ValueForm.oValueFormProps.AddProperty( _
oGlobalPropertyList.GetCurrentPropertyName(),
oGlobalPropertyList.GetCurrentPropertyValue())
nResult = oGlobalPropertyList.NextProperty()
Next i
ValueForm.Show
End Sub
'During the form load, a series of performance
'metadata elements are being loaded into the
'Property list.
Private Sub Form_Load()
Dim nResult As Long
Dim vPropValue As Variant
vPropValue = 85
'Load CPU metadata.
nResult = oGlobalPropertyList.AddProperty( _
"CPU", vPropValue)
'If successful, then load the Memory metadata.
If nResult = 0 Then
vPropValue = 512100
nResult = oGlobalPropertyList.AddProperty( _
"Memory", vPropValue)
'If successful, then load the Table Locks
'metadata
If nResult = 0 Then
vPropValue = 125
nResult = _
Kommentare zu diesen Handbüchern