Mega Code Archive

 

Categories / VB.Net / Data Types

 

NumberStyles AllowDecimalPoint

Imports System.Globalization Imports System.Threading Module Example    Public Sub Main()         Dim value As String         Dim style As NumberStyles         Dim culture As CultureInfo         Dim number As Double         value = "1345,978"         style = NumberStyles.AllowDecimalPoint         culture = CultureInfo.CreateSpecificCulture("fr-FR")         If Double.TryParse(value, style, culture, number) Then            Console.WriteLine("Converted '{0}' to {1}.", value, number)         Else            Console.WriteLine("Unable to convert '{0}'.", value)         End If        End Sub End Module