以下是引用sdta在2012-3-22 23:24:50的发言：

梅子论坛不是解决了你的问题了吗
VFP9.0帮助文件中，看下图，有详细的方法，慢慢看

                           

以下是引用hrer在2012-3-23 16:28:49的发言：

添加一个XP系统自带的Toolbar控件，该控件可以对每个按钮进行代码编写。再配合ImageListCtrl控件实现自定义命令按钮上的图标。

具体步骤，先建个主表单，在“表单控件”中点OLE“ActiveX”按钮，在表单中添加“Microsoft Toolbar Control version 6.0”,在表单中加入的控件上，点右键，再点“Toolbar Properpies”，再弹出的界面点“buttons”,再点“insert button”增加工具栏或者命令按钮，输入按钮名称，KEY（唯一标识按钮的键值），其他自己琢磨吧。建好按钮后，在Toolbar控件bottonclick方法中写入代码：
如：
DO CASE
    CASE Button.Key="bt_Ctrl_Z" &&撤消
        KEYBOARD '{CTRL+Z}'
   CASE Button.Key="bt_Ctrl_R" &&重做
        KEYBOARD '{CTRL+R}'
   CASE Button.Key="bt_Ctrl_X" &&剪切
        KEYBOARD '{CTRL+X}'
   CASE Button.Key="bt_Ctrl_C" &&复制
        KEYBOARD '{CTRL+C}'
   CASE Button.Key="bt_Ctrl_V" &&粘贴
        KEYBOARD '{CTRL+V}'
   CASE Button.Key="bt_Refresh" &&刷新
        THISFORM.Refresh
   CASE Button.Key="bt_rckj"
        Do Form  "&gcFormsPath"+"rckj.scx"
   CASE Button.Key="bt_exit" &&退出
        QUIT
        *MainForm.QueryUnload()
ENDCASE

以下是引用lygcw9603在2012-3-26 11:32:29的发言：

是总管大人啊

以下是引用muyubo在2012-3-26 12:53:00的发言：

系统帮助我没有看懂。本论坛就有分享制作工具栏的帖子，我照帖子做出来了。挺简单。
1、新建类——输入类名mytoolbar,派生于：toolbar,存储于：桌面，存储在中输入：mytoolbar,点击确定后，在工具条中加入三个command按钮。将工具栏的ShowWindow属性设置为1——最上层表单；按ctrl+W 保存
2、做表单form1,showwindow=2

3.给顶层表单添加一个自定义属性TopToolBar；
5.编辑顶层表单的Activate event,输入以下代码：

This.TopToolBar=NewObject("MyToolBar","toolbar")  &&toolbar 是你的类库名，MyToolBar 是你的类名

This.TopToolBar.show()

This.TopToolBar.dock(0)