UC知道这个用vb+mapx怎么做
来源：百度知道 编辑：UC知道 时间：2024/05/25 18:33:59
开发环境描述：
VB( or VC )，MapX，MapInfo Professional
考查重点：
对MapInfo Professional的基本操作；
对MapX中的绘图函数的掌握；
简单算法程序的编写能力；
测试内容：
1、用MapInfo Professional新建一个包含至少2个字段的图层文件
A.tab；（5）
2、用MapInfo Professional在A.tab中添加两个折线对象Line1
和Line2，要求这两个对象的节点数都不少于5个，Line1和Line2必
须相交；（5）333
3、用MapX + VB( or VC )编写一段程序，在程序中实现：
3.1、打开A.tab并显示在mapx控件中 ；（10）
3.2、创建一个新的物理图层文件B.tab，B.tab与A.tab在同一个
目录下；（15）
3.3、将Line1和Line2在交点处各自截断，生成4个新的折线对象
Line1_1、Line1_2、Line2_1、Line2_2；（35）
3.4、将截断产生的4条新线段添加到B上，并将这些线段按它们在
B上的生成顺序标上序号，要求在图上能看到标注；（30）
VB( or VC )，MapX，MapInfo Professional
考查重点：
对MapInfo Professional的基本操作；
对MapX中的绘图函数的掌握；
简单算法程序的编写能力；
测试内容：
1、用MapInfo Professional新建一个包含至少2个字段的图层文件
A.tab；（5）
2、用MapInfo Professional在A.tab中添加两个折线对象Line1
和Line2，要求这两个对象的节点数都不少于5个，Line1和Line2必
须相交；（5）333
3、用MapX + VB( or VC )编写一段程序，在程序中实现：
3.1、打开A.tab并显示在mapx控件中 ；（10）
3.2、创建一个新的物理图层文件B.tab，B.tab与A.tab在同一个
目录下；（15）
3.3、将Line1和Line2在交点处各自截断，生成4个新的折线对象
Line1_1、Line1_2、Line2_1、Line2_2；（35）
3.4、将截断产生的4条新线段添加到B上，并将这些线段按它们在
B上的生成顺序标上序号，要求在图上能看到标注；（30）
3.1
Private Sub opengeo_Click()
Dim filename As String
Dim i, j, t As Integer
Dim sFile As String
Dim dtname As String
On Error GoTo JRS_GENERIC_ERROR_HANDLER:
With CommonDialog
.DialogTitle = "打开图层"
.Flags = cdlOFNHideReadOnly
.CancelError = True
.filename = ""
.Filter = "MapInfo Tables (*.tab)|*.tab"
.ShowOpen
If Len(.filename) = 0 Then
Exit Sub
End If
sFile = .filename
End With
If CommonDialog.filename <> "" Then
Map1.Layers.Add sFile
Map1.Title.Visible = False
TreeView1.Refresh
End If