首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

电脑小白一个vf的调用菜单的有关问题~

2012-02-26 
电脑小白求助一个vf的调用菜单的问题~~~!! 要命的期末作业啊啊啊哭死了亚历山大啊...明明已经把顶层表单

电脑小白求助一个vf的调用菜单的问题~~~!!
= =要命的期末作业啊啊啊哭死了亚历山大啊...

明明已经把顶层表单(只有一个)设置成2了,可是运行的时候还是调不出菜单,还是老是跳出提示框:”只能从顶层表单调用该菜单,请确认您表单的ShowWindow 属性已设为2。阅读此菜单mpr文件的头部分,可以获得详细信息”。><已经试过好多次了啊,包括全部表单改为2和只有一个表单设置为2,可是还是不行啊啊啊啊

菜单属性也勾选了“顶层表单”的选项!!

难道要设置一个空表单作为主表单?但是我明明是按照教科书上设置的....

我按照书上的在 系统登录.scx表单里,把 command“确定”的click代码设置为:
前面都是密码错误什么的
最后就是  
else
  use in tmp
  do mnus\main.mpr
  thisform.release
endif

可是运行的时候却出问题了...呜呜呜= =12号就要交作业了.... 

PS:把 thisform.release 去掉也不行= =
  改成 do mnus\main.mpr with this,.t. 也不行..

痛哭流涕求达人!!!


[解决办法]
你在当前运行表单的init事件加入do \Menus\main.mpr with this,.t.
[解决办法]

SQL code
如何建立一个带有菜单的顶层表单1、建一个顶层表单(表单的ShowWindow为2)作为主表单,在此表单的Init事件中:do 菜单名.mpr With This,.T.(此表单即为菜单所在的表单)2、建一个菜单,要把菜单的<常规选项>中<顶层表单>和<替换>选中。操作如下:打开你的菜单,点击VFP菜单的“显示”(View)->“常规选项”(General Options)->选中“顶层表单”(Top-Level Form),位置(Location)设置成“替换”(Replace)点击VFP菜单中的“菜单”(Menu)->“生成”(Generate)->出现窗口后,点击“生成”(Generate)。3、其它子表单的ShowWindow为1 (即“在顶层表单中”),并且WindowsType的值为1(即模式表单)。4、建一个程序(prg)为项目的主文件。在这个程序中调用一个主表单,Prg的内容参考如下:    Close Databases All    _Screen.Visible=.F.    Set Date To YMD    Set Century On    Set Hours To 24    Set Safe Off    Set Talk Off    Set Sysmenu To    Set Exclusive On    Set Event On    ...........    Do Form 表单A  &&表单A为你的主表单名    Read Events    ...........5、这样当执行程序时,菜单和主表单为活动的,当执行一个子表单时,菜单为不可选,即不活动。    (VFP6不能通过此方法来让菜单为不活动,VFP6可以设置菜单中“跳过(Skip For)”再结合变量即可实现,    跳过设置方法:在菜单设计窗口,点击最后面选项下的小按钮,弹出选项对话框,其中有一项“跳过(Skip For)”的选项,如果“跳过(Skip For)”表达式的值是.T.,则菜单不可用。这个表达式可以是个全局变量或全局数组。)    跳过方法:    禁用菜单:    Set Skip Of Menu 你的菜单名 .T.    恢复菜单的使用:    Set Skip Of Menu 你的菜单名 .F.    详情请参考VFP自带帮助中:    Set Skip Of 命令 

热点排行