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
)
Summary of Contents for 15606-011408-9300 - MAP R6.3 UPG
Page 1: ...15306 010000 5060 October 2001 Autodesk MapGuide Release 6 Developer s Guide ...
Page 6: ...vi ...
Page 16: ...16 ...
Page 30: ...30 ...
Page 84: ...84 ...
Page 134: ...134 ...
Page 202: ...202 ...