Question

VB题目 菜鸟求解！

1． 打开vb1。要求利用2组单选按钮和1组复选框完成文本框中文本字体、大小和样式的设置。其中“宋体”和8号大小为默认状态。运行数据界面如下，完成后保存文件，并生成vb1.exe文件。

我写的程序是
Private Sub Command1_Click()
If Option1.Value = True Then Text1.FontName = "宋体"
If Option2.Value = True Then Text1.FontName = "幼圆"
If Option3.Value = True Then Text1.FontName = "华文彩云"
If Option4.Value = True Then Text1.FontSize = 8
If Option5.Value = True Then Text1.FontSize = 12
If Option6.Value = True Then Text1.FontSize = 24
If Check1.Value = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
If Check2.Value = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End If
If Check3.Value = 1 Then
Text1.FontStrikethru = True
Else
Text1.FontStrikethru = False
End If
If Check4.Value = 1 Then
Text1.FontUnderline = True
Else
Text1.FontUnderline = False
End If
End Sub

Private Sub Command2_Click()
End
End Sub
运行的时候一直是无效属性。。。。不知道哪里错了 求解

Answer 1

因为你电脑里没有 幼圆 这个字体,,所以无效..

Answer 2

这个貌似要求系统中注册了这个字体才行，到网上下载一个装上试试

Answer 3

你的字符库没有幼圆字体

Answer 4

"不知道哪里错了" 你有调试环境吗? 先好好调试下代码.

Answer 5

注册后才能用。