第9章 MapBasic编程,9.1 制作菜单栏9.1.1 制作全新的菜单栏 9.1.2 修改已有菜单栏 9.2 菜单制作 9.2.1 全新菜单的制作9.2.2 更改原有菜单 9.3 对话框制作 9.3.1 标准对话框,9.3.2 自定义对话框制作 9.3.3 控件的位置和大小9.3.4 控件类型 9.3.5 控件的初值和终值 9.4 窗口9.4.1 窗口的大小和位置 9.4.2 地图窗口 9.4.3 浏览窗口,9.4.4 统计窗口9.4.5 布局窗口 9.4.6 信息窗口 9.4.7 消息窗口 9.5 工具条 9.5.1 工具条的类型 9.5.2 工具条的操作9.5.3 创建触发式型按钮 9.5.4 创建工具按钮 9.5.5 向“主”工具条添加一个 按钮 9.5.6 选择按钮图表 9.5.7 运行MapBasic应用程序,9.6 MapBasic过程 9.6.1 MapBasic主过程9.6.2 MapBasic子过程 9.7 MapBasic变量 9.8 MapBasic的表达式 9.8.1 MapBasic的函数9.8.2 MapBasic的运算符 9.9 分支、循环和其他流程控制 9.9.1 分支语句 9.9.2 循环语句 9.9.3 其他流程控制语句 9.10 MapBasic的表操作 9.11 习题9,9.1 制作菜单栏,菜单栏是MapInfo工作区域顶部的水平条，初始状态下的MapInfo的菜单栏包括“File”，“Edit”，“Objects”，“Query”等。,9.1.1 制作全新的菜单栏,语法：Create Menu Bar As 菜单名 或 ID 菜单号 ,菜单名 或 ID 菜单号.,【例9-1】制作一个全新菜单栏，包含“File”，“Edit”，“Query”，“Map”，“Browse”菜单。代码如下：Create Menu Bar As “File“,“Edit“,“Query“,“Map“,“Browse“图9-1 全新菜单栏,9.1.2 修改已有菜单栏,1. 删除菜单 语法：Alter Menu Bar Remove菜单名 或 ID 菜单号 ,菜单名 或 ID 菜单号. 【例9-2】在原有菜单栏的基础上，删除“Windows”，“Help”菜单。,代码如下： Alter Menu Bar Remove ID 6, ID 7 图9-2 删除菜单,2. 增加菜单 语法： Alter Menu Bar Add 菜单名 或 ID 菜单号 ,菜单名 或 ID 菜单号. 【例9-3】在原有菜单栏的基础上，增加“DataEntry”菜单。 代码如下： Alter Menu Bar Add “DataEntry“,图9-3 增加菜单 图9-4 在菜单栏中间增加菜单,3. 恢复菜单语法：Create Menu Bar As Default若放弃对菜单栏的修改，恢复原有菜单样式，可以运行以下代码：Create Menu Bar As Default,9.2 菜单制作,9.2.1 全新菜单的制作语法： Create Menu 新菜单名 ID 菜单号As 菜单项1 ID菜单号 Calling handler | As 菜单名 ,菜单项2.,【例9-4】制作全新菜单“DataEntry”。代码如下：Create Menu “DataEntry“ As 制作“DataEntry”菜单“Add“ , 菜单有三个菜单项“Edit“ ,“Delete“ Alter Menu Bar Add “DataEntry“ 将菜单添加到菜单栏中图9-5 制作全新菜单,9.2.2 更改原有菜单,语法： Create Menu 新菜单名 ID 菜单号As 菜单项1 ID菜单项 Calling handler | As 菜单名,菜单项2. 【例9-5】更改原有菜单“File”的内容。代码如下： Create Menu “&File“ As“&New“ ,“&Open“ ,“&Close“ ,“&Save“ ,“&Print“ ,“&Exit“,图9-6 更改原有菜单,9.3 对话框制作,9.3.1 标准对话框 1. 消息对话框语法： Note 消息 图9-7 消息对话框 【例9-6】例如显示一个“查询成功！”的消息对话框。代码如下：Note “查询成功！“,2. 询问对话框语法： Ask (提示信息,确定文本,取消文本) 【例9-7】下面的例子用生成一个简单询问对话框。 Dim more As Logical more = Ask(“Do you want to continue?“, “OK“, “Stop“)运行结果如图9-8所示。 图9-8 询问对话框,3. 选择文件对话框语法：FileOpenDlg(路径,文件名,文件类型,标题) 【例9-8】下面的程序用FileOpenDlg()函数显示提示用户打开一个文件的对话框。Dim s_filename As Strings_filename= FileOpenDlg(“,“,“TAB“,“Open Table“)运行结果如图9-9所示。,图9-9 选择文件对话框,9.3.2 自定义对话框制作,【例9-9】下面是生成一个自定义对话框的代码： Dialog title “按省份名“ Control Statictexttitle “请输省份名:“ Control Edittext Control Okbutton Title “确定“ Control Cancelbutton Title “取消“,图9-10 自定义对话框图9-11 指定位置和大小,9.3.3 控件的位置和大小,控件的大小由Width（宽）和Height（高）控制。位置和大小采用对话框单位为单位，每个对话框单位表示一个字符宽度的1/4或一个字符高度的1/8，以对话框的左上角为原点，它的位置是（0，0）。【例9-10】下面的例程指定了控件的位置及大小。Dialog Title “按省份名“ Control StaticText,Title “请输省份名:“Control EditText Control OkButtonWidth 20Height 12 Title “确定“Position 60,32Control CancelButtonWidth 20Height 12 Title “取消“Position 100,32运行结果如图9-11所示。,9.3.4 控件类型,1. 静态文本控件 语法：Control StaticText Position x , y Width宽度 Height高度 ID控件号 Title标题,【例9-11】下面是生成一个静态文本控件的代码：DialogControl StaticText Title “Enter map title:“ Position 5, 10Control OkButton 图9-12 静态文本控件 Control CancelButton运行结果如图9-12所示。,2. 输入文本控件语法：Control EditText Position x , y Width宽度 Height高度 ID控件号 Value 初始值 Into变量 【例9-12】下面是生成一个输入文本控件的代码：DialogControl EditText,Control OkButtonControl CancelButton运行结果如图9-13所示。图9-13 输入文本控件,3. 组合框控件语法：Control GroupBox Position x , y Width宽度 Height高度 Title标题 【例9-13】下面是生成一个组合框的代码：DialogControl GroupBox Title “Level of Detail“,Position 5, 30Height 40 Width 70Control OkButtonControl CancelButton 运行结果如图9-14所示。 4. 单选项组合控件 语法：Control RadioGroup 图9-14 组合框控件 Position x , y ID控件号 Calling过程 Title 字符串表达式 或 From Variable 字符串变量, Value初始选项 Into变量 【例9-14】下面是生成一个单选项组合控件的代码：DialogControl RadioGroup Title “&Partial Details“ Position 15, 42 Control OkButtonControl CancelButton运行结果如图9-15所示。,5. Picker选取对象类控件 语法：Control PenPicker 或 BrushPicker 或 SymbolPicker 或 FontPicker Position x , y Width 宽度 Height 高度 ID控件号 Calling过程 Value样式表达式 Into样式变量,【例9-15】下面是生成一个文本选取控件的代码：DialogControl FontPicker Position 140,42 Control OkButtonControl CancelButton运行结果如图9-16所示。图9-16 文本选取控件,6.ListBox列表框控件 语法：Control ListBox Position x , y Width 宽度 Height 高度 ID控件号 Calling过程 Title 字符串表达式 或 From Variable 字符串变量 Value初始选项 Into变量 【例9-16】下面是生成一个列表框控件的代码：,Dialog Control ListBox Title “1st Quarter;2nd Quarter;3rd Quarter;4th Quarter“ Position 10, 92 Height 40 Control OkButton Control CancelButton运行结果如图9-17所示。图9-17列表框控件,7. 多重列表框控件语法：Control MultiListBox Position x , y Width 宽度 Height 高度 ID控件号 Calling过程 Title 字符串表达式 或 From Variable 字符 串变量 Value初始选项 Into变量,【例9-17】下面是生成一个多重列表框控件的代码：DialogControl MultiListBox Title “Streets;Highways;Towns;Countries;States“ Position 10, 92 Width 65Height 35 Control OkButtonControl CancelButton运行结果如图9-18所示。 图9-18 多重列表框控件,