196
|
Chapter 7
Applications
Copying an SDF File—a Visual Basic Example
The CopySDF example shows how to open an existing SDF file and write its
features to a new SDF file. It is written in Visual Basic.
txtMsg.Text = txtMsg.Text & Msg & vbCrLf
End Sub
Function GetObjectTypeString(ObjType As SdfObjectType) As String
Select Case ObjType
Case sdfPointObject:
GetObjectTypeString = "POINT"
Case sdfPolygonObject:
GetObjectTypeString = "POLYGON"
Case sdfPolylineObject:
GetObjectTypeString = "POLYLINE"
Case sdfPolyPolylineObject:
GetObjectTypeString = "POLYPOLYLINE"
Case sdfPolyPolygonObject:
GetObjectTypeString = "POLYPOLYGON"
End Select
End Function
CopySDF Example Code
VERSION 6.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmLab2
Caption
=
"Form1"
ClientHeight
=
3360
ClientLeft
=
48
ClientTop
=
276
ClientWidth
=
5820
LinkTopic
=
"Form1"
ScaleHeight
=
3360
ScaleWidth
=
5820
StartUpPosition =
3
'Windows Default
Begin VB.CommandButton btnCopy
Caption
=
"Copy"
Height
=
288
Left
=
4440
TabIndex
=
6
Top
=
960
Width
=
1212
SDFInfo Example Code (
continued
)
Содержание 15606-011408-9300 - MAP R6.3 UPG
Страница 1: ...15306 010000 5060 October 2001 Autodesk MapGuide Release 6 Developer s Guide ...
Страница 6: ...vi ...
Страница 16: ...16 ...
Страница 30: ...30 ...
Страница 84: ...84 ...
Страница 134: ...134 ...
Страница 202: ...202 ...