
84 CHAPTER 3
PCDPropertyList
Example
The following example shows how you can incorporate the
functionality of the GetPropertyList object into an application.
Public oGlobalPropertyList As New PCDPropertyList
Private Sub cbDelete_Click()
Dim nResult As Long
Dim nTotalElements As Integer
nTotalElements = oGlobalPropertyList.GetSize
MsgBox "The Total number of elements in the “ _
& “PCDPropertyList - " + Str(nTotalElements)
For i = 1 To nTotalElements
nResult=oGlobalPropertyList.NextProperty()
nResult=DeleteForm.oDeleteProp.AddProperty( _
oGlobalPropertyList.GetCurrentPropertyName(),
oGlobalPropertyList.GetCurrentPropertyValue())
Next i
DeleteForm.Show
Kommentare zu diesen Handbüchern