本文整理汇总了VB.NET中System.UInt16.TryParse方法的典型用法代码示例。如果您正苦于以下问题：VB.NET UInt16.TryParse方法的具体用法？VB.NET UInt16.TryParse怎么用？VB.NET UInt16.TryParse使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了UInt16.TryParse方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: numericStrings
Dim numericStrings() As String = {"1293.8", "+1671.7", "28347.",
" 33113684 ", "(0)", "-0", "-1",
"+1293617", "18-", "119870",
"31,024", " 3127094 ", "0070000" }
Dim number As UInteger
For Each numericString As String In numericStrings
If UInt32.TryParse(numericString, number) Then
Console.WriteLine("Converted '{0}' to {1}.", numericString, number)
Else
Console.WriteLine("Cannot convert '{0}' to a UInt32.", numericString)
End If
Next输出：
Cannot convert '1293.8' to a UInt32. Cannot convert '+1671.7' to a UInt32. Cannot convert '28347.' to a UInt32. Converted ' 33113684 ' to 33113684. Cannot convert '(0)' to a UInt32. Converted '-0' to 0. Cannot convert '-1' to a UInt32. Converted '+1293617' to 1293617. Cannot convert '18-' to a UInt32. Converted '119870' to 119870. Cannot convert '31,024' to a UInt32. Converted ' 3127094 ' to 3127094. Converted '0070000' to 70000.
示例2: Example
' 导入命名空间
Imports System.Globalization
Module Example
Public Sub Main()
Dim numericString As String
Dim styles As NumberStyles
numericString = "10603"
styles = NumberStyles.Integer
CallTryParse(numericString, styles)
numericString = "-10603"
styles = NumberStyles.None
CallTryParse(numericString, styles)
numericString = "29103.00"
styles = NumberStyles.Integer Or NumberStyles.AllowDecimalPoint
CallTryParse(numericString, styles)
numericString = "10345.72"
styles = NumberStyles.Integer Or NumberStyles.AllowDecimalPoint
CallTryParse(numericString, styles)
numericString = "2210E-01"
styles = NumberStyles.Integer Or NumberStyles.AllowExponent
CallTryParse(numericString, styles)
numericString = "9112E-01"
CallTryParse(numericString, styles)
numericString = "312E01"
CallTryParse(numericString, styles)
numericString = "FFC8"
CallTryParse(numericString, NumberStyles.HexNumber)
numericString = "0x8F8C"
CallTryParse(numericString, NumberStyles.HexNumber)
End Sub
Private Sub CallTryParse(stringToConvert As String, styles AS NumberStyles)
Dim number As UShort
Dim result As Boolean = UInt16.TryParse(stringToConvert, styles, _
CultureInfo.InvariantCulture, number)
If result Then
Console.WriteLine("Converted '{0}' to {1}.", stringToConvert, number)
Else
Console.WriteLine("Attempted conversion of '{0}' failed.", _
Convert.ToString(stringToConvert))
End If
End Sub
End Module输出：
Converted '10603' to 10603. Attempted conversion of '-10603' failed. Converted '29103.00' to 29103. Attempted conversion of '10345.72' failed. Converted '2210E-01' to 221. Attempted conversion of '9112E-01' failed. Converted '312E01' to 3120. Converted 'FFC8' to 65480. Attempted conversion of '0x8F8C' failed.