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

#2

sdta2020-12-22 21:23

只有本站会员才能查看附件，请登录

#3

TiAmo南浔2020-12-23 15:20

回复 2楼 sdta

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

#4

TiAmo南浔2020-12-23 15:25

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

#5

TiAmo南浔2020-12-23 15:43

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

#6

sdta2020-12-23 18:58

只有本站会员才能查看附件，请登录

#7

TiAmo南浔2020-12-24 16:49

回复 6楼 sdta

只有本站会员才能查看附件，请登录

#8

吹水佬2020-12-25 20:54

回复 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