視覚的な複数の入力ボックス1つだけ必要

Question

1つではなく2つの入力ボックスが引き続き表示されるのはなぜですか？私は間違って何をしていますか？私は機能を通して価値観をどのように渡していますか？もしそうなら、私はこれをどのように修正できますか？

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（）関数で、しようとしている関数を呼び出しています。したがって、それは2回表示されます。

Answer 2

このクラスは、プロパティを使用する方が優れているため、管理が簡単で、このようなメソッドの重複を避けることができます。