作者：蔡怀周    教学教研来源：本站原创    点击数：    更新时间：2007-12-12

---- 工具条在Windows应用系统中使用很广泛，在VFP中也使用了很多工具条，如常用工具栏、表单控件、报表控件等。在VFP应用系统中有两种实现工具条使用的方法。其一，如果你不脱离VFP系统环境（应用程序扩展名为APP） ，可通过定制工具栏或“object. show” 指令，来使用VFP系统提供的各种工具栏。其二，当你把应用程序编译成可执行程序（EXE） 后，上述方法和命令会失效，因此需要通过程序来实现工具条的使用。下面是本人制作和显示一常用工具栏的过程。

---- (一)、 建立类库

1. 使用类设计器或“Create class"命令创建一个新类。设置类名为“常用工具栏”，派生于“Toolbar”，取类库名为Appclass。
   
2. 从表单控件工具栏添加各命令按钮到程序窗口，中间可用分隔符按钮分开。
   
3. 设置各命令按钮相应的Picture（图形）及ToolTipText（提示）属性。
   
4. 设置各命令按钮被触发的事件程序：

 [新建]Click Event: create
[打开] Click Event: use getfile("dbf")
[保存] Click Event: 略
[打印] Click Event: 略
[打印预览] Click Event: 略
[剪切] Click Event: sys(1500,"—med—cut","—medit")
[复制] Click Event: sys(1500,"—med—copy","—medit")
[粘贴] Click Event: sys(1500,"—med—paste","—medit")
[撤消[Click Event: sys(1500,"—med—undo","—medit")
[重做] Click Event: sys(1500,"—med—redo","—medit")
[帮助] Click Event: sys(1500,"—mst—help","—msystem")

---- (二)、 显示工具条

---- 在主程序或选单常规选项内添加如下程序：

set classlib to appclass
toolbars = CREATEOBJECT(′appclass.常用工具栏′)
toolbars.show
toolbars.dock(0)

---- 在应用中有时为了使窗口显示更多的内容，需关闭或隐藏工具栏，这时可通过指令 [Object.Show]、[Object.hide]来显示和隐藏（可在选单栏通过程序控制）。同时工具栏可以浮动在窗口中，也可以停放在应用系统主窗口的上部、下部或两边。停放工具栏位置命令是：ToolBar.Dock[nLocation[,X,Y]]。根据nLocation参数确定工具栏位置，其中[－ 1]为不停放工具栏（浮动）；[0]在主窗口的顶部停放工具栏；[1]在主窗口的左边停放工具栏；[2]在主窗口的右边停放工具栏；[3]在主窗口的底部停放工具栏；X, Y指定工具栏停放位置的水平坐标和垂直坐标。

---- 设计图如图所示(供参考)。(见T01.jpg)

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页