Question

在VFP中的表单文件中怎样编写程序来设计文本框的字体





Answer 1

* 注意：请确保字体库有【宋体、幼圆、隶书】此三种字体，查询字体库的名字是否正确
* 我这个是简单方法：当然也可以直接调用你那几种字体的option来实现，那样会更通用些
* 就这样吧，【optiongroup1】的【chick】加入以下代码即可：
* 已调试通过

do case
Case thisform.optiongroup1.option1.value=1
thisform.text1.fontname='宋体'
Case thisform.optiongroup1.option2.value=1
thisform.text1.fontname='幼圆'
Case thisform.optiongroup1.option3.value=1
thisform.text1.fontname='隶书'
endCase
thisform.text1.refresh