Autodesk 15606-011408-9300 Developer Guide - Page 191

Dim oTlkt As New SdfToolkit, Dim strMsg As String

Page 191 highlights

SDFInfo Example Code (continued) Private Sub btnExit_Click() End End Sub Private Sub btnShowInfo_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 Dim oTlkt As New SdfToolkit Dim oBox As SdfBoundingBox Dim strMsg As String On Error GoTo ErrHandler 'Open the sdf file in read-only mode oTlkt.Open txtSdfName.Text, sdfOpenRead, True 'Get SDF name strMsg = oTlkt.Name ShowMessage "SDF File opened: " & strMsg 'Get description strMsg = oTlkt.Description ShowMessage "Description: " & strMsg 'Get precision strMsg = oTlkt.Precision ShowMessage "Precision: " & strMsg & " bit" 'Get key length strMsg = oTlkt.MaxKeyLength ShowMessage "Max Key length: " & strMsg 'Get version strMsg = oTlkt.Version ShowMessage "Version: " & strMsg 'Get extents strMsg = "Min LAT: " & oTlkt.BoundingBox.minY & vbCrLf & _ "Min LON: " & oTlkt.BoundingBox.minX & vbCrLf & _ "Max LAT: " & oTlkt.BoundingBox.maxY & vbCrLf & _ "Max LON: " & oTlkt.BoundingBox.maxX ShowMessage "SDF Extents: " & vbCrLf & strMsg SDF Component Toolkit Applications | 191

  • 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
|
191
Private Sub btnExit_Click()
End
End Sub
Private Sub btnShowInfo_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
Dim oTlkt As New SdfToolkit
Dim oBox As SdfBoundingBox
Dim strMsg As String
On Error GoTo ErrHandler
'Open the sdf file in read-only mode
oTlkt.Open txtSdfName.Text, sdfOpenRead, True
'Get SDF name
strMsg = oTlkt.Name
ShowMessage "SDF File opened: " & strMsg
'Get description
strMsg = oTlkt.Description
ShowMessage "Description: " & strMsg
'Get precision
strMsg = oTlkt.Precision
ShowMessage "Precision: " & strMsg & " bit"
'Get key length
strMsg = oTlkt.MaxKeyLength
ShowMessage "Max Key length: " & strMsg
'Get version
strMsg = oTlkt.Version
ShowMessage "Version: " & strMsg
'Get extents
strMsg = "Min LAT: " & oTlkt.BoundingBox.minY & vbCrLf & _
"Min LON: " & oTlkt.BoundingBox.minX & vbCrLf & _
"Max LAT: " & oTlkt.BoundingBox.maxY & vbCrLf & _
"Max LON: " & oTlkt.BoundingBox.maxX
ShowMessage "SDF Extents: " & vbCrLf & strMsg
SDFInfo Example Code (
continued
)