制作菜单栏..ppt

第9章MapBasic编程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.1制作菜单栏9.1.1制作全新的菜单栏【例9-1】制作一个全新菜单栏，包含“File”，“Edit”，“Query”，“Map”，“Browse”菜单。
代码如下：
CreateMenuBarAs
"File","Edit","Query","Map","Browse"

图9-1全新菜单栏

9.1.2修改已有菜单栏代码如下：
AlterMenuBarRemoveID6,ID7

图9-2删除菜单2.增加菜单
语法：
AlterMenuBarAdd
{菜单名或ID菜单号}
[,{菜单名或ID菜单号}...]
【例9-3】在原有菜单栏的基础上，增加“DataEntry”菜单。
代码如下：
AlterMenuBarAdd"DataEntry"

图9-3增加菜单

图9-4在菜单栏中间增加菜单3.恢复菜单
语法：
CreateMenuBarAsDefault
若放弃对菜单栏的修改，恢复原有菜单样式，可以运行以下代码：
CreateMenuBarAsDefault
9.2菜单制作【例9-4】制作全新菜单“DataEntry”。
代码如下：
CreateMenu"DataEntry"As'制作“DataEntry”菜单
"Add",'菜单有三个菜单项
"Edit",
"Delete"
AlterMenuBarAdd"DataEntry"'将菜单添加到菜单栏中

图9-5制作全新菜单
9.2.2更改原有菜单

图9-6更改原有菜单9.3对话框制作2.询问对话框
语法：
Ask(提示信息,确定文本,取消文本)
【例9-7】下面的例子用生成一个简单询问对话框。
DimmoreAsLogical
more=Ask("Doyouwantto
continue?","OK","Stop")
运行结果如图9-8所示。图9-8询问对话框

3.选择文件对话框
语法：
FileOpenDlg(路径,文件名,文件类型,标题)
【例9-8】下面的程序用FileOpenDlg()函数显示提示用户打开一个文件的对话框。
Dims_filenameAsString
s_filename=
FileOpenDlg("","","TAB","OpenTable")
运行结果如图9-9所示。

图9-9选择文件对话框9.3.2自定义对话框制作

图9-10自定义对话框

图9-11指定位置和大小9.3.3控件的位置和大小Title"请输省份名:"
ControlEditText

ControlOkButton
Width20
Height12
Title"确定"
Position60,32

ControlCancelButton
Width20
Height12
Title"取消"
Position100,32
运行结果如图9-11所示。

9.3.4控件类型【例9-11】下面是生成一个静态文本控件的代码：
Dialog
ControlStaticText
Title"Entermaptitle:"
Position5,10
ControlOkButton图9-12静态文本控件
ControlCancelButton
运行结果如图9-12所示。
2.输入文本控件
语法：
ControlEditText
[Positionx,y]
[Width宽度][Height高度]
[ID控件号]
[Value初始值]
[Into变量]
【例9-12】下面是生成一个输入文本控件的代码：
Dialog
ControlEditText
ControlOkButton
ControlCancelButton
运行结果如图9-13所示。

图9-13输入文本控件3.组合框控件
语法：
ControlGroupBox
[Positionx,y]
[Width宽度][Height高度]
[Title标题]
【例9-13】下面是生成一个组合框的代码：
Dialog
ControlGroupBox
Title"LevelofDetail"Position5,30
Height40Width70
ControlOkButton
ControlCancelButton
运行结果如图9-14所示。
4.单选项组合控件
语法：
ControlRadioGroup图9-14组合框控