设置字体名称时，VB总是说实时错误‘380’，无效属性值
编号：QA004035
建立日期: 2001年3月26日 最后修改日期：2001年3月26日
所属类别：
wang_liming:
我在用vb学习的时候下面有一段代码，当我运行的时候。当点击“仿宋”这一组合框中的一项时，vb总是说实时错误‘380’，无效属性值，不知这是什么意思，恳请赐教
附；代码如下
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Text1.FontName = "宋体"
Case 1
Text1.FontName = "黑体"
Case 2
Text1.FontName = "仿宋"
Case 3
Text1.FontName = "楷体"
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "黑体"
Combo1.AddItem "仿宋"
Combo1.AddItem "楷体"
End Sub
Private Sub HScroll1_Change()
Text1.FontSize = HScroll1.Value
Label3.Caption = HScroll1.Value
End Sub
回答:
问题出在Text1.FontName = "仿宋"上，你的系统中没有"仿宋"这种字体，所以VB设置属性时出错。也许你觉得很奇怪，明明系统中有这种字体呀，实际上你系统中有的是“仿宋_GB2312”，而不是“仿宋”。你应该改为：
Text1.FontName = "仿宋_GB2312"
此问题由李海回答。
| |
|
|
| |
|
|
