Question

如何在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
运行后在第一次选中后字体正常显示 可是当你在复选框中取消选项时 字体却任保持被选中的状态 无法撤销粗体、斜体、下划线

Answer 1

VB可对以下属性设置真或假来控制字体的粗 斜 连划线 下划线等。

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

Answer 2

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

Answer 3

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

Answer 4

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