230问答网 > VB：设计一程序，在3个文本框中分别显示出隶书、宋体和幼圆等字体。

VB：设计一程序，在3个文本框中分别显示出隶书、宋体和幼圆等字体。

2025-02-07 12:37:40

推荐回答（3个）

回答1：

你的代码是正确的!!!!!!
在我的机器上正确运行

可以看下你的电脑是否没有其中某种字体,如没有则会出现(实时错误380)

回答2：

下面的代码,演示了将所有可用的打印字体,添加到下拉组合框中,单击组合框的某项,设置文本框的字体为相应的字体
请先添加一个组合框, 一个文本框

Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub

Private Sub Form_Load()
Dim I ' Declare variable.
combo1.clear
For I = 0 To Printer.FontCount - 1 ' 确定字体数.
Combo1.AddItem Printer.Fonts(I) ' 把每一种字体放进列表框.
Next I
text1.text="12345我是中国人abcde"
End Sub

希望能给你一定启发

回答3：

代码没有问题，你先看一下窗口名称属性是否是form值？
如果窗口名称是form1则
private sub form1_click()
你的代码
...
end sub