- 1、本文档共98页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第09章.MapBasic编程
第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所示。
您可能关注的文档
最近下载
- 第二单元 项目1 《 获取长城研学路线-互联网信息有哪些信誉好的足球投注网站》教学设计 2024—2025学年安徽版(2024)初中信息技术七年级上册.docx VIP
- 江苏省2024普通高中学业水平合格性考试英语真题卷 .pdf
- 第二单元+项目1+《+获取长城研学路线-互联网信息有哪些信誉好的足球投注网站》课件+2024—2025学年安徽版(2024)初中信息技术七年级上册+.pptx VIP
- 浙江交投高速公路建设管理有限公司部分中层管理岗位公开竞聘【综合基础知识500题】高频考点模拟试题及参考答案解析.docx
- 天然气对井内压力的影响(五)课件.pptx VIP
- 妇产科医疗质控总结.pptx VIP
- 企业内部控制指引.doc
- 山东大学齐鲁医院诊断证明.docx VIP
- 心胸外科出科.pptx VIP
- 2024贵州遵义市面向优秀村(社区)干部专项招聘乡镇(街道)事业单位工作人员61人笔试备考题库及答案解析.docx VIP
文档评论(0)