有哪些信誉好的足球投注网站- 1、本文档共98页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
MapInfo教程第9章-MapBasic编程课件
;;9.1 制作菜单栏 ;9.1.1 制作全新的菜单栏;【例9-1】制作一个全新菜单栏，包含“File”，“Edit”，“Query”，“Map”，“Browse”菜单。
代码如下：
Create Menu Bar As
File,Edit,Query,Map,Browse
图9-1 全新菜单栏
;9.1.2 修改已有菜单栏;代码如下：
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-4】制作全新菜单“DataEntry”。
代码如下：
Create Menu DataEntry As 制作“DataEntry”菜单
Add , 菜单有三个菜单项
Edit ,
Delete
Alter Menu Bar Add DataEntry 将菜单添加到菜单栏中
图9-5 制作全新菜单
;9.2.2 更改原有菜单 ;
图9-6 更改原有菜单 ;9.3 对话框制作;
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所示。 ;
图9-9 选择文件对话框 ;9.3.2 自定义对话框制作;
图9-10 自定义对话框
图9-11 指定位置和大小 ;9.3.3 控件的位置和大小; Title 请输省份名:
Control EditText
?
Control OkButton
Width 20
Height 12
Title 确定
Position 60,32
?
Control CancelButton
Width 20
Height 12
Title 取消
Position 100,32
运行结果如图9-11所示。
;9.3.4 控件类型;【例9-11】下面是生成一个静态文本控件的代码：
Dialog
Control StaticText
Title Enter map title:
Position 5, 10
Control OkButton 图9-12 静态文本控件
Control CancelButton
运行结果如图9-12所示。
;2. 输入文本控件
语法：
Control EditText
[ Position x , y ]
[ Width宽度 ] [ Height高度]
[ ID控件号]
[ Value 初始值]
[ Into变量]
【例9-12】下面是生成一个输入文本控件的代码：
Dialog
Control EditText
; Control OkButton
Control CancelButton
文档评论（0）