0

以下のように値を割り当てているフォーム (lblIRafr) にラベルがあります。

lblIRafr.Text = irAverageFailureRate & "%"

以下のコードを使用して、このラベルに割り当てる値を生成しています。

Dim irAverageFailureRate As String = (CDbl(irTotalFailureRate / 2).ToString("0.00"))

次に、irAverageFailureRate が 3 を超えるとテキストが太字で赤になり、それ以外の場合はテキストが太字で緑になるようにラベルをフォーマットします。私は以下のようにこれをやっています:

If irAverageFailureRate > "3.00" Then
        Dim l As Label = lblIRafr
        l.Font.Bold = True
        l.ForeColor = Drawing.Color.Red
    Else
        Dim l As Label = lblIRafr
        l.Font.Bold = True
        l.ForeColor = Drawing.Color.Green
    End If

これは 0 から 9.99 までの数値では問題なく動作しますが、irAverageFailureRate が 10.0 に達するとすぐに、ラベルが赤ではなく太字と緑にフォーマットされます。その理由は完全にはわかりません。

感謝して受け取った助け。ありがとう

4

1 に答える 1