求助！如何调整accept to 输入字体大小

[weixin_41958687]

求求大神，谁能告诉我如何调整输入字体的大小，我编了一个小程序，其中有：accept '英语全拼：' to a，输入的时候字特别小，看的我头晕眼花，就是不知道如何调整这个字体啊，这个问题困扰了我很久了，请问如何能使得在屏幕上输入字体时字大点啊？

[都市夜猫]

还在用 accept ？至少三十年以上的老古董，用于 DOS 界面的，没有指定字体大小的功能 至少也该用另一个基于 Windows 的古老命令

a = Space(10)
@ 10,10 say '英语全拼：' font '微软雅黑',20 get a font '微软雅黑',20
read

vfp 的话，应该用 Label + Textbox 控件或者用 InputBox 函数来接收用户输入

[weixin_41958687]

回楼上，你真是大神啊，我的水平就是三十年以前学的foxplus，我在主贴里没好意思说，被你看出来了。虽然水平很菜，但是工作中的几乎所有难题都可以用它编程来解决。谢谢你告诉我了那个古老的命令。这几天由于输入的字体不能调大，我的眼睛都出现了问题，好像进了沙子一样难受。你说的那个 Label+Textbox和InputBox我都没见过、一点都不会用，我想买本书来学习一下，大神能否不吝赐教推荐本书啊？

[weixin_41958687]

附我写的程序： *背单词2,取随机数出题，抽查全部的学习内容 set exac on modi window screen font "宋体" ,16 clea a=time() use 学英语 al=recc() repl all 备注 with '' go 1 j=1 do while .not.eof() do while .t. i=int(rand(-1)*al) i=i+1 go i if 备注=' ' exit else count for 备注='已测试' to m if m=al ?'已完毕' b=time() c=val(substr(b,1,2))*60*60+val(substr(b,4,2))*60+val(substr(b,7,2))-(val(substr(a,1,2))*60*60+val(substr(a,4,2))*60+val(substr(a,7,2))) d="用时:"-str(int(c/60))-":"-ltrim(str(mod(c,60))) ?d return endif endif enddo do while .t. @18,20 say j @20,2 say 词性+词义 accept '英语拼写：' to m if m=trim(dc) repl 备注 with '已测试' j=j+1 &&计数器 exit &&正确了才跳出来，否则持续回答 endif @21,0 say space(100) enddo @21,0 say space(100) enddo

[都市夜猫]

看你代码前面有一句：modi window screen font "宋体" ,16，这个也同样可调整字体啊，不同之处是它设置的是 vfp 默认字体，但能解决你的问题 学好 vfp，看自带的帮助就足够了，如果通读了 vfp 自带的帮助，想不成为高手都不可能，我估计咱国内把 vfp 帮助全部看完看懂的不超过10人，老实说我都只看了60%不到，参考书也许有用，但我还没发现国内出版的有多大帮助，基本就是抄帮助加上几个以前实施过项目的框架+代码。不靠这个吃饭就没必要深究了，能解决工作中的问题即可，vfp的好处就是学习曲线非常平坦，掌握几条语句就可以写代码解决工作中的问题，不是科班出身的人也能很快上手，要掌握vfp的精髓，非一夕之功，碰到解决不了的困难再提问吧。