Autodesk 15606-011408-9300 Developer Guide - Page 187

If Not oObj Is Nothing Then, Function GetObjectTypeStringObjType As SdfObjectType As String

Get Autodesk 15606-011408-9300 - MAPGUIDE R6.3 UPG PDF manuals and user guides
UPC - 606121429548
View all Autodesk 15606-011408-9300 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 187 highlights

ConvertSDF Example Code (continued) 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: SDF Component Toolkit Applications | 187

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184
  • 185
  • 186
  • 187
  • 188
  • 189
  • 190
  • 191
  • 192
  • 193
  • 194
  • 195
  • 196
  • 197
  • 198
  • 199
  • 200
  • 201
  • 202
  • 203
  • 204
  • 205
  • 206
  • 207
  • 208
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
)