[工程科技]mapbasic编程基础

《[工程科技]mapbasic编程基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、MapBasic编程1.1制作菜单栏1.1.1制作全新的菜单栏1.1.2修改已有菜单栏1.2菜单制作1.2.1全新菜单的制作1.2.2更改原有菜单1.3对话框制作1.3.1标准对话框1.3.2自定义对话框制作1.3.3控件的位置和大小1.3.4控件类型1.3.5控件的初值和终值1.4窗口1.4.1窗口的大小和位置1.4.2地图窗口1.4.3浏览窗口1.4.4统计窗口1.4.5布局窗口1.4.6信息窗口1.4.7消息窗口1.5工具条1.5.1工具条的类型1.5.2工具条的操作1.5.3创建触发式型按钮1.5.4创建工具按钮1.

2、5.5向“主”工具条添加一个按钮1.5.6选择按钮图表1.5.7运行MapBasic应用程序1.6MapBasic过程1.6.1MapBasic主过程1.6.2MapBasic子过程1.7MapBasic变量1.8MapBasic的表达式1.8.1MapBasic的函数1.8.2MapBasic的运算符1.1分支、循环和其他流程控制1.1.1分支语句1.1.2循环语句1.1.3其他流程控制语句1.10MapBasic的表操作1.11习题11.1制作菜单栏菜单栏是MapInfo工作区域顶部的水平条，初始状态下的MapInfo的

3、菜单栏包括“File”，“Edit”，“Objects”，“Query”等。1.1.1制作全新的菜单栏语法：CreateMenuBarAs{菜单名或ID菜单号}[,{菜单名或ID菜单号}...]【例1-1】制作一个全新菜单栏，包含“File”，“Edit”，“Query”，“Map”，“Browse”菜单。代码如下：CreateMenuBarAs"File","Edit","Query","Map","Browse"图1-1全新菜单栏1.1.2修改已有菜单栏1.删除菜单语法：AlterMenuBarRemove{菜单名或ID

4、菜单号}[,{菜单名或ID菜单号}...]【例1-2】在原有菜单栏的基础上，删除“Windows”，“Help”菜单。代码如下：AlterMenuBarRemoveID6,ID7图1-2删除菜单2.增加菜单语法：AlterMenuBarAdd{菜单名或ID菜单号}[,{菜单名或ID菜单号}...]【例1-3】在原有菜单栏的基础上，增加“DataEntry”菜单。代码如下：AlterMenuBarAdd"DataEntry"图1-3增加菜单图1-4在菜单栏中间增加菜单3.恢复菜单语法：CreateMenuBarAsDefaul

5、t若放弃对菜单栏的修改，恢复原有菜单样式，可以运行以下代码：CreateMenuBarAsDefault1.2菜单制作1.2.1全新菜单的制作语法：CreateMenu新菜单名[ID菜单号]As菜单项1[ID菜单号]{Callinghandler

6、As菜单名}[,菜单项2...]【例1-4】制作全新菜单“DataEntry”。代码如下：CreateMenu"DataEntry"As'制作“DataEntry”菜单"Add",'菜单有三个菜单项"Edit","Delete"AlterMenuBarAdd"DataEntry"'

7、将菜单添加到菜单栏中图1-5制作全新菜单1.2.2更改原有菜单语法：CreateMenu新菜单名[ID菜单号]As菜单项1[ID菜单项]{Callinghandler

8、As菜单名}[,菜单项2...]【例1-5】更改原有菜单“File”的内容。代码如下：CreateMenu"&File"As"&New","&Open","&Close","&Save","&Print","&Exit"图1-6更改原有菜单1.3对话框制作1.3.1标准对话框1.消息对话框语法：Note消息图1-7消息对话框【例1-6】例如显示一个“查询成功！

9、”的消息对话框。代码如下：Note"查询成功！"2.询问对话框语法：Ask(提示信息,确定文本,取消文本)【例1-7】下面的例子用生成一个简单询问对话框。DimmoreAsLogicalmore=Ask("Doyouwanttocontinue?","OK","Stop")运行结果如图1-8所示。图1-8询问对话框3.选择文件对话框语法：FileOpenDlg(路径,文件名,文件类型,标题)【例1-8】下面的程序用FileOpenDlg()函数显示提示用户打开一个文件的对话框。Dims_filenameAsStrings_f

10、ilename=FileOpenDlg("","","TAB","OpenTable")运行结果如图1-1所示。图1-1选择文件对话框1.3.2自定义对话框制作【例1-1】下面是生成一个自定义对话框的代码：Dialogtitle"按省份名"ControlStatictexttitle"请输