视觉基本多输入框我只需要1

Question

为什么我会一直输入两个输入框而不是一个？我究竟做错了什么？我是如何通过函数传递价值的？如果是这样，我该如何解决这个问题？

Private Sub Calculate_Click(sender As Object, e As EventArgs) Handles Calculate.Click 

      'Dim ready_ship As Integer = GetInStock() 

      Dim display_spools As Integer = ReadyToShip() 
      Dim display_backOrders As Integer = BackOrdered() 


      lbl_rship.Text = display_spools.ToString() 
      lbl_backo.Text = display_backOrders.ToString() 





     End Sub 
     Function GetInStock() As Integer 


      Dim amount_Spools As String = Nothing 

      amount_Spools = InputBox(" Enter the number of spools currently in stock: ") 

      Return CInt(amount_Spools) 


     End Function 
     Function ReadyToShip() As Integer 
      Dim ready_ship As Integer = GetInStock() 
      Dim a As Integer 

      a = CInt(ready_ship) 

      Return a 
     End Function 
     Function BackOrdered() As Integer 
      Dim b As Integer = ReadyToShip() 
      Dim c As Integer 
      c = b - CInt(TextBox1.Text) 
      Return c 
     End Function 




    End Class 

Answer 1

你Calculate_Click事件调用ReadyToShip（）和延期交货（）功能，这都将GetInStock（）函数，该函数显示输入框。所以它会显示两次。

Answer 2

使用属性可以更好地服务此类，它们更容易管理，并且有助于避免此类方法重复。