NumberStyles.AllowParentheses Or NumberStyles.AllowTrailingSign Or NumberStyles.Float Or NumberStyles.AllowThousands : NumberStyles « Internationalization I18N « VB.Net

1. VB.Net
2. Internationalization I18N
3. NumberStyles

NumberStyles.AllowParentheses Or NumberStyles.AllowTrailingSign Or NumberStyles.Float Or NumberStyles.AllowThousands

 

Imports System.Globalization
Imports System.Threading

Module ParseStrings
   Public Sub Main()
      Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")

      Dim value As String
      Dim styles As NumberStyles

      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 Single
      Try
         number = Single.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
   End Sub
End Module

   
  

Related examples in the same category