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

来源：百度知道 编辑：UC知道 时间：2024/06/22 02:52:02
Private Sub Form_Click()
Text1.FontSize = 40
Text1.FontName = "隶书"
Text1.Text = "隶书"

Text2.FontSize = 30
Text2.FontName = "宋体"
Text2.FontItalic = ture
Text2.FontUnderline = ture
Text2.Text = "宋体"

Text3.FontSize = 20
Text3.FontName = "幼圆"
Text3.FontBold = True
Text3.Text = "幼圆"
End Sub

哪里错了？ 怎么运行不了，我是新学的，不要笑我哦。
组合框我都没学呢！ 就给我指正下这个题目就行了！

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

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

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

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

希望能给你一定启发

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