Question

我的表格上有标签。单击粗体按钮时，我执行以下操作将它们变为粗体：

Dim con4 As Control
For Each con4 In Me.Controls                
   con4.Font = New Font(con4.Font, FontStyle.Bold)
Next

这很有效。现在我想删除粗体，如果我再次单击相同的按钮。我想的是一个If语句，如：

If con4.FontStyle <> "Bold" Then
   con4.Font = New Font(con4.Font, FontStyle.Bold)
End If

但这不是VB.Net。如何用VB.Net语言编写上述语句？

Answer 1

此代码适用于我。

您只需使用条件If Button.Font.Bold = True

Dim con4 As Control
If Button1.Font.Bold = True Then
    For Each con4 In Me.Controls
        con4.Font = New Font(con4.Font, FontStyle.Regular)
    Next
Else
    For Each con4 In Me.Controls
        con4.Font = New Font(con4.Font, FontStyle.Bold)
    Next
End If

您只能在每个标签中包含标签控件，并在Label.Font.Bold上指定条件。

vb.net - 从标签中删除粗体效果

1 个答案: