メッセージボックスが正常に動作しない

Question

2つのテキストボックスに入力を受け入れています。データは計算され、ListBoxに表示されます。

メッセージボックスが表示されませんでした。だから、私はすべてを無効にして、今私はどのデータを入れても表示しています。面白いのは、計算が正しいことと正しく表示されることです。

2つのテキストボックスのデータが数字でないか、空であるか、またはゼロより小さい場合、メッセージボックスを表示する必要があります。

誰かが私に考えを与えることができたら、私は感謝します。

' Did user enter a numeric value? 
If IsNumeric(txtHourlyWage.Text) Then 
    decHourlyWage = Convert.ToDecimal(txtHourlyWage.Text) 
End If 

' Is Hourly Wage greather than zero? 
If decHourlyWage > 0 Then 
End If 

' Did user enter a numeric value? 
If IsNumeric(txtExpectedRaise.Text) Then 
    decExpectedRaise = Convert.ToDecimal(txtExpectedRaise.Text) 
End If 

' Did user enter a numeric value? 
If decExpectedRaise > 0 Then 
End If 

' If txtHourlyWage.Text = "" Or txtExpectedRaise.Text = "" Then 
'MsgBox("Input Cannot Be Empty") 

iNextyear = (decHourlyWage * decHoursInWeek) * (decWeeksInYear) 

iNextyear = iNextyear 
decAnnualPay = iNextyear 
lstAnnualPay.Items.Add(decAnnualPay.ToString("c")) 

For intNumber = 1 To 9 
    ' Body of Loop 
    iNextyear = iNextyear + iNextyear * CDec((txtExpectedRaise.Text))/100 
    decAnnualPay = iNextyear 
    lstAnnualPay.Items.Add(decAnnualPay.ToString("c")) 
Next 

' Display error message if user entered a negative number 
MsgBox("You Entered " & txtHourlyWage.ToString() & ". Please Enter a Positive Number ", , "question") 

MsgBox("You Entered " & txtExpectedRaise.ToString() & ". Please Enter a Positive Number ", , "question") 


'Display error message if user entered a nonnumeric value 
MsgBox("Please Enter A Number ", , "question") 
txtHourlyWage.Text = "" 
txtHourlyWage.Focus() 

MsgBox("Please Enter A Number ", , "question") 
txtExpectedRaise.Text = "" 
txtExpectedRaise.Focus() 
btnCompute.Visible = False 

Answer 1

同じパターンが他の値に適用され、このよう

' Did user enter a numeric value? 
If Not decimal.TryParse(txtHourlyWage.Text, decHourlyWage) OrElse _ 
         decHourlyWage < 0 Then 
    MsgBox("You Entered an invalid value for the Hourly Wage (negative, zero or empty", "Number") 
    return 
End If 

に、より強力なdecimal.TryParseを使用してください。