Question

请问vb.net 中单击button一次加粗再次点击取消加粗的代码是怎样的？ 麻烦

请问vb.net 中单击button一次加粗再次点击取消加粗的代码是怎样的？
麻烦帮我解答一下可以吗？
不改变原来字体的其他属性

Answer 1

Dim i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i = i + 1
        If i = 1 Then
            TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)
        Else
            TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Regular)
            i = 0
        End If
    End Sub

追问

请问可不可以不改变原来的字体就改变加粗和取消加粗，我前面弄了个FontDialg1。

追答

发你的代码

追问

追答

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim j As Integer = TextBox1.Font.Style
        If j = 0 Then
            j = 1
        ElseIf j = 1 Then
            j = 0
        ElseIf j = 2 Then
            j = 3
        Else
            j = 2
        End If
        TextBox1.Font = New System.Drawing.Font(TextBox1.Font, j)
    End Sub

Answer 2

上面的代码麻烦，用这种button1.font.bold.= not button1.font.bold纯手打，可能需要修改。