tryParse不轉換值

Question

我有Option Strict On。當它開啓時，下面的代碼不起作用。我能因爲該行沒有從文本將值更改爲十進制，我的代碼的其餘部分不工作，我的標籤顯示$ 0到隔離問題，以這條線

Decimal.TryParse(lblAnnualMid.Text, decAnnualMid) 

。

我該如何解決這個問題。我仍然感覺通過VB.Net，所以如果這看起來很明顯，請原諒我。

這裏是我的代碼的其餘部分：

Option Strict On 
Option Explicit On 

Public Class frmCustomRanges 

    'Variables for the MidPoint TextBoxes 
    Dim decAnnualMid As Decimal 
    Dim decHourlyMid As Decimal 

Private Sub txtRangeSpread_TextChanged(sender As Object, e As EventArgs) Handles txtRangeSpread.TextChanged 

     'This event runs when the user enters a number in the 
     'txtRangeSpread text box. The amount is converted to a decimal 
     'it then calculates the min and max of the range for annual 
     'and hourly ranges. The ranges change as the user changes the range 
     'spread. 


     'Variables for the event 
     Dim decRangeSpreadResults As Decimal 

     'Verify entry is numeric 
     If IsNumeric(txtRangeSpread.Text) Then 

      'Convert entry to decimal 
      Dim decRangeSpread As Decimal = Convert.ToDecimal(txtRangeSpread.Text) 

      'convert the Mid point value to decimal 
      Decimal.TryParse(lblAnnualMid.Text, decAnnualMid) 

      'convert range spread value to percentage 
      decRangeSpreadResults = decRangeSpread/100 


      'Display results in dollar string Annual salary 
      lblAnnualMin.Text = Convert.ToDecimal(decAnnualMid - (decRangeSpreadResults * decAnnualMid)).ToString("C") 
      lblAnnualMax.Text = Convert.ToDecimal(decAnnualMid + (decRangeSpreadResults * decAnnualMid)).ToString("C") 

      ''Display results in dollar string in Hourly rate 
      lblHourlyMin.Text = Convert.ToDecimal(decAnnualMid + (decRangeSpreadResults * decAnnualMid)/52/40).ToString("C") 
      lblHourlyMax.Text = Convert.ToDecimal(decAnnualMid + (decRangeSpreadResults * decAnnualMid)/52/40).ToString("C") 

     Else 

      MsgBox("You have entered a non-numeric value. Please check value and enter again", vbCritical, "Input Error") 


      With txtRangeSpread 
       .Text = "" 
       .Focus() 

      End With 

     End If 


    End Sub 

Answer 1

你想要的其實應該是這樣

decimal.TryParse("$35,000",NumberStyles.Currency ,null , out test) 

例如：

using System; 
    using System.Globalization; 

    namespace ConsoleApplication1 
    { 
     class Program 
     { 
      static void Main(string[] args) 
      { 
       decimal test; 
       Console.WriteLine(decimal.TryParse("$35,000",NumberStyles.Currency ,null , out test)); 
       Console.WriteLine(test); 
       Console.Read(); 
      } 
     } 
    } 

more information about NumberStyles

Answer 2

我改變了我的行：

Decimal.TryParse(lblAnnualMid.Text.Replace("$", ""), decAnnualMid) 

這個工作完美。

謝謝大家。