* 导航按钮是否可用 DO CASE CASE BETWEEN(RECCOUNT(),0,1) && 记录数为0或1 ThisForm.Command1.Enabled = .F. ThisForm.Command2.Enabled = .F. ThisForm.Command3.Enabled = .F. ThisForm.Command4.Enabled = .F. CASE RECCOUNT()>1 AND RECNO()=1 && 在第一条记录...

1.在类库MyVcx中建立一个工具栏类MyToolBar，将工具栏的ShowWindow属性设置为1——最上层表单； 2.给顶层表单添加一个自定义属性TopToolBar； 3.编辑顶层表单的Activate event,输入以下代码： This.TopToolBar=NewObject("MyToolBar","MyVcx") This.TopToolBar.show() This.TopToolBar.dock(0) 现在，你就可以享受顶层表单的工具栏了！

程序只有一个表单，但是在主程序中加入_screen.visible=.F.编译运行后，程序得不到焦点，必需用鼠标点击后，才能得到焦点，如何解决？ 在Form1.ActiVate事件中加入 DECLARE Long SetActiveWindow IN WIN32API Long hWnd SetActiveWindow( thisform.HWnd ) 必须在有窗口句柄属性的VFP版本中才能使用该代码