Autodesk 15606-011408-9330 - MAPGUIDE R6.3 SITE LIC-UPG R6 Developer's Manual page 198

CopySDF Example Code (continued)
Top
Width
End
Begin RichTextLib.RichTextBox txtMsg
Height
Left
TabIndex
Top
Width
_ExtentX
_ExtentY
_Version
Enabled
ReadOnly
ScrollBars
TextRTF
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name
Size
Charset
Weight
Underline
Italic
Strikethrough
EndProperty
End
End
Attribute VB_Name = "frmLab2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub btnBrowseInSdf_Click()
On Error GoTo ErrHandler
cdOpen.Filter = "Text Files (*.SDF)| *.SDF"
cdOpen.FilterIndex = 1
cdOpen.DialogTitle = "Open SDF File"
'Show the open dialog box
cdOpen.ShowOpen
sdfInName.Text = cdOpen.FileName
ErrHandler:
'Cancel was selected
'Just exit after resetting errhandler
On Error GoTo 0
|
Chapter 7 Applications
198
= 480
= 1212
= 2292
= 120
= 0
= 960
= 4212
= 7430
= 4043
= 393217
= -1 'True
= -1 'True
= 2
= $"frmLab3.frx":0000
= "Courier New"
= 7.8
= 0
= 400
= 0 'False
= 0 'False
= 0 'False