vb中怎么让按钮改变文本框里的文字的字体呢？求代码？

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

有一个通用对话框。方法如下：
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


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

Private Sub Option1_Click()
Text1.FontName = "宋体"
End Sub

Private Sub Option2_Click()
Text1.FontName = "黑体"
End Sub

Private Sub Option3_Click()
Text1.FontName = "楷体"
End Sub

Private Sub Command1_Click()
Text1.FontName = "隶书"
Text1.FontSize = 25
End Sub

注意，你的电脑必须装有这种字体，否则会出错；其次，字体名称必须准确，比如方正隶书简体，就要写“方正隶书简体”，而不能简称“隶书”

Text1.Font="隶书"

---

vb中怎么让按钮改变文本框里的文字的字体呢？求代码？视频