在VB中无法使字体变成黑体,斜体?是不是把代码写错了?
来源:百度知道 编辑:UC知道 时间:2024/06/19 20:34:08
Private Sub CmdChkBold_Click()
If CmdChkBold.Value = 1 Then
TxtContent.FontBold = True
Else
TxtContent.FontBold = Fase
End If
End Sub
Private Sub CmdChkItalic_Click()
If CmdChkItalic.Value = 1 Then
TxtContent.FontItalic = True
Else
TxtContent.FontItalic = Fase
End If
End Sub
Private Sub CmdChkUnderline_Click()
If CmdChkUnderline.Value = 1 Then
TxtContent.FontUnderline = True
Else
TxtContent.FontUnderline = False
End If
End Sub
Private Sub CmdModern_Click()
TxtContent.FontName = "Modern"
End Sub
Private Sub CmdOptArial_Click()
TxtContent.FontName = "Arial"
End Sub
Private Sub CmdOptRoman_Click()
TxtContent.FontName = "Times New Roman "
End Sub
请高手看看有没错,帮我分析下原因出在那里
If CmdChkBold.Value = 1 Then
TxtContent.FontBold = True
Else
TxtContent.FontBold = Fase
End If
End Sub
Private Sub CmdChkItalic_Click()
If CmdChkItalic.Value = 1 Then
TxtContent.FontItalic = True
Else
TxtContent.FontItalic = Fase
End If
End Sub
Private Sub CmdChkUnderline_Click()
If CmdChkUnderline.Value = 1 Then
TxtContent.FontUnderline = True
Else
TxtContent.FontUnderline = False
End If
End Sub
Private Sub CmdModern_Click()
TxtContent.FontName = "Modern"
End Sub
Private Sub CmdOptArial_Click()
TxtContent.FontName = "Arial"
End Sub
Private Sub CmdOptRoman_Click()
TxtContent.FontName = "Times New Roman "
End Sub
请高手看看有没错,帮我分析下原因出在那里
我把这段程序打入VB中,再加上该加的控件,发现有几个小错误:
1."Fase":应该改为"False";
2."Times New Roman ":最后面的空格要删除掉,要不会提示"无效属性值"。
前面三个控件是复选扭,后面三个是单选钮。思路是正确的。
所以楼主要很小心,哪怕一个标点错误,也运行不成功的:)
错了
正确的是(举例)
TxtContent.Font.Name = "Times New Roman "
Font...........Name
少了点,细心点,帅哥
少了错了一千里了
是不是字体名字错了(包括大小写)