Autodesk 15606-011408-9300 Developer Guide - Page 195

On Error GoTo ErrHandler

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 195 highlights

SDFInfo Example Code (continued) Dim oTlkt As New SdfToolkit Dim oBox As SdfBoundingBox Dim oObj As SdfObject Dim strMsg As String Dim i As Long On Error GoTo ErrHandler 'Open the sdf file in read-only mode oTlkt.Open txtSdfName.Text, sdfOpenRead, True 'Get the SDF extents Set oBox = oTlkt.BoundingBox 'Begin spatial search for polylines oTlkt.BeginSpatialIndexSearch sdfPolylineClass, oBox 'Get first feature Set oObj = oTlkt.SearchToNextObject() i=1 While Not (oObj Is Nothing) ShowMessage "Feature: " & i & " " & GetObjectTypeString(oObj.Type) ShowMessage " Key: " & oObj.Key ShowMessage " Name: " & oObj.Name ShowMessage " Url: " & oObj.Url Set oObj = oTlkt.SearchToNextObject() i=i+1 DoEvents Wend 'Close the toolkit oTlkt.EndSearch 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 Sub ShowMessage(Msg As String) SDF Component Toolkit Applications | 195

  • 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
|
195
Dim oTlkt As New SdfToolkit
Dim oBox As SdfBoundingBox
Dim oObj As SdfObject
Dim strMsg As String
Dim i As Long
On Error GoTo ErrHandler
'Open the sdf file in read-only mode
oTlkt.Open txtSdfName.Text, sdfOpenRead, True
'Get the SDF extents
Set oBox = oTlkt.BoundingBox
'Begin spatial search for polylines
oTlkt.BeginSpatialIndexSearch sdfPolylineClass, oBox
'Get first feature
Set oObj = oTlkt.SearchToNextObject()
i=1
While Not (oObj Is Nothing)
ShowMessage "Feature: " & i & " " & GetObjectTypeString(oObj.Type)
ShowMessage "
Key: " & oObj.Key
ShowMessage "
Name: " & oObj.Name
ShowMessage "
Url: " & oObj.Url
Set oObj = oTlkt.SearchToNextObject()
i=i+1
DoEvents
Wend
'Close the toolkit
oTlkt.EndSearch
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
Sub ShowMessage(Msg As String)
SDFInfo Example Code (
continued
)