| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1964 人关注过本帖
标题:用VFP制作了一个和记事本,求大佬帮忙
只看楼主 加入收藏
TiAmo南浔
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2020-12-21
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:7 
用VFP制作了一个和记事本,求大佬帮忙
制作了个记事本,运行弹出以下内容:

该菜单只可从顶层表单中调用。确保表单的 ShowWindow 属性被设置为 2。更详细的资料,请阅读菜单 MPR 文件的头部章节。

属性设置过还是这样,其次在记事本的菜单下,有代买错误,求大佬帮忙。

记事本.zip (66.04 KB)
搜索更多相关主题的帖子: 制作 菜单 记事本 属性 VFP 
2020-12-22 19:44
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:7 
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2020-12-22 21:23
TiAmo南浔
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2020-12-21
收藏
得分:0 
回复 2楼 sdta
刚试了一下,这样更改的话,菜单栏就不见了
2020-12-23 15:20
TiAmo南浔
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2020-12-21
收藏
得分:0 
试了一下菜单里的各项,会弹出找不到变量'FFLIE'
2020-12-23 15:25
TiAmo南浔
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2020-12-21
收藏
得分:0 
TFont=GETFONT( )
TfontName=alltrim(LEFT(TFont,AT(',',Tfont,1)-1))
Thisform.Edit1.FontName=TFontName
nStartP=AT(',',Tfont,1)+1
nEndP=AT(',',TFont,2)-1-AT(',',Tfont,1)
TFontSize=INT(VAL(ALLTRIM(SUBSTR(TFont,NstartP,nEndP))))
Thisform.edit1.FontSize=TFontSize
TFontStyle=ALLTRIM(SUBSTR(TFont,AT(',',TFont,2)+1))
DO CASE
CASE TFontStyle="B"
Thisform.Edit1.FontBold=.T.
Thisform.Edit1.Fontitalic=.F.
CASE TFontStyle="I"
Thisform.Edit1.FontBold=.F.
Thisform.Edit1.Fontitalic=.T.
CASE TFontStyle="BI"
Thisform.Edit1.FontBold=.T.
Thisform.Edit1.Fontitalic=.t.
OTHERWISE
Thisform.Edit1.FontBold=.F.
Thisform.Edit1.FontItalic=.F.
ENDCASe
2020-12-23 15:43
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2020-12-23 18:58
TiAmo南浔
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2020-12-21
收藏
得分:0 
回复 6楼 sdta
vfp记事本工程文件.zip (95.69 KB)
2020-12-24 16:49
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:7 
回复 7楼 TiAmo南浔
saveasfile()修改两句试试:

fFile=PUTFILE("文件名","*.txt","文本文档(*.txt)")
* fp=FCREATE(fFlie,0)
fp=FCREATE(fFile,0)
* =feriteE(fp,Thisform.Edit1.Value)
=fwrite(fp,Thisform.Edit1.Value)
=fclose(fp)
Thisform.Caption=fFile
Thisform.Edit1.SetFocus
Thisform.Refresh
2020-12-25 20:54
快速回复:用VFP制作了一个和记事本,求大佬帮忙
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017708 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved