给顶层表单添加工具栏

表单(Form)问题 | 2016-05-18 08:38:10 | 阅读 12904 次 | 评论(0)
1.在类库MyVcx中建立一个工具栏类MyToolBar,将工具栏的ShowWindow属性设置为1——最上层表单;

2.给顶层表单添加一个自定义属性TopToolBar;

3.编辑顶层表单的Activate event,输入以下代码:

This.TopToolBar=NewObject("MyToolBar","MyVcx")

This.TopToolBar.show()

This.TopToolBar.dock(0)

现在,你就可以享受顶层表单的工具栏了!
文章评论,共0条
游客请输入验证码
浏览232291次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...