9章MapBasic编程.pptVIP

第9章 MapBasic编程 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 String s_filename= FileOpenDlg(,,TAB,Open Table) 运行结果如图9-9所示。