SDF Component Toolkit Applications
|
187
objFound = Not (oObj Is Nothing)
If Not (oObj Is Nothing) Then
ShowMessage "Following feature is deleted"
ShowMessage "Feature: " & i & " " & GetObjectTypeString(oObj.Type)
ShowMessage "
Key : " & oObj.Key
ShowMessage "
Name: " & oObj.Name
ShowMessage "
Url : " & oObj.Url
'Delete this feature
oTlkt.BeginUpdate
oTlkt.DeleteObject oObj
oTlkt.EndUpdate
End If
'If we come here, feature with specified key was not found
If Not objFound Then
ShowMessage ("Feature with specified key not found.")
Else
ShowMessage ("Feature with key " & Key & " deleted.")
End If
oTlkt.Close
Exit Sub
ErrHandler:
'Display the error number/message
MsgBox Err.Number & " : " & Err.Description
'Reset the handler before exiting
On Error GoTo 0
End Sub
Private Sub btnExit_Click()
End
End Sub
Sub ShowMessage(Msg As String)
txtMsg.Text = txtMsg.Text & Msg & vbCrLf
End Sub
Function GetObjectTypeString(ObjType As SdfObjectType) As String
Select Case ObjType
Case sdfPointObject:
GetObjectTypeString = "POINT"
Case sdfPolygonObject:
ConvertSDF Example Code (
continued
)
Содержание 15606-011408-9300 - MAP R6.3 UPG
Страница 1: ...15306 010000 5060 October 2001 Autodesk MapGuide Release 6 Developer s Guide ...
Страница 6: ...vi ...
Страница 16: ...16 ...
Страница 30: ...30 ...
Страница 84: ...84 ...
Страница 134: ...134 ...
Страница 202: ...202 ...