Vb.net 如何比较多个文本框中的值

如果panel1中文本框中的值位于文本框min_tolerance和max_tolerance中的公差字段中，如何比较panel1中文本框中的十进制值与文本框中的十进制值

Private Sub FINAL_KONTROLA(sender As Object, e As EventArgs)
    Dim EmptyTextBoxFound As Boolean = False 'Boolean flag for empty textbox 
    Dim EmptyTextBoxName As String = ""
    Dim max_x As String = max_tolerance.Text
    Dim min_x As String = min_tolerance.Text
    For Each ctl As Control In Panel1.Controls

        If TypeOf ctl Is TextBox AndAlso ctl.Visible AndAlso ctl.Text >= max_x AndAlso ctl.Text <= min_x Then
            EmptyTextBoxName = ctl.Name
            EmptyTextBoxFound = True
            ctl.Select()
            ctl.BackColor = Color.LightSalmon
            Exit For
            If EmptyTextBoxFound = True Then
                ctl.BackColor = Color.Red
                '.. do whatever you have do
            End If
        End If
    Next

End Sub

Private Sub-FINAL\u KONTROLA（发送方作为对象，e作为事件参数）
Dim EMPTYTEXTBOX为空文本框的布尔=False布尔标志
Dim EmptyTextBoxName As String=“”
尺寸最大值x为字符串=最大公差.Text
尺寸最小值x为字符串=最小值公差.Text
对于Panel1.控件中的每个ctl作为控件
如果ctl的类型为TextBox AndAlso ctl.Visible AndAlso ctl.Text>=max_x AndAlso ctl.Text我的解决方案，谢谢

 Private Sub FINAL_KONTROLA(sender As Object, e As EventArgs)
    Dim EmptyTextBoxFound As Boolean = False 'Boolean flag for empty textbox 
    Dim EmptyTextBoxName As String = ""
    Dim max_x As Double = max_tolerance.Text
    Dim min_x As Double = min_tolerance.Text

    For Each ctl As Control In Panel1.Controls
        If TypeOf ctl Is TextBox AndAlso ctl.Visible Then
            Dim v1 As Double = ctl.Text
            If v1 >= max_x OrElse v1 <= min_x Then

                EmptyTextBoxName = ctl.Name
                EmptyTextBoxFound = True
                ctl.Select()
                ctl.Text = ""
                ctl.BackColor = Color.LightSalmon
                MsgBox("Vyznačený záznam neodpovída tolerančnímu poli",, "Chyba")
                Exit For
                If EmptyTextBoxFound = True Then
                    ctl.BackColor = Color.Red
                    '.. do whatever you have do
                End If
            End If
        End If
    Next
End Sub

Private Sub-FINAL\u KONTROLA（发送方作为对象，e作为事件参数）
Dim EMPTYTEXTBOX为空文本框的布尔=False布尔标志
Dim EmptyTextBoxName As String=“”
尺寸最大值x为双精度=最大公差.Text
尺寸最小值x为双精度=最小值公差.Text
对于Panel1.控件中的每个ctl作为控件
如果ctl的类型是文本框，并且ctl也是可见的，那么
尺寸v1为双精度=控制文本
如果v1>=max_x OrElse v1，您在尝试此操作时没有实际描述出问题所在，但我建议，由于它们都是字符串，为了进行数字比较，您必须先将所有值转换为小数，然后进行比较。字符串比较可能无法满足您的需要。我如何将panel1中的所有文本框转换为十进制值？正如我所说，您可以通过强制转换来实现。你想过用谷歌搜索吗？？或者，根据我上面提供的信息，您可以通过搜索轻松找到许多其他表单。我有一个问题，在成功选中所有文本框后，如何调用下一个表单？勾选所有内容后，文本框如果位于Toleration字段中，那么这听起来像是一个新问题的主题。现有问题的评论部分不用于询问或讨论新功能。答案有点取决于您使用的是ASP.NET WebForms还是Windows Forms（代码中有点不清楚）。请就此提出一个新问题，并在问题中明确说明具体情况，以及您迄今为止所做的研究/代码尝试（毕竟，用谷歌搜索该主题并不难！）。