
DM API OBJECTS 85
PCDPropertyList
End Sub
Private Sub cbListProperties_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=ListForm.oListFormProps.AddProperty( _
oGlobalPropertyList.GetCurrentPropertyName(),
oGlobalPropertyList.GetCurrentPropertyValue())
Next i
ListForm.Show
End Sub
Private Sub cbQuit_Click()
Unload BaseForm
End Sub
Private Sub cbSearch_Click()
Dim nTotalElements As Integer
Dim nResult As Long
nTotalElements = oGlobalPropertyList.GetSize
MsgBox "The Total number of elements in the “ _
& “PCDPropertyList - " + Str(nTotalElements)
nResult = oGlobalPropertyList.BeginIter()
Comentários a estes Manuais