Autodesk 15606-011408-9300 Developer Guide - Page 193

Do While Not oObj Is Nothing, objFound = Not oObj Is Nothing

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

SDFInfo Example Code (continued) On Error GoTo ErrHandler 'Open the sdf file in read-only mode oTlkt.Open txtSdfName.Text, sdfOpenRead, True 'Begin spatial search for polylines oTlkt.BeginKeyIndexSearch (Key) 'Get first feature Set oObj = oTlkt.SearchToNextObject() objFound = Not (oObj Is Nothing) i=1 Do 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 Loop 'If we come here, feature with specified key was not found If Not objFound Then ShowMessage ("Feature with specified key not found.") Else ShowMessage (i - 1 & " features with key " & Key & " found.") End If '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 Private Sub btnSrchSeq_Click() 'Check if there is a file name in edit box If txtSdfName.Text = "" Then ShowMessage ("Select an SDF file first.") Exit Sub End If SDF Component Toolkit Applications | 193

  • 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
|
193
On Error GoTo ErrHandler
'Open the sdf file in read-only mode
oTlkt.Open txtSdfName.Text, sdfOpenRead, True
'Begin spatial search for polylines
oTlkt.BeginKeyIndexSearch (Key)
'Get first feature
Set oObj = oTlkt.SearchToNextObject()
objFound = Not (oObj Is Nothing)
i=1
Do 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
Loop
'If we come here, feature with specified key was not found
If Not objFound Then
ShowMessage ("Feature with specified key not found.")
Else
ShowMessage (i - 1 & " features with key " & Key & " found.")
End If
'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
Private Sub btnSrchSeq_Click()
'Check if there is a file name in edit box
If txtSdfName.Text = "" Then
ShowMessage ("Select an SDF file first.")
Exit Sub
End If
SDFInfo Example Code (
continued
)