2017-01-20 10 views
0

フォームにラベルがあります。太字のボタンをクリックすると太字にするには以下のようにしました:vb.net - ラベルからボールドエフェクトを削除する

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言語で上記の文を書くにはどうすればよいですか?

+0

私のコードはそのままではありませんが、この質問のための最小限のものです。それが役に立たないと私に尋ねないでください。 – TGamer

+0

私はそれを行う方法もわかりません。多分変数を使用します。特定の 'boolean'変数が' bold'であるかどうかを判断します。 –

答えて

0

このコードは私にとっては役に立ちます。

あなただけが唯一のそれぞれについて、あなたにあなたのラベルコントロールを含めるとLabel.Font.Bold上の条件を指定することができ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 

条件を使用する必要があります。

関連する問題