工程科技MapBasic编程基础.ppt

1.4.5 布局窗口 语法： Layout [ Position ( x , y ) [ Units 纸面单位 ] ] [Width 窗口宽度 [ Units 纸面单位 ] ] [ Height 窗口高度 [ Units 纸面单位 ] ] [ { Min 或 Max } ] 【例 1-34 】例如下面的例子选择布局窗口 中所有的对象。 Select * From Layout1 【例 1-35 】下面的例子创建一个布局窗口。 Layout Position (0, 0) Width 2 Height 4 运行结果如图 1-25 所示。 图 1-25 布局窗口 1.4.6 信息窗口 【例 1-36 】下面的例子创建一个信息窗口。 Include ?灡慂楳?敤屦 Open Table 坜牯摬 Interactive Select Country ， Capital,Inflat_Rate+0 ?普慬楴湯 From World Into World_Query Set Window Info Title Country 慄慴 Table World_Query Rec 1 Font MakeFont(Arial,1,10,BLACK,WHITE) Width 3 Units 楜屮 Height 1.2 Units 楜屮 Position (2.5,1.5) Units 楜屮 Front 1.4.7 消息窗口 语法： Print 消息 在窗口信息中实现换 行，可以用下面的语句： 图 1-26 消息窗口的换行 Print Map 慌敹獲尺 + Chr$(10) + World, 慃楰慴獬 运行结果如图 1-26 所示。 图 1-27 设置消息的字体及颜色 【例 1-37 】下面的例子创建一个消息窗口，设置 了大小和字体样式。 Include ?偁????屆 needed for color name BLUE Open Window Message open Message window Set Window Message Font (Helv, 1, 10, BLUE) Helvetica bold... Position (0.25, 0.25) place in upper left Width 3.0 make window 尳 wide Height 1.0 make window 就 high Print MapBasic Dispatcher now on 楬敮 运行结果如图 1-27 所示。 1.5 工具条 图 1-28 标准工具条 图 1-21 绘图工具条 图 1-30 主工具条 1.5.1 工具条的类型 1. PushButtons 按钮 这种叫做触发式按钮。当用户按下 ToolButtons 按钮 后，按钮立即复位，并调用相应的处理程序。 2. ToggleButtons 按钮 这种按钮叫做开关式按钮。当用户单击 ToggleButtons 按钮时，这种按钮会在按下与没按下之 间切换。 3. ToolButton 按钮 这种称为工具按钮。当用户单击这种按钮时，它处 于活动状态，直到用户单击了另外的按钮。 1.5.2 工具条的操作 1. 创建工具条 创建一个新工具条的语句为： Create ButtonPad 2. 激活工具条 创建一个工具条，并不能立刻显示在窗口中， 需要使用下面的语句激活： Alter ButtonPad 3. 激活按钮 4. 按钮的返回值 1.5.3 创建触发式型按钮 1.5.4 创建工具按钮 1.5.5 向“主”工具条添加一个按钮 1.5.6 选择按钮图表 【例 1-41 】下面的语句定义了一个按钮，并为按钮选择了 一个图标，图标代码定义为 MI_ICON_INFO ： Alter ButtonPad 主 Add Separator Add PushButton Icon MI_ICON_INFO Calling procedure_name 【例 1-15 】下面是生成一个文本选取控件的代码： Dialog Control FontPicker Position 140,42 Control OkButton Control CancelButton 运行结果如图 1-16 所示。 图 1-16 文本选取控件 6.ListBox 列表框控件 语法： Control ListBox [ Position x , y ] [ Width 宽度 ] [ Height 高 度 ] [ ID 控件号 ] [ Calling 过程 ] [ Title { 字符串表达式 或 From Variable 字符 串变量 }] [ Value 初始选