华东师范大学gis arcinfo 地理信息系统工程 课件及_实验指导.ppt

四、 对话框变量传递 Into s_LandType ReadControlValue()函数 If CommandInfo(CMD_INFO_DLG_OK) Then Call subSeach(s_LandType) End If Control OkButton Title “查找” Position 30,30 Calling OkHandler * Sub SearchDialog Dim s_LandType As String … Dialog Title “根据地块类型查找” Control StaticText Title “请输入地块类型：” Control EditText Into s_LandType ID 12 Control OkButton Title “查找” Position 30,30 Calling OkHandler Control CancelButton Title “取消” Position 90,30 * If CommandInfo(CMD_INFO_DLG_OK) Then Call subSeach(s_LandType) End If End Sub Sub OkHandler If ReadControlValue(12)=”” Then Note “请在编辑文本框中输入一地块类型！” Dialog Preserve End If End Sub * 第五节 MapBasic 按钮条设计 一、 按钮条类型 二、 创建按钮条 三、 改动按钮条 * 一、按钮条类型 触发式按钮（PushButton），当用户单击一个触发式按钮时，按钮会弹回来，执行相应的处理程序。例如：图层控制按钮。 开关式按钮（ToggleButton），当用户单开关式按钮时，按钮变成两种状态的一种，按下或没按下。例如：图例窗口显示/隐藏按钮。 工具按钮（ToolButton），当用户单击工具按钮时，一个工具将处于激活状态，并将始终保持这种状态直到用户选择了另外一个工具。例如：放大工具处于激活状态，并且用户在地图窗口、浏览窗口或布局窗口单击时，才会作出响应。 * 二、 创建按钮条 Create ButtonPad Utils As PushButton HelpMsg “显示查询对话框” Calling button_sub_proc Icon MI_ICON_ZOOM_QUESTION ToolButton HelpMsg “新画一条路线” Calling tool_sub_proc Icon MI_ICON_CROSSHAIR DrawMode DM_CUSTOM_LINE * ToggleButton HelpMsg “切换开关状态” Calling toggle_prox_check Icon MI_ICON_RULER Check Title “用户工具” Width 3 Show * * 三、 改动按钮条 1. 删除按钮条上按钮 Alter ButtonPad ID 4 Remove 101 Alter ButtonPad ID 4 Remove 102 2. 添加按钮 Alter ButtonPad ID 2 Add ToolButton Calling DrawDoubleLine Icon Cursor DrawMode DM_CUSTOM_LINE HelpMessege 画一条双线\n双线 * 3. 隐藏按钮条 Alter ButtonPad ID 2 Hide 4. 重新显示按钮条 Alter ButtonPad ID 2 Show * 第六节 窗口设置 Show or hide a window: Open Window, Close Window, Set Window Open a new window: Map, Browse, Graph, Layout, Create Redistricter,