如何在VB中控制粗体斜体

Private Sub Check1_Click()
Text1.Font.Bold = True
End Sub

Private Sub Check2_Click()
Text1.Font.Italic = True
End Sub

Private Sub Check3_Click()
Text1.Font.Underline = True
End Sub
运行后在第一次选中后字体正常显示可是当你在复选框中取消选项时字体却任保持被选中的状态无法撤销粗体、斜体、下划线

推荐答案 2015-06-11

FontBoldãFontItalicãFontStrikethruãFontUnderline
å±æ§

Private Sub Form_Click()
    Static i As Long
    If i = 0 Then
        Text1.FontBold = True 'å ç²ä½
    ElseIf i = 1 Then
        Text1.FontItalic = True 'å æä½
    ElseIf i = 2 Then
        Text1.FontStrikethru = True 'å è¿åçº¿
    ElseIf i = 3 Then
        Text1.FontUnderline = True 'å ä¸åçº¿
        i = 0
    End If
    i = i + 1
End Sub

Private Sub Form_Load()
    Text1.FontSize = 24
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ryyxvfexv.html

其他回答

第1个回答 2011-12-18

呵呵，少情况了，用if和else把取消勾选就为false也写进去。

第2个回答 2011-12-18

Private Sub Check1_Click()

Text1.Font.Bold = Not Text1.Font.Bold
End Sub

Private Sub Check2_Click()
Text1.Font.Italic = Not Text1.Font.Italic
End Sub

Private Sub Check3_Click()
Text1.Font.Underline = Not Text1.Font.Underline
End Sub

第3个回答 2011-12-18

Private Sub Check1_Click()
Text1.Font.Bold =Check1.Value
End Sub

Private Sub Check2_Click()
Text1.Font.Italic = Check2.Value
End Sub

Private Sub Check3_Click()
Text1.Font.Underline =Check3.Value
End Sub本回答被提问者采纳

你可能感兴趣的内容

大家正在搜

非常风气网www.verywind.cn

如何在VB中控制粗体斜体

相关了解……

你可能感兴趣的内容

非常风气网www.verywind.cn

如何在VB中控制粗体 斜体

相关了解……

你可能感兴趣的内容

如何在VB中控制粗体斜体