Permalink
Fetching contributors…
Cannot retrieve contributors at this time
40 lines (35 sloc) 1.17 KB
' <Snippet2>
Imports System.Globalization
Public Module NumericLibrary
Public Function ParseInteger(value As String) As (Success As Boolean, Number As Int32)
Dim number As Integer
Return (Int32.TryParse(value, NumberStyles.Any, CultureInfo.InvariantCulture, number), number)
End Function
End Module
' </Snippet2>
Module Module1
Sub Main()
StandardMethodCall()
Console.WriteLine()
MethodCallWithTuple()
Console.ReadLine()
End Sub
Private Sub StandardMethodCall()
' <Snippet1>
Dim numericString As String = "123456"
Dim number As Integer
Dim result = Int32.TryParse(numericString, number)
Console.WriteLine($"{IIf(result, $"Success: {number:N0}", "Failure")}")
' Output: 123,456
' </Snippet1>
End Sub
Private Sub MethodCallWithTuple()
' <Snippet3>
Dim numericString As String = "123,456"
Dim result = ParseInteger(numericString)
Console.WriteLine($"{IIf(result.Success, $"Success: {result.Number:N0}", "Failure")}")
Console.ReadLine()
' Output: Success: 123,456
' </Snippet3>
End Sub
End Module