Vb.net VB文本框和宽度问题

您好，我正在尝试在我的程序中设计一个部分，构建由矩形表示的层，这取决于输入的大小，将决定矩形宽度的结果。输入<0时出现问题，它将恢复为1或0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim rectangle As Integer
    rectangle = Val(TextBox1.Text)
    TextBox1.Text = Convert.ToString(rectangle)
    Form2.RectangleShape1.Width = Val(TextBox1.Text)
    If Val(TextBox1.Text) >= 1.0 Or Val(TextBox1.Text) <= 1.5 Then
        Form2.RectangleShape1.Width = 75
    End If
    If Val(TextBox1.Text) >= 1.5 Then
        Form2.RectangleShape1.Width = 120
    End If
    If Val(TextBox1.Text) <= 1.0 Then
        Form2.RectangleShape1.Width = 55
    End If
    Form2.RectangleShape1.Show()
    Me.Hide()

Private子按钮1\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。单击
将矩形变暗为整数
矩形=Val（TextBox1.Text）
TextBox1.Text=Convert.ToString（矩形）
Form2.RectangleShape1.Width=Val（TextBox1.Text）
如果Val（TextBox1.Text）>=1.0或Val（TextBox1.Text）=1.5，则
Form2.RectangleShape1.Width=120
如果结束
如果Val（TextBox1.Text）用提供的信息很难说，我也不知道你到底在做什么，但有几件事似乎是错的

你失去了我的角色
让我们先来看看这个：

Dim rectangle As Integer 
rectangle = Val(TextBox1.Text)
TextBox1.Text = Convert.ToString(rectangle)
Form2.RectangleShape1.Width = Val(TextBox1.Text)


所以你声明了一个整数
获取某个文本框的文本，并通过删除字符仅从中选择数字
您可以在文本框中使用整数上的
ToString（）
重新分配该值
您再次分配文本框的值，去掉字符（您已经这样做了）

您可以使用以下命令恢复此行：

Form2.RectangleShape1.Width = CDbl(Val(TextBox1.Text)) 

我将转换更改为双精度，因为我确定您需要小数。整数不能有小数。如果没有小数，这两个条件将是完全相同的：

If Val(TextBox1.Text) >= 1.0 Or Val(TextBox1.Text) <= 1.5 Then
    Form2.RectangleShape1.Width = 75
End If
If Val(TextBox1.Text) >= 1.5 Then
    Form2.RectangleShape1.Width = 120
End If

为什么要使用
Val
？你为什么不让用户无法在文本框中输入字母？我想输入，这样我就可以输入if textbox.text 0.5，但它没有响应是的，但你不使用符号。这：
Val（“<0”）
将返回：
0
（作为双精度）感谢您花时间响应并编写所有这些内容，我试图表示通常以米、1米、1.5米、0.5米、0.25米等为单位的层，具体取决于插入的数字，将分配矩形层的大小，大于1.5米，大于1m但小于1.5m或小于1m，大于0.5，在这种情况下，不要使用整数。他们不能有小数。我将用指定的信息为编写一个工作代码。是的，就是这样，如果我将整数改为双倍，它就工作了。没问题，非常感谢：）@85l00k85总是乐于帮助。将输入文本框的数字限制在0-4.0之间是不是很简单？
If myTextBox.Text = "< 1.5" Then 
'Do something cool
Else If myTextBox.Text = "< 0" Then
'Do something cooler
Else
'Do nothing
End If