MapBasic建立系统教程Word格式文档下载.docx

1、但MapBasic同样支持你创建一个全新的菜单系统，本程序就是采用了这种方式。当运行该演示程序时，屏幕上将出现如图11.1所示的用户界面。程序除了显示一个用户菜单及用户按钮盒外，还打开了一个地图窗口，在地图窗口中打开了几个MapInfo表。其中菜单栏在屏幕的最上方，它包括：系统菜单、演示菜单、对象、旅游查询、旅游统计图及帮助。图11-1 演示程序的显示情况 系统菜申它由“打开表”、“关闭表”、“全部关闭”、“世界地图”和“退出”五个菜单项组成。主要完成对MapInfo表的打开与关闭操作，并同时将它显示在一个地图窗口中。其中“打开”是让用户选择并打开一个表，而“世界地图”是直接由MapBasic

2、打开一个事先选定的表（World.tab）；“关闭”是让用户选择一个当前打开的表把它关闭，并保存相应工作空间，而“全部关闭”是将当前矽甫打开的表全部关闭；“退出”是退出该演示程序恢复到原来的MapInfo界面。演示菜单它包含一个“建介”了菜单。该子菜单用于生成一个用户菜单、按钮盒或对话柜。对应于此英申的MapBaslc功能模块就是生成用户界面的最典型方法。菜单项“工具栏”实质上是一个对话框，只是该对话框只包含四个复选框：主、常用、绘图、用户。当选中了其中的一个或多个，相应的按钮盒就会在屏幕亡显示，否则就会隐藏按钮盒。这里按钮盒“主”、“常用”和“绘图”是MapInfo系统自带的，而“用户”按钮

3、盒则是由本演示程序自制的。另外，你还会看到三个呈现灰色的菜单项“设置更新口令”、“数据备份”和“数据恢复”，由于这些功能在本程序中还没有全部制作进去，所以这里把这些菜单项设置为不可选。对象MapBasic可以创建、修改对象，而且可以把一个对象赋给一个表的对象列。该菜单包括一个“创建对象”子菜单和两个菜单项“折线转换成区域”、“区域转换成折线”。其中两个菜单项是呈灰色的，表示它们不可选择。而“创建对象”子菜单是用于创建MapInfo的图形对象，当用户选择了该子菜单下的一个菜单项时，程序首先将建立一个MapInfo表，并将该表地图化，接着为它追加一条记录，并把创建的对象赋值给该记录的对象列。最后，

4、程序将在一个地图窗口的一个可编辑图居中显示该对象。旅游查询该菜申的所有菜单项都是不可选的。用户可以根据自己的要求编写相应的程序以完成该项功能。旅游统计图这个菜单的功能是将某些MapInfo表中的信息以统计图的形式显示在屏幕上，使得观察更加直观方便，当然你可以通过设置来指定统计图的格式。帮助该菜单提供了MapInfo主要功能的在线查询，通过Internet访问MapInfo 站点，以及有关本演水程序的一些信息。 2按钮盒 按钮盒是用户界面的重要组成部分。它以工具箱的形式为用户提供某些常用的功能。MgpBasic中的按钮盒中的按钮有三种类型：工具按钮、触发式按钮和按压式按钮（或称开关式按钮）。一般

5、地，当选中一个工具按钮时，应用程序并不立即调用相应的处理程序，而只是作好了一些必要的设置（如改变光标的形状），只有在选中该按钮后，继续在相应的窗口中进行单击或拖拉时应用程序才调用相应处理程序，如MapInfo“绘图”按钮盒中的“画线”、“画椭圆”等按钮就属此类。触发式按钮是在选中该按钮时就立即调用处理程序，而按压式按钮是在“按压”或“恢复”该按钮时都调用处理程序。用户可以根据各自的需要选择合适的按钮类型。 本演示程序有两处涉及按钮盒的创建，一个是在程序开始运行时就出现在屏幕上的“用户”按钮盒。这里选择了一些对地图窗口进行操作的常用工具，如放大、缩小视图等。该按钮盒是漂浮在整个桌面上的。另外一个

6、按钮盒是通过选择演示菜单1建立按钮盒来创建的，该按钮盒是固定在窗口顶部，其中包含三个按钮，它们分别属于三种不同的类型。 3对话框 该程序创建的一个最典型的对话框是通过选择演示菜申1建立3对话框建立的。它包括以下对话框控件：StaticText、EditText、GroupBox、PopupMenu、ListBox、RadioGroup、SymbolPicker、CheckBox、OkButton和CancelButton。另外，“系统菜单”中的“退出”菜单项、“演示菜单”中的“工具栏”菜单项、“帮助”菜单中的“关于”菜单项都是对话框的例子。 4窗口窗口也是用户界面的重要组成部分，Maplnfo

