
DM API OBJECTS 91
PCDPropertyList
Public nActiveProperty As Integer
Public oDeleteProp As New PCDPropertyList
Private Sub cbCancel_Click()
Unload DeleteForm
End Sub
Private Sub cbDelete_Click()
Dim nResult As Long
Dim nTotalRows As Long
'Clear the listbox.
lstProperties.Clear
'Delete the property that was selected.
nResult = oDeleteProp.DeleteProperty _
nActiveProperty
Kommentare zu diesen Handbüchern