VB 点击按钮 设置文本框字体

Question

运行工程，Command1_Click
打开如图可以设置text1.text文字大小
求此代码
我不是说改变文本框内现有的字体，而是设置后文本框内打出的字体是设置的

Answer 1

有一个通用对话框。方法如下：
1、执行“工程”菜单的“部件”命令，打开“部件”对话框。
2、在部件对话框，选择“控件”选项卡，在列表中找到“Microsoft Common Dialog Control 6.0”
3、单击确定。通用对话框就会被加到工具箱中。

然后，添加通用对话框，将它的Action属性设为4，就是这个字体选择对话框了。

然后，你可以用下面的代码测试：
Private Sub Command1_Click()
CommonDialog1.Flags = 1 Or 6
CommonDialog1.Action = 4
Form1.Font = CommonDialog1.FontName
Print "字体！"
End Sub

关于通用对话框的更多用法，建议你百度一下

Answer 2

在相应的子程序里写上

text1.fontsize = 字号大小

希望对你有帮助。