第09章.MapBasic编程课件.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”菜单。 代码如下： 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. 输入文本控件