菜单下面的工具栏或者命令按钮怎么做呀

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

                           

[ 本帖最后由 sdta 于 2012-3-22 23:34 编辑 ]

添加一个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

收到的鲜花

• TonyDeng 于 2012-03-23 16:46 送鲜花  2朵   附言：欢迎新同学！

没有解决，要解决了我就不会发这里了

OLE里面没有Microsoft Toolbar Control version 6.0，在选项里看见有的，但不知道怎么添加呀，能否指导一下

这里有个实例，自己研究一下吧
点中前面的方框，使之变为X

[ 本帖最后由 bccn201203 于 2012-3-26 10:30 编辑 ]

是总管大人啊

系统帮助我没有看懂。本论坛就有分享制作工具栏的帖子，我照帖子做出来了。挺简单。
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)


[ 本帖最后由 muyubo 于 2012-3-26 16:49 编辑 ]

报上名来

给顶层表单添加一个自定义属性TopToolBar；
--------这个怎么做呀？