NumberStyles.AllowParentheses Or NumberStyles.AllowTrailingSign Or NumberStyles.Float Or NumberStyles.AllowThousands
Imports System.Globalization Imports System.Threading Module Example Public Sub Main() Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US") Dim value As String Dim styles As NumberStyles value = "(4,999.64)" styles = NumberStyles.AllowParentheses Or NumberStyles.AllowTrailingSign Or NumberStyles.Float Or NumberStyles.AllowThousands ShowNumericValue(value, styles) End Sub Private Sub ShowNumericValue(value As String, styles As NumberStyles) Dim number As Double Try number = Double.Parse(value, styles) Console.WriteLine("Converted '{0}' using {1} to {2}.",value, styles.ToString(), number) Catch e As FormatException Console.WriteLine("Unable to parse '{0}' with styles {1}.",value, styles.ToString()) End Try Console.WriteLine() End Sub End Module
1. | NumberStyles.AllowDecimalPoint | ||
2. | NumberStyles.AllowDecimalPoint Or NumberStyles.AllowThousands |