if文 コードを短くしたい

Question

a,b,cのテキストボックスが３つあります。
入力する値の大きさは下記が条件です
a>b>c

テキストボックスに入力時に3つの関係が不適切ならメッセージを出すようにしたいです。
例えばb>aなら下記みたいなイメージです

If Val(TextBox2.Text) > Val(TextBox1.Text) Then

　　MsgBox("bはaより小さいです")

これをc>b>aで、まとめて比較し、できるようにしたいです

あとコードが長いので短くもしたいです。

現状はこのようになっています。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each q In Me.Controls.OfType(Of TextBox)()
AddHandler q.Leave, AddressOf TextBoxes_Leave
Next
End Sub
Private Sub TextBoxes_Leave(sender As TextBox, e As EventArgs)
Dim d As Double

    If Double.TryParse(sender.Text, d) AndAlso d > 0 Then
        sender.ResetBackColor()

        If TextBox2.TextLength <> 0 AndAlso TextBox1.TextLength <> 0 Then

            If Val(TextBox2.Text) > Val(TextBox1.Text) Then

                MsgBox("bはaより小さいです")
                sender.BackColor = Color.Red
                sender.Focus()


            End If

        ElseIf TextBox3.TextLength <> 0 AndAlso TextBox2.TextLength <> 0 Then

            If Val(TextBox3.Text) > Val(TextBox2.Text) Then

                MsgBox("cはbより小さいです")
                sender.BackColor = Color.Red
                sender.Focus()


            ElseIf TextBox3.TextLength <> 0 AndAlso TextBox1.TextLength <> 0 Then

                If Val(TextBox3.Text) > Val(TextBox1.Text) Then

                    MsgBox("cはaより小さいです")
                    sender.BackColor = Color.Red
                    sender.Focus()
                End If

            End If
        End If
    End If
End Sub

補足情報（FW/ツールのバージョンなど）

visualsudaio2017

Comments

[ttyp03]

未入力の場合はどうするのでしょう？（追記）３つのテキストボックス共通のイベントだからそれを考慮する必要があるのか。この質問はスルーでお願いします。

Answer 1

Public Class NumericTextBox
    Inherits TextBox

    Private _val As Double

    Public Property Val As Double
        Get
            If Double.TryParse(Me.Text, _val) Then
                Return _val
            Else
                Return Double.NaN
            End If
        End Get
        Set(value As Double)
            Me.Text = Value.ToString()
            _val = Value
        End Set
    End Property

End Class

というクラス(TextBoxを継承)を作っておいて、TextBox をこれに置き換えると

    Private Sub TextBoxes_Leave(sender As NumericTextBox, e As EventArgs)
        If sender.Val > 0 Then
            sender.ResetBackColor()

            If TextBox2.Val > TextBox1.Val Then
                MsgBox("aはbより小さいです")
                sender.BackColor = Color.Red
                sender.Focus()

            ElseIf TextBox3.Val > TextBox2.Val Then
                MsgBox("bはcより小さいです")
                sender.BackColor = Color.Red
                sender.Focus()

            End If
        End If

    End Sub

となり、幾分すっきりします。

Answer 2

コードが見にくいため、コードの前後に```を追加してください（コードを選択して<code>でもOKです）。

---

VBはあまり触ったことは無いのでちょっと汚いですが、以下のような処理はいかがでしょうか？

• 一つの塊に入れることでまとめて処理できるようにする
• 共通の条件（.TextLength <> 0など）はLINQのAllメソッドでまとめて判定
• a<b<cの条件は、並び替えをして期待する順番との差異で判定

'''TextBoxes_Leave

'テキストボックスとa,b,cの対応表
'インスタンス変数にした方が良さそう
Dim dic =
    New Dictionary(Of TextBox, String) From {
        {TextBox1, "a"},
        {TextBox2, "b"},
        {TextBox3, "c"}}

'全て0文字以上かつ数値っぽいかどうか
If Not dic.Keys.All(Function(t) t.TextLength <> 0 AndAlso IsNumeric(t.Text)) Then
    '1個でもダメなら抜ける
    Return
End If

'テキストを数値化してソートして配列化（添え字アクセスのため）
Dim sorted = dic.OrderBy(Function(kv) Val(kv.Key.Text)).ToArray()
'念のため a, b, c でソートしてから配列化（添え字アクセスのため）
Dim kvs = dic.OrderBy(Function(kv) kv.Value).ToArray()

' 順番通りなら`sorted`と`kvs`は同じ順番なはず（もっと良い方法がありそうですが）
For i = 0 To kvs.Length - 1
    If kvs(i).Key Is sorted(i).Key Then Continue For

    MsgBox(String.Format("{0}は{1}より小さいです。", sorted(i).Value, kvs(i).Value))
    tbx.BackColor = Color.Red
    tbx.Focus()
    Return

Next