从文本框的属性窗口中的 font项中修改,或用代码,比如:
Text1.FontName = "黑体"
先添加一个叫Microsoft Common Dialog Control 6.0的控件,然后代码如下:
CommonDialog1.CancelError = True
On Error GoTo errHandler
CommonDialog1.Flags = cdlCFBoth + cdlCFPrinterFonts
CommonDialog1.ShowFont
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
errHandler:
Exit Sub
双引号要用英文的双引号。
引号中的名称要对应你电脑中安装的字体类型,比如有的电脑上是"楷体",有的电脑上则是"楷体_GB2312"
text1.Font 这是文本框的字体属性, 给它赋值或者直接修改就可以了