急！！！VB提示“未找到方法或数据成员”

来源：百度知道 编辑：UC知道 时间：2024/05/06 19:57:57
以下是代码部份！！

Private Sub Comok_Click()
If Optfont1.Value Then '确定字体
Label1.FontName = "宋体"
Else
Label1.FontName = "黑体"
End If
If Optsize.Value Then '确定字号
Label1.FontSize = 8
Else
Label1.FontSize = 20
End If
If Optcolor.Value Then '确定颜色
Label1.FontColor = QBColor(9) '这说未找到方法或数据成员
Else
Label1.FontColor = QBColor(10)
End If
End Sub
Label1.FontColor = QBColor(9) '这说未找到方法或数据成员
我把它改为颜色代码，但又说错误的参数号或无效的属性赋值。

Label属性无FontColor，应该用ForeColor属性：
Private Sub Comok_Click()
If Optfont1.Value Then '确定字体
Label1.FontName = "宋体"
Else
Label1.FontName = "黑体"
End If
If Optsize.Value Then '确定字号
Label1.FontSize = 8
Else
Label1.FontSize = 20
End If
If Optcolor.Value Then '确定颜色
Label1.ForeColor = QBColor(9)
Else
Label1.ForeColor = QBColor(10)
End If
End Sub
建议改用CheckBOX控件：
Private Sub Command1_Click()
If Chkfont.Value Then '确定字体
Label1.FontName = "宋体"
Else
Label1.FontName = "黑体"
End If
If Chksize.Value Then '确定字号
Label1.FontSize = 8
Else
Label1.FontSize = 20
End If
If Chkcolor.Value Then '确定颜色
Label1.ForeColor = QBColor(9) '这说未找到方法或数据成员
Else
Label1.ForeColor = QBColor(10)
End If
End Sub

Label1.FontColor = QBColor(9)

Label1.ForeColor = QBColor(9)