关于MapBasic编程基础.ppt

MapBasic编程 1.1 制作菜单栏 菜单栏是MapInfo工作区域顶部的水平条，初始状态下的MapInfo的菜单栏包括“File”，“Edit”，“Objects”，“Query”等。 1.1.1 制作全新的菜单栏 语法： Create Menu Bar As {菜单名 或 ID 菜单号} [,{菜单名 或 ID 菜单号}...] 【例1-1】制作一个全新菜单栏，包含“File”，“Edit”，“Query”，“Map”，“Browse”菜单。 代码如下： Create Menu Bar As "File","Edit","Query","Map","Browse" 图1-1 全新菜单栏 1.1.2 修改已有菜单栏 1. 删除菜单 语法： Alter Menu Bar Remove {菜单名 或 ID 菜单号} [,{菜单名 或 ID 菜单号}...] 【例1-2】在原有菜单栏的基础上，删除“Windows”，“Help”菜单。 代码如下： Alter Menu Bar Remove ID 6, ID 7 图1-2 删除菜单 2. 增加菜单 语法： Alter Menu Bar Add ? {菜单名 或 ID 菜单号} ? [,{菜单名 或 ID 菜单号}...] 【例1-3】在原有菜单栏的基础上，增加“DataEntry”菜单。 代码如下： Alter Menu Bar Add "DataEntry" 图1-3 增加菜单 图1-4 在菜单栏中间增加菜单 3. 恢复菜单 语法： Create Menu Bar As Default 若放弃对菜单栏的修改，恢复原有菜单样式，可以运行以下代码： Create Menu Bar As Default 1.2 菜单制作 1.2.1 全新菜单的制作 语法： Create Menu 新菜单名 [ID 菜单号]As ? 菜单项1 [ ID菜单号] { Calling handler | As 菜单名} ? [,菜单项2...] 【例1-4】制作全新菜单“DataEntry”。 代码如下： Create Menu "DataEntry" As '制作“DataEntry”菜单 "Add" , '菜单有三个菜单项 "Edit" , "Delete" Alter Menu Bar Add "DataEntry" '将菜单添加到菜单栏中 图1-5 制作全新菜单 1.2.2 更改原有菜单 语法： Create Menu 新菜单名 [ID 菜单号]As 菜单项1 [ ID菜单项] { Calling handler | As 菜单名} [,菜单项2...] 【例1-5】更改原有菜单“File”的内容。 代码如下： Create Menu "&File" As "&New" , "&Open" , "&Close" , "&Save" , "&Print" , "&Exit" 图1-6 更改原有菜单 1.3 对话框制作 1.3.1 标准对话框 1. 消息对话框 语法： Note 消息 图1-7 消息对话框 【例1-6】例如显示一个“查询成功！”的消息对话框。 代码如下： Note "查询成功！" 2. 询问对话框 语法： Ask (提示信息,确定文本,取消文本) 【例1-7】下面的例子用生成一个简单询问对话框。 Dim more As Logical more = Ask("Do you want to continue?", "OK", "Stop") 运行结果如图1-8所示。 图1-8 询问对话框 3. 选择文件对话框 语法： FileOpenDlg(路径,文件名,文件类型,标题) 【例1-8】下面的程序用FileOpenDlg()函数显示提示用户打开一个文件的对话框。 Dim s_filename As String s_filename= FileOpe