MapX应用讲义第05章 用VB生成MIF／MID文件.doc

第5章 用VB生成MIF/MID文件 134 5.1 模块级变量 134 5.2 创建MIF/MID文件 134 5.3 绘线段 137 5.4 绘制折线 137 5.5 绘制封闭区域 138 5.6 绘圆角矩形 140 5.7 绘制矩形 140 5.8 绘制椭圆 141 5.9 绘制椭圆弧 142 5.10 创建点（标注符号） 142 5.11 标注文字 143 5.12 选择绘图笔 144 5.13 选择画刷 145 5.14 选择字体 146 5.15 选择标注符号 147 5.16 选择TrueType字体符号 148 5.17 结束输出MIF/MID文件 149 5.18 绘制断层（边界河流）实例 149 5.19 标注地名符号实例 153 第5章 用VB生成MIF/MID文件 MapInfo的*.Tab、*.Dat等文件是用二进制格式存储的图形文件，脱离MapInfo用VB等高级语言很难生成该类文件。通过OLE自动化可以直接写表，但速度较慢。*.MIF、*.MID是MapInfo的图形交换格式文件，它用ASCII格式存放，用VB等高级语言很容易实现。下面给出一些用VB 6.0编写的用于生成MIF/MID文件的子程序，用户使用这些子程序可以生成所需的MapInfo图形文件。 5.1 模块级变量 以下模块级变量为本章的MIF/MID子程序所需。 Option Explicit Dim ColumnsN As Integer, ColumnsType() As String Dim PenWidth As Integer, PenPattern As Integer, PenColor As Long Dim FillPattern As Integer, FillForeGround As Long, FillBackGround As Long, BorderStyle As Integer, BorderColor As Long, BorderWidth As Integer Dim TextFont As String, TextSize As Integer, TextColor As Long, TextNoBackgroundColor As Integer, TextBackgroundColor As Long, TextEffects As Integer Dim SymbolShape As Integer, SymbolColor As Long, SymbolSize As Integer, SymbolFontName As String, SymbolFontStyle As Integer, SymbolRotation As Double Dim XYFact As Single Public MIFNo As Integer, MIDNo As Integer, MIFMIDFile As String Public mapWinID As Long 5.2 创建MIF/MID文件 1.功能 创建一个MIF/MID文件头。 2.子程序语句 Public Sub MIFMID_Open(FileName As String, Columns() As String, ColumnsTypeT() As String, ColumnsNt As Integer) 3.参数说明 FileName：字符串变量，用于生成MIF/MID文件名，该文件名不带后缀。 Columns()：字段数组，长度为ColumnsNt。字段名可以长达31个字符。可以使用字母、数字和下划线。不能使用空格。字符可以使用大小写，但MapInfo对大小写不做区分。 ColumnsTypeT()：字符串数组，长度为ColumnsNt。用于定义字段类型，与字段数组一一对应，可用的字段类型有： 字符类型Character：需指定宽度Width，最多可达250个字符。 整型Integer：相当于VB的Long Integer，范围在-2 147 483 648～+214 748 647之间的整数，用4个字节存储。 短整型Small Integer，相当于VB的Integer，Decimal，存储小数点固定的十进制形式的数字，此时需输入宽度Width和小数位数Decimals。 宽度包括小数点、小数点后面的位数以及负号。若用户插入越界数据，则系统插入错误的值，且不显示错误信息。 日期型Date，占4个字节，输入格式为：MM/DD/YYYY，如12/01/1999。 逻辑型Logical，该字段只能包含真/假或是/否信息。对于“真/是”存储“T”，对于“假/否”存储“F”。 Col