给顶层表单添加工具栏

1.在类库MyVcx中建立一个工具栏类MyToolBar,将工具栏的ShowWindow属性设置为1——最上层表单; 2.给顶层表单添加一个自定义属性TopToolBar; 3.编辑顶层表单的Activate event,输入以下代码: This.TopToolBar=NewObject("MyToolBar","MyVcx") This.TopToolBar.show() This.TopToolBar.dock(0) 现在,你就可以享受顶层表单的工具栏了!
2016-05-18 08:38 | 阅读 12902 次 | 评论 0 条

表单运行后得不到焦点的解决方法

程序只有一个表单,但是在主程序中加入_screen.visible=.F.编译运行后,程序得不到焦点,必需用鼠标点击后,才能得到焦点,如何解决? 在Form1.ActiVate事件中加入 DECLARE Long SetActiveWindow IN WIN32API Long hWnd SetActiveWindow( thisform.HWnd ) 必须在有窗口句柄属性的VFP版本中才能使用该代码
2015-04-07 18:49 | 阅读 1372 次 | 评论 0 条
浏览232073次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...