Отображение ввода в текстовое поле

Question

Я пытаюсь отобразить расчет в TextBox, но проблема с его отображением. Я хочу, чтобы он отображался, когда все поля ввода верны.

Public Class VehicleAudit 

Private Sub Calculate() 
    Dim validMiles As Boolean = False 
    Dim validPercent As Boolean = False 
    Dim validAvg As Boolean = False 

    Dim inputtedMiles As Double 
    Dim inputtedPercent As Double 
    Dim inputtedAvgCost As Double 
    Dim servTruck As Integer 
    Try 
     inputtedMiles = Double.Parse(txtMilesDriven.Text) 
     inputtedPercent = Double.Parse(txtPercent.Text) 
     inputtedAvgCost = Double.Parse(txtAvgCost.Text) 
    Catch ex As FormatException 
     MessageBox.Show("Please enter all values and try again") 
     Return 
    End Try 

    Dim cal As String = FormatCurrency(Convert.ToString(inputtedAvgCost * inputtedMiles * (1.0 + inputtedPercent))) + " dollars." 

    ValidateBoxes(inputtedMiles, 0, 10000, "Miles must range from 0-10000.", validMiles) 
    ValidateBoxes(inputtedPercent, 0.1, 0.5, "Please enter percent from .10 to .50", validPercent) 
    ValidateBoxes(inputtedAvgCost, 0.25, 0.75, " Please enter Average cost from .25 to .75", validAvg) 

    If (validAvg And validMiles And validPercent) Then 
     Dim totalCost As Double 
     If boxVehicleSelect.SelectedIndex = 9 Then 
      servTruck = inputtedMiles/100 'this way we lose precision using the integer, so values below 100s are dropped. 
      totalCost = servTruck * 15.46 
     Else 
      totalCost = inputtedAvgCost * inputtedMiles * (1.0 + inputtedPercent) 
     End If 
    End If 


End Sub 

Private Sub txtTotalCost_TextChanged(ByVal Calculate As String, e As EventArgs) Handles txtTotalCost.TextChanged 

End Sub 

Answer 1

У вас уже есть блок, который работает, когда все три значения являются «действительными». Просто выход, что значение на дне его:

If (validAvg And validMiles And validPercent) Then 
    Dim totalCost As Double 
    If boxVehicleSelect.SelectedIndex = 9 Then 
     servTruck = inputtedMiles/100 'this way we lose precision using the integer, so values below 100s are dropped. 
     totalCost = servTruck * 15.46 
    Else 
     totalCost = inputtedAvgCost * inputtedMiles * (1.0 + inputtedPercent) 
    End If 

    ' Output the computed "totalCost" some where. 
    ' Here I'm using a Textbox called "txtTotalCost": 
    txtTotalCost.Text = totalCost.ToString() 

End If 

Edit ...

Также вызовите ваш метод Calculate() всякий раз, когда один из ваших Textboxes изменений:

Private Sub TextChanged(sender As Object, e As EventArgs) Handles txtMilesDriven.TextChanged, txtAvgCost.TextChanged, txtPercent.TextChanged 
    Calculate() 
End Sub 

Обратите внимание, как все три текстовые поля перечислены после ключевого слова handles.