~~~~~~~~这位¥¥MM¥¥怎么就这么害羞哦~~~~~~~~~~~

WYC2300 2003-12-06 11:00:11
哪位兄弟也是要过VFP省二级的哦 `
我在K那本教程知道的时候就遇到一块石头哦 `
就是模拟1操作题第五题哦如下:

用菜单设计器建立菜单MENUFF。MNX,菜单系统具有“文件操作”,“文件编辑”,“系统帮助”三个主菜单项,其中“文件操作”菜单项又包含“打开”,“保存”,“关闭”三个子菜单;要求当鼠标指向“关闭”菜单项时,在下面的状态栏上可看到该菜单项的详细说明信息“关闭VFP系统”。

就是后面的提示信息它一直帮兄弟看哦`
哪位兄弟帮我把它叫出来哦`
谢谢哦``

还有那个“打开”,“保存”的代码要怎么写跟简单哦 ```
...全文
36 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
落单枫叶 2003-12-18
  • 打赏
  • 举报
回复
选项-信息,填入关闭VFP系统
lfangxiao 2003-12-18
  • 打赏
  • 举报
回复
在建立菜单中选择最后的菜单项,在菜单项中的信息栏中输入你想要的文字就可以
dfwxj 2003-12-18
  • 打赏
  • 举报
回复
加message即可
blackfox0322 2003-12-18
  • 打赏
  • 举报
回复
表单中有一EDITBOX控件名为editfile
打开按钮(CMDLOAD):
thisform.lockscreen=.t.
CREAT cursor txtfile (filename c(40),mem m) &&创建临时表
APPEND blank
REPLACE txtfile.filename with getfile("TXT,prg")
IF EMPTY(txtfile.filename)
RETURN
ENDIF
APPEND MEMO mem from (txtfile.filename) overwrite
thisform.editfile.readonly=.f.
thisform.editfile.controlsource="txtfile.mem"
this.enabled=.f.
thisform.cmdsave.enabled=.t.
thisform.refresh
thisform.lockscreen=.f.
------------------------------
保存按钮(CMDSAVE)
IF messagebox("是否保存所作的修改?",4+48,"保存文件")=6
COPY memo txtfile.mem to (txtfile.filename)
REPL txtfile.mem with " "
thisform.editfile.readonly=.t.
thisform.cmdsave.enabled=.f.
ThisForm.cmdload.enabled=.t.
thisform.refresh
ELSE
REPL txtfile.mem with " "
thisform.editfile.readonly=.t.
thisform.cmdsave.enabled=.f.
ThisForm.cmdload.enabled=.t.
thisform.refresh
ENDIF

-------------------------------
你参考一下,如果是在菜单中上面有你所要的代码

2,727

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