Autodesk 15606-011408-9300 Developer Guide - Page 184

Dim strObjType As String, strKey As String, strUrl As, Dim i As Long, j As Long

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

ConvertSDF Example Code (continued) ErrHandler: 'Cancel was selected 'Just exit after resetting errhandler On Error GoTo 0 End Sub Private Sub btnBrowseTxt_Click() On Error GoTo ErrHandler cdOpen.Filter = "Text Files (*.TXT)| *.TXT" cdOpen.FilterIndex = 1 cdOpen.DialogTitle = "Open SDF File" 'Show the open dialog box cdOpen.ShowOpen txtTxtName.Text = cdOpen.FileName ErrHandler: 'Cancel was selected 'Just exit after resetting errhandler On Error GoTo 0 End Sub Private Sub btnConvert_Click() 'Check if there is a file name in edit boxes If (txtSdfName.Text = "") Or (txtTxtName.Text = "") Then ShowMessage ("Select the TXT and SDF files first!") Exit Sub End If Dim oTlkt As New SdfToolkit Dim oObj As New SdfObject Dim oGeom As New SdfObjectGeometry Dim oSeg As New SdfObjectGeometrySegment Dim oPnt As New SdfDoublePoint Dim strMsg As String Dim strObjType As String, strKey As String, strName As String, strUrl As String, strCnt As String Dim X As Double, Y As Double Dim i As Long, j As Long On Error GoTo ErrHandler 'Open the input text file Open txtTxtName.Text For Input As #1 'Open the sdf file in read-only mode oTlkt.Open txtSdfName.Text, sdfOpenUpdate Or sdfCreateAlways, True 'Indicate update process 184 | Chapter 7 Applications

  • 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
184
|
Chapter 7
Applications
ErrHandler:
'Cancel was selected
'Just exit after resetting errhandler
On Error GoTo 0
End Sub
Private Sub btnBrowseTxt_Click()
On Error GoTo ErrHandler
cdOpen.Filter = "Text Files (*.TXT)| *.TXT"
cdOpen.FilterIndex = 1
cdOpen.DialogTitle = "Open SDF File"
'Show the open dialog box
cdOpen.ShowOpen
txtTxtName.Text = cdOpen.FileName
ErrHandler:
'Cancel was selected
'Just exit after resetting errhandler
On Error GoTo 0
End Sub
Private Sub btnConvert_Click()
'Check if there is a file name in edit boxes
If (txtSdfName.Text = "") Or (txtTxtName.Text = "") Then
ShowMessage ("Select the TXT and SDF files first!")
Exit Sub
End If
Dim oTlkt As New SdfToolkit
Dim oObj As New SdfObject
Dim oGeom As New SdfObjectGeometry
Dim oSeg As New SdfObjectGeometrySegment
Dim oPnt As New SdfDoublePoint
Dim strMsg As String
Dim strObjType As String, strKey As String, strName As String, strUrl As
String, strCnt As String
Dim X As Double, Y As Double
Dim i As Long, j As Long
On Error GoTo ErrHandler
'Open the input text file
Open txtTxtName.Text For Input As #1
'Open the sdf file in read-only mode
oTlkt.Open txtSdfName.Text, sdfOpenUpdate Or sdfCreateAlways, True
'Indicate update process
ConvertSDF Example Code (
continued
)