This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(316.8, 35%, 40%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EH%3C/text%3E%3C/svg%3E)
Hello, I am stuck. I am supposed
to validate the input data type into txtBox before allowitn the program to continue but I keep getting too many errors.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(233.6, 28.999999999999996%, 32%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EXZ%3C/text%3E%3C/svg%3E)
Hi @Hekzdaddy ,
If you need further assistance, you can share your project on onedrive or GitHub, or write an answer to post your code.
Red needs to move to to where the other private variables are, blue needs to move outside of btnCalcluate and can only assume yellow belongs with blue. In the future post code and the image, this way if you had done that I could had made the changes.
Public Class Form1
Private Function ValidateInputFields() As Boolean
Public Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
'try to convert each of the input fields. Return false if
'any of the fields in invalid, and display a suitable error message.
If Not Decimal.TryParse(txtBoxLabor.Text, dectxtBoxLabor) Then
lblLabor.Text = "retail must be numeric"
Return False
End If
If Not Decimal.TryParse(txtBoxParts.Text, dectxtBoxParts) Then
lblParts.Text = "type in a number"
Return False
End If
Return True
End fucntions
End Sub
Still having an issue, I've attached a new image and partial code (full code exceeded 1000 character limit).
This was done in notepad, see if this resolve the issue.
Private Function ValidateInputFields() As Boolean
If Not Decimal.TryParse(txtBoxLabor.Text, dectxtBoxLabor) Then
lblLabor.Text = "retail must be numeric"
Return False
End If
If Not Decimal.TryParse(txtBoxParts.Text, dectxtBoxParts) Then
lblParts.Text = "type in a number"
Return False
End If
Return True
End Function
Public Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
If ValidateInputFields() Then
'
Else if
'
End If
End Sub
I would also encourage you to learn how to work with Git in Visual Studio. Knowing Git means you can use a link rather than post code here.
https://learn.microsoft.com/en-us/visualstudio/ide/git-with-visual-studio?view=vs-2019
Ok I'll try it . Thank you.
That worked and go trid of all the errors, thank you. I will check out Git too. Apparently there is something wrong with my Return True statement. DO you see any issues?
Private Function ValidateInputFields() As Boolean
If Not Decimal.TryParse(txtBoxLabor.Text, dectxtBoxLabor) Then
MessageBox.Show("retail must be numeric")
Return False
Return True
ElseIf Not Decimal.TryParse(txtBoxParts.Text, dectxtBoxParts) Then
lblParts.Text = "type in a number"
Return False
End If
Return True
End Function
Your image is un-readable. Your code is fine as I added it to a form. In the screenshot below the $ is not needed in your code, I have strict rules on code and this apises the rules.
I'll take it off and see what happens
The data validation seems to work, The MessageBox appears if not numeric. How would I know proceed to add calculations?
I am checking out GIT, I made an account but not sure how to use it just yet, still exploring it.
First off each image you post is pretty much way too small.
To display numbers in a message box, here are three variations.
Private Sub DisplayNumberButton_Click(sender As Object, e As EventArgs) _
Handles DisplayNumberButton.Click
Dim oilChangePrice As Double = 39.99
Dim lubePrice As Double = 20
MessageBox.Show($"Oil: {oilChangePrice:C2} Lube: {lubePrice:C2}")
MessageBox.Show($"Oil: {oilChangePrice:C2}{vbCrLf}Lube: {lubePrice:C2}")
MessageBox.Show(
$"Oil: {oilChangePrice:C2}
Lube: {lubePrice:C2}")
End Sub