如何使用vb语句改变字体为下划线状态
文本框内容的字体为隶书,常规,四号,请问为什么使用复选按钮不能将它改为下划线,语句为:PrivateSub下划线_Click()If下划线.Value=1Then文本框....
文本框内容的字体为隶书,常规,四号,请问为什么使用复选按钮不能将它改为下划线,语句为:
Private Sub 下划线_Click()
If 下划线.Value = 1 Then
文本框.FontUnderline = True
Else: 文本框.FontUnderline = False
End If
End Sub
其他的字体(如宋体、楷体等)都可以,只有隶书不可以。
我用的是华军软件园的vb精简版(Microsoft Visual Basic 6.0(SP5)) 展开
Private Sub 下划线_Click()
If 下划线.Value = 1 Then
文本框.FontUnderline = True
Else: 文本框.FontUnderline = False
End If
End Sub
其他的字体(如宋体、楷体等)都可以,只有隶书不可以。
我用的是华军软件园的vb精简版(Microsoft Visual Basic 6.0(SP5)) 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询