用VFP制作了一个和记事本，求大佬帮忙 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 用VFP制作了一个和记事本，求大佬帮忙

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1913 人关注过本帖

标题：用VFP制作了一个和记事本，求大佬帮忙

取消只看楼主加入收藏

TiAmo南浔

等　级：新手上路
帖　子：6
专家分：0
注　册：2020-12-21
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：4

用VFP制作了一个和记事本，求大佬帮忙

制作了个记事本，运行弹出以下内容：

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

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

记事本.zip (66.04 KB)

搜索更多相关主题的帖子: 制作　菜单　记事本　属性　 VFP　

2020-12-22 19:44

TiAmo南浔

等　级：新手上路
帖　子：6
专家分：0
注　册：2020-12-21

第 2 楼

得分:0

回复 2楼 sdta

刚试了一下，这样更改的话，菜单栏就不见了

2020-12-23 15:20

TiAmo南浔

等　级：新手上路
帖　子：6
专家分：0
注　册：2020-12-21

第 3 楼

得分:0

试了一下菜单里的各项，会弹出找不到变量'FFLIE'

2020-12-23 15:25

TiAmo南浔

等　级：新手上路
帖　子：6
专家分：0
注　册：2020-12-21

第 4 楼

得分: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