7、包括多种类型的窗口，如地图窗口、浏览窗口、统汁窗口、布局窗口以及普通的信息窗口等。本演示程序一执行就先打开一个地图窗口，并将窗口标题设置为“一个用户界面程序的演示示例”，另外，还可以用系统菜单打开或系统菜单世界地图打开一个地图窗口。通过选择旅游统计图旅游人口可以打开一个统计图窗口。至于其他类型的统计图，本程序没有涉及，用户可以技类似的方法自己建立。11.2.2 源程序及其注解 1. 源程序清单 一个用户界面演示程序：Ye_Demo.mb 制作日期：1998.7 目的：快速掌握MapBasic程序开发 内容：生成用户界面的MapBasic程序 主要语句： CreateMenu菜单名as 生成菜单

8、 子菜单名calling 进程 Create ButtonPad按钮盒名 As 生成按钮盒 按钮类型PushButton、ToolButton、Togg1eButton Dialog 生成对话框 Title对话框标题 控制类型 *标准定义文件*Include “mapbasic.def”Include “icons.def”Include “menu.def” *进程声明*Declare Sub MainDeclare Sub Ye_denmDeclare Sub Ye_ButtonPadDeclare Sub Ye_MenuDeclare Sub Ye_ToolDeclare Sub Ye_

9、graphDeclare Sub Ye_DialogDeclare Sub Menu_TestDeclare Sub Button_TestDeclare Sub Ye_aboutDeclare Sub Ye_ExitDeclare Sub Ye_Button1Declare Sub Ye_Buttonn2Declare Sub Close_allDeclare Sub Close_someDeclare Sub Open_FileDeclare Sub Open_worldDeclare Sub Make_ellipse * 建立主菜单SUB Main 0nerror goto sub_er

10、r Create Menu “风景点” As “按地区分” Calling Ye_demo, “按类型分” Calling Ye_demo, “按最佳旅游季节分” Calling Ye_demo, “（-“, “风景点向导” Calling Ye_demo CREATE MENU “建立” As “用户菜单 “ Calling Ye_menu “按钮盒 tCtrl+B/WB/Mb/XCtrl+b” Calling Ye_Buttonpad “对话框 tCtrl+D/WD/Md/XCtrl+d” Calling Ye_Dialog Create Menu “创建对象” As “点” Callin

11、g Ye_demo, “直线” Calling Ye_demo, “椭圆” Calling Mmake_ellipse, “折线” Calling Ye_demo, “矩形” Calling Ye_demo, “圆角矩形” Calling Ye_demo, “圆弧” Calling Ye_demo, “区域” Calling Ye_demo, “文本” Calling Ye_demo, “标签” Calling M_TOOLS_LABELER Create MENU “演示菜单” As * 建立用户主菜单 * “建立” As “建立”, “工具栏.” Calling Ye_Tool, “设置更

12、新口令” Calling Ye_demo, “数据备份” Calling Ye_demo, “数据恢复” Calling Ye_demo Create Menu “系统菜单” As “打开表” ID 111 Calling Open_File, “关闭表” Calling Close_some, “全部关闭” Calling Close_all, “世界地图” ID ll2 Calling Open_world, “退出” Calling Ye_exit Create Menu “旅游查询” As “风景点” As “风景点”, “风土人情” Calling Ye_demo, “路线” Cal

13、ling Ye_demo Create Menu “旅游统计图” As “旅游收入” Calling Ye_graph, “旅游人数” Calling Ye_demo, “旅游淡旺季” Calling Ye_demo Create Menu “帮助” As “主题索引” Calling M_HELP_CONTENTS, “Web页搜索” Calling M_HELP_CONNECT_MIFORUM, “关于” Calling Ye_about Create Menu “对象” As “创建对象” As “创建对象”, “折线转换成区域” Caing Ye_demo, “区域转换成折线” Cal

14、ling Ye_demo Alter Menu Item Ye_demo Disable Create Menu Bar As“系统菜单”,”演示菜单”,”对象”,”旅游查询”,”旅游统计图”,”帮助” * 将所建立的用户菜单加入菜单栏 * Alter BUTTONPAD “绘图” Hide * 将不使用的按钮盒隐藏 * Alter BUTTONPAD “ODBC” HIDE ALTER BUITONPAD “主” HIDE ALTER BUTTONPAD “常用” HIDE MENU BAR SHOW * 显示新菜单栏 * Open Table “景点分布” As 景点分布 Interact

15、ive Open Table “省” As 省 InteractiveOpen Table “市” As 市 Interactive Map From 景点分布， 市， 省 Position（0.0520833, 0.0520833） Units “in”Width 4.125 Units “in” Height 2.36458 Units “in” Set Window FrontWindow（） Max ScrollBars Off Autoscroll On Set Map CoordSys Earth Projection 1,0 Center（119.6263825,29,31248

16、45） Zoom 86.15402206 Units “mi” Preserve Zoom Display Zoom XY Units “degree” Distance Units “mi” Area Units “sq mi” Layer 1 Display Graphic Label Line Arrow Position Right Font（“Arial”,0,12,0） Pen（1,2,0） With name Parallel On Auto Off Overlap Off Duplicates On Offset 2 Visibility On Layer 2 With 市 L

17、ayer 3 With 省 Create ButtonPad “用户” As ToolButton Icon MI_ICON_ARROW Calling M_TOOLS_SELECTOR HelpMsg “Select objects for editingn选择” Icon MI_ICON_ZOOM_IN Calling M_TOOLS_EXPAND HelpMsg “工具按钮n放大” Icon MI_ICON_ZOOM_OUT Calling M_TOOLS_SHRINK HelpMsg “工具按钮n缩小” Icon MI_ICON_ZOOM_QUESTION HelpMsg “工具按钮n

18、问题” Icon MI_ICON_GRABBER Calling M_TOOLS_RECENTER HelpMsg “工具按钮n平移” Icon MI_ICON_INFO Calling M_TOOLS_PNT_QUERY HelpMsg “工具按钮n信息” PushButton Icon MI_ICON_MISC_15 Calling Ye_Button1 HelpMeg “用户开关按钮n按压式” ToggleButton Icon MI_ICON_MAPSYMB_20 Calling Ye_Button2 HelpMsg “用户触发式按钮n触发式” Show Set window Fron

19、tWindow（） title “一个用户界面程序的演示示例” Exit SubSub_err: Note Error$（）End Sub* 建立菜单SUB Ye_Menu Onerror goto sub_err Create menu “新菜单” as “菜单项一” id 3000 Calling Menu_Test,“删除菜单” id 3001 Calling Menu_Test alter menu bar add “新菜单” menu bar shows exit sub sub_err: note Error$（）* 菜单调试 *SUB Menu Test Do Case lnt（

20、CommandInfo（CMD_INFO_MENUITEM） Case 3000 Nots “您已经选用了菜单项一” Case 3001 Note “新菜单将被删除” Alter menu bar remove “新菜单” End Case Menu bar show * 建立按钮盒 SUB Ye_buttonPad Create BUTTONNPAD “用户按钮” As ToolButton 具按钮 Icon MI_ICON_ARROW 图标 Cursor MI_CURSOR_CROSSSHAIR 光标 Calling Button_Test 调用进程 Id 1001 ID号 HelpMsg

21、 “工具按钮n工具按钮” 帮助信息 PUSHBUTTON 佃发式按钮 ICON MI_ICON_HELP Calling Button_Test HelpMsg “触发式按钮n触发式按钮” Id 1002 Icon MI_ICON_MAPSYMB_16 ID 1003 HelpMsg “开关式按钮n开关式按钮” SHOW FIXED * 按钮盒测试SUB Button_Test DO Case Int（CommandInfo（CMD_INFO_TOOLBTN） Case 1001 If numwindows（）=O Then NOTE “工具型技钮盒”+CHR$（10）+”请在地图窗口中使用”

22、 Exit sub Else If WindowInfo（FrontWindow（）, WIN_INFO_TYPE） WIN_MAPPER Then NOTE “工具型按钮盒”+CHR$（10）+”请在地图窗口中使用” else note “当前光标位置”+CHR$（10）+”x：”+str$（CommandInfo（CMD_INFO_X）+ ”y：”+str$（CommandInfo（CMD_INFO_Y） End If Case 1002 Note “触发型按钮盒” Case 1003 Note “按压型按钮盒”Sub Ye_Button1Sub Ye_Button2 * 建立对话框SUB

23、 Ye_dialog Dim filename as String Dim cntrl_val as Integer Dialog Title “一个用户界面演示程序” Control Static Text Title “面板文本” Position 20,5 Control PopupMenu Title “下拉式菜单选项1选项2：” Position 90,5 Control GroupBox Title “群组选择框” Position 10,20 Width 80 Height 40 Control RadioGroup Title “&R单选一; &R单选二” Position 2

24、0,32 Value l Into cntrl_val Control ListBox Title “列表选择框;选项1;选项2；选项3选项4；选项5;选项6” Width 80 height 40 Position l05,25 Title “线型： Position 20,70 Control PenPicker Position 60,70 Width 20 Height 20 Title “编辑文本将存于： Position 10,100 Width 160 Height 40 Control EditText Value “文件名” Into filename Position 20,120 Control CheckBox Title “功能确认框” Position lO,150 Control OkButton Title “确定” Position 50,180 Control Can