Dim values() As String = { "1603", "1,603", "one", "1.6e03", "1.2e-02", _
                           "-1326", "1074122" }
Dim result As UShort

For Each value As String In values
   Try
      result = Convert.ToUInt16(value)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        value.GetType().Name, value, _
                        result.GetType().Name, result)
   Catch e As FormatException
      Console.WriteLine("The {0} value {1} is not in a recognizable format.", _
                        value.GetType().Name, value)
   Catch e As OverflowException
      Console.WriteLine("{0} is outside the range of the UInt16 type.", value)
   End Try   
Next

Dim numbers() As UInteger = { UInt32.MinValue, 121, 340, UInt32.MaxValue }
Dim result As UShort
For Each number As UInteger In numbers
   Try
      result = Convert.ToUInt16(number)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        number.GetType().Name, number, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("The {0} value {1} is outside the range of the UInt16 type.", _
                        number.GetType().Name, number)
   End Try
Next

Module Example
   Public Sub Main()
      Dim hexStrings() As String = { "8000", "0FFF", "f000", "00A30", "D", _
                                     "-13", "9AC61", "GAD" }
      For Each hexString As String In hexStrings
         Try
            Dim number As UShort = Convert.ToUInt16(hexString, 16)
            Console.WriteLine("Converted '{0}' to {1:N0}.", hexString, number)
         Catch e As FormatException
            Console.WriteLine("'{0}' is not in the correct format for a hexadecimal number.", _
                              hexString)
         Catch e As OverflowException
            Console.WriteLine("'{0}' is outside the range of an Int16.", hexString)
         Catch e As ArgumentException
            Console.WriteLine("'{0}' is invalid in base 16.", hexString)
         End Try
      Next                                            
   End Sub
End Module

' Create a hexadecimal value out of range of the UInt16 type.
Dim value As String = Convert.ToString(Short.MinValue, 16)
' Convert it back to a number.
Try
   Dim number As UInt16 = Convert.ToUInt16(value, 16)
   Console.WriteLine("0x{0} converts to {1}.", value, number)
Catch e As OverflowException
   Console.WriteLine("Unable to convert '0x{0}' to an unsigned short integer.", _
                     value)
End Try

' Create a negative hexadecimal value out of range of the UInt16 type.
Dim sourceNumber As Short = Short.MinValue
Dim isSigned As Boolean = Math.Sign(sourceNumber.MinValue) = -1
Dim value As String = Convert.ToString(sourceNumber, 16)
Dim targetNumber As UInt16
Try
   targetNumber = Convert.ToUInt16(value, 16)
   If isSigned And ((targetNumber And &H8000) <> 0) Then
      Throw New OverflowException()
   Else 
      Console.WriteLine("0x{0} converts to {1}.", value, targetNumber)
   End If    
Catch e As OverflowException
   Console.WriteLine("Unable to convert '0x{0}' to an unsigned short integer.", _
                     value)
End Try 
' Displays the following to the console:
'    Unable to convert '0x8000' to an unsigned short integer.

' 导入命名空间
Imports System.Globalization
Imports System.Text.RegularExpressions

Public Enum SignBit As Integer
   Positive = 1
   Zero = 0
   Negative = -1
End Enum

Public Structure HexString : Implements IConvertible
   Private signBit As SignBit
   Private hexString As String
   
   Public Property Sign As SignBit
      Set
         signBit = value
      End Set
      Get
         Return signBit
      End Get
   End Property
   
   Public Property Value As String
      Set
         If value.Trim().Length > 4 Then
            Throw New ArgumentException("The string representation of a 16-bit integer cannot have more than four characters.")
         Else If Not Regex.IsMatch(value, "([0-9,A-F]){1,4}", RegexOptions.IgnoreCase) Then
            Throw New ArgumentException("The hexadecimal representation of a 16-bit integer contains invalid characters.")             
         Else
            hexString = value
         End If   
      End Set
      Get
         Return hexString
      End Get
   End Property
   
   ' IConvertible implementations.
   Public Function GetTypeCode() As TypeCode _
                   Implements IConvertible.GetTypeCode
      Return TypeCode.Object
   End Function
   
   Public Function ToBoolean(provider As IFormatProvider) As Boolean _
                   Implements IConvertible.ToBoolean
      Return signBit <> SignBit.Zero             
   End Function 
   
   Public Function ToByte(provider As IFormatProvider) As Byte _
                   Implements IConvertible.ToByte
      If signBit = signBit.Negative Then
         Throw New OverflowException(String.Format("{0} is out of range of the Byte type.", Convert.ToInt16(hexString, 16))) 
      Else
         Try
            Return Convert.ToByte(Int16.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is out of range of the UInt16 type.", Convert.ToUInt16(hexString, 16)), e)
         End Try   
      End If       
   End Function
   
   Public Function ToChar(provider As IFormatProvider) As Char _
                   Implements IConvertible.ToChar
      If signBit = signBit.Negative Then 
         Throw New OverflowException(String.Format("{0} is out of range of the Char type.", Convert.ToInt16(hexString, 16)))
      End If
      
      Dim codePoint As UInt16 = UInt16.Parse(Me.hexString, NumberStyles.HexNumber)
      Return Convert.ToChar(codePoint)
   End Function 
   
   Public Function ToDateTime(provider As IFormatProvider) As Date _
                   Implements IConvertible.ToDateTime
      Throw New InvalidCastException("Hexadecimal to DateTime conversion is not supported.")
   End Function
   
   Public Function ToDecimal(provider As IFormatProvider) As Decimal _
                   Implements IConvertible.ToDecimal
      If signBit = signBit.Negative Then
         Dim hexValue As Short = Int16.Parse(hexString, NumberStyles.HexNumber)
         Return Convert.ToDecimal(hexValue)
      Else
         Dim hexValue As UShort = UInt16.Parse(hexString, NumberStyles.HexNumber)
         Return Convert.ToDecimal(hexValue)
      End If
   End Function
   
   Public Function ToDouble(provider As IFormatProvider) As Double _
                   Implements IConvertible.ToDouble
      If signBit = signBit.Negative Then
         Return Convert.ToDouble(Int16.Parse(hexString, NumberStyles.HexNumber))
      Else
         Return Convert.ToDouble(UInt16.Parse(hexString, NumberStyles.HexNumber))
      End If   
   End Function   
   
   Public Function ToInt16(provider As IFormatProvider) As Int16 _
                   Implements IConvertible.ToInt16
      If signBit = SignBit.Negative Then
         Return Int16.Parse(hexString, NumberStyles.HexNumber)
      Else
         Try
            Return Convert.ToInt16(UInt16.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is out of range of the Int16 type.", Convert.ToUInt16(hexString, 16)), e)
         End Try
      End If   
   End Function
   
   Public Function ToInt32(provider As IFormatProvider) As Int32 _
                   Implements IConvertible.ToInt32
      If signBit = SignBit.Negative Then
         Return Convert.ToInt32(Int16.Parse(hexString, NumberStyles.HexNumber))
      Else
         Return Convert.ToInt32(UInt16.Parse(hexString, NumberStyles.HexNumber))
      End If   
   End Function
   
   Public Function ToInt64(provider As IFormatProvider) As Int64 _
                   Implements IConvertible.ToInt64
      If signBit = signBit.Negative Then
         Return Convert.ToInt64(Int16.Parse(hexString, NumberStyles.HexNumber))
      Else
         Return Int64.Parse(hexString, NumberStyles.HexNumber)
      End If   
   End Function
   
   Public Function ToSByte(provider As IFormatProvider) As SByte _
                   Implements IConvertible.ToSByte
      If signBit = signBit.Negative Then
         Try
            Return Convert.ToSByte(Int16.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is outside the range of the SByte type.", _
                                                      Int16.Parse(hexString, NumberStyles.HexNumber), e))
         End Try
      Else
         Try
            Return Convert.ToSByte(UInt16.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is outside the range of the SByte type.", _
                                                    UInt16.Parse(hexString, NumberStyles.HexNumber)), e)
         End Try   
      End If
   End Function

   Public Function ToSingle(provider As IFormatProvider) As Single _
                   Implements IConvertible.ToSingle
      If signBit = signBit.Negative Then
         Return Convert.ToSingle(Int16.Parse(hexString, NumberStyles.HexNumber))
      Else
         Return Convert.ToSingle(UInt16.Parse(hexString, NumberStyles.HexNumber))
      End If   
   End Function

   Public Overloads Function ToString(provider As IFormatProvider) As String _
                   Implements IConvertible.ToString
      Return "0x" & Me.hexString
   End Function
   
   Public Function ToType(conversionType As Type, provider As IFormatProvider) As Object _
                   Implements IConvertible.ToType
      Select Case Type.GetTypeCode(conversionType)
         Case TypeCode.Boolean 
            Return Me.ToBoolean(Nothing)
         Case TypeCode.Byte
            Return Me.ToByte(Nothing)
         Case TypeCode.Char
            Return Me.ToChar(Nothing)
         Case TypeCode.DateTime
            Return Me.ToDateTime(Nothing)
         Case TypeCode.Decimal
            Return Me.ToDecimal(Nothing)
         Case TypeCode.Double
            Return Me.ToDouble(Nothing)
         Case TypeCode.Int16
            Return Me.ToInt16(Nothing)
         Case TypeCode.Int32
            Return Me.ToInt32(Nothing)
         Case TypeCode.Int64
            Return Me.ToInt64(Nothing)
         Case TypeCode.Object
            If GetType(HexString).Equals(conversionType) Then
               Return Me
            Else
               Throw New InvalidCastException(String.Format("Conversion to a {0} is not supported.", conversionType.Name))
            End If 
         Case TypeCode.SByte
            Return Me.ToSByte(Nothing)
         Case TypeCode.Single
            Return Me.ToSingle(Nothing)
         Case TypeCode.String
            Return Me.ToString(Nothing)
         Case TypeCode.UInt16
            Return Me.ToUInt16(Nothing)
         Case TypeCode.UInt32
            Return Me.ToUInt32(Nothing)
         Case TypeCode.UInt64
            Return Me.ToUInt64(Nothing)   
         Case Else
            Throw New InvalidCastException(String.Format("Conversion to {0} is not supported.", conversionType.Name))   
      End Select
   End Function
   
   Public Function ToUInt16(provider As IFormatProvider) As UInt16 _
                   Implements IConvertible.ToUInt16
      If signBit = signBit.Negative Then
         Throw New OverflowException(String.Format("{0} is outside the range of the UInt16 type.", _
                                                   Int16.Parse(hexString, NumberStyles.HexNumber)))
      Else
         Return Convert.ToUInt16(hexString, 16)
      End If   
   End Function

   Public Function ToUInt32(provider As IFormatProvider) As UInt32 _
                   Implements IConvertible.ToUInt32
      If signBit = signBit.Negative Then
         Throw New OverflowException(String.Format("{0} is outside the range of the UInt32 type.", _
                                                   Int16.Parse(hexString, NumberStyles.HexNumber)))
      Else
         Return Convert.ToUInt32(hexString, 16)
      End If   
   End Function
   
   Public Function ToUInt64(provider As IFormatProvider) As UInt64 _
                   Implements IConvertible.ToUInt64
      If signBit = signBit.Negative Then
         Throw New OverflowException(String.Format("{0} is outside the range of the UInt64 type.", _
                                                   Int16.Parse(hexString, NumberStyles.HexNumber)))
      Else
         Return Convert.ToUInt64(hexString, 16)
      End If   
   End Function
   
End Structure

Module Example
   Public Sub Main()
      Dim positiveValue As UInt16 = 32000
      Dim negativeValue As Int16 = -1
      
      
      Dim positiveString As New HexString()
      positiveString.Sign = CType(Math.Sign(positiveValue), SignBit)
      positiveString.Value = positiveValue.ToString("X4")
      
      Dim negativeString As New HexString()
      negativeString.Sign = CType(Math.Sign(negativeValue), SignBit)
      negativeString.Value = negativeValue.ToString("X4")
      
      Try
         Console.WriteLine("0x{0} converts to {1}.", positiveString.Value, Convert.ToUInt16(positiveString))
      Catch e As OverflowException
         Console.WriteLine("{0} is outside the range of the UInt16 type.", _
                           Int16.Parse(positiveString.Value, NumberStyles.HexNumber))
      End Try

      Try
         Console.WriteLine("0x{0} converts to {1}.", negativeString.Value, Convert.ToUInt16(negativeString))
      Catch e As OverflowException
         Console.WriteLine("{0} is outside the range of the UInt16 type.", _
                           Int16.Parse(negativeString.Value, NumberStyles.HexNumber))
      End Try   
   End Sub
End Module

' 导入命名空间
Imports System.Globalization

Module Example
   Public Sub Main()
      ' Create a NumberFormatInfo object and set several of its
      ' properties that apply to numbers.
      Dim provider As New NumberFormatInfo()
      provider.PositiveSign = "pos "
      provider.NegativeSign = "neg "

      ' Define an array of strings to convert to UInt16 values.
      Dim values() As String = { "34567", "+34567", "pos 34567", _
                                 "34567.", "34567.", "65535", _
                                 "65535", "65535" }         

      For Each value As String In values
         Console.Write("{0,-12:}  -->  ", value)
         Try
            Console.WriteLine("{0,17}", Convert.ToUInt16(value, provider))
         Catch e As FormatException       
            Console.WriteLine("{0,17}", e.GetType().Name)
         End Try     
      Next
    End Sub 
End Module

Dim values() As Single = { Single.MinValue, -1.38e10, -1023.299, -12.98, _
                           0, 9.113e-16, 103.919, 17834.191, Single.MaxValue }
Dim result As UShort

For Each value As Single In values
   Try
      result = Convert.ToUInt16(value)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        value.GetType().Name, value, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("{0} is outside the range of the UInt16 type.", value)
   End Try   
Next

Dim numbers() As ULong = { UInt64.MinValue, 121, 340, UInt64.MaxValue }
Dim result As UShort
For Each number As ULong In numbers
   Try
      result = Convert.ToUInt16(number)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        number.GetType().Name, number, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("The {0} value {1} is outside the range of the UInt16 type.", _
                        number.GetType().Name, number)
   End Try
Next

Dim numbers() As SByte = { SByte.MinValue, -1, 0, 10, SByte.MaxValue }
Dim result As UShort

For Each number As SByte In numbers
   Try
      result = Convert.ToUInt16(number)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        number.GetType().Name, number, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("{0} is outside the range of the UInt16 type.", number)
   End Try
Next

Dim values() As Double = { Double.MinValue, -1.38e10, -1023.299, -12.98, _
                           0, 9.113e-16, 103.919, 17834.191, Double.MaxValue }
Dim result As UShort

For Each value As Double In values
   Try
      result = Convert.ToUInt16(value)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        value.GetType().Name, value, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("{0} is outside the range of the UInt16 type.", value)
   End Try   
Next

Dim numbers() As Long = { Int64.MinValue, -1, 0, 121, 340, Int64.MaxValue }
Dim result As UShort
For Each number As Long In numbers
   Try
      result = Convert.ToUInt16(number)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        number.GetType().Name, number, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("The {0} value {1} is outside the range of the UInt16 type.", _
                        number.GetType().Name, number)
   End Try
Next

Dim values() As Object = { True, -12, 163, 935, "x"c, #5/12/2009#, _
                              "104", "103.0", "-1", _
                              "1.00e2", "One", 1.00e2}
   Dim result As UShort
   
   For Each value As Object In values
      Try
         result = Convert.ToUInt16(value)
         Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                           value.GetType().Name, value, _
                           result.GetType().Name, result)
      Catch e As OverflowException
         Console.WriteLine("The {0} value {1} is outside the range of the UInt16 type.", _
                           value.GetType().Name, value)
      Catch e As FormatException
         Console.WriteLine("The {0} value {1} is not in a recognizable format.", _
                           value.GetType().Name, value)
      Catch e As InvalidCastException
         Console.WriteLine("No conversion to an Int16 exists for the {0} value {1}.", _
                           value.GetType().Name, value)
                           
      End Try
   Next                           
   ' The example displays the following output:
'    Converted the Boolean value 'True' to the UInt16 value 1.
'    The Int32 value -12 is outside the range of the UInt16 type.
'    Converted the Int32 value '163' to the UInt16 value 163.
'    Converted the Int32 value '935' to the UInt16 value 935.
'    Converted the Char value 'x' to the UInt16 value 120.
'    No conversion to an Int16 exists for the DateTime value 5/12/2009 12:00:00 AM.
'    Converted the String value '104' to the UInt16 value 104.
'    The String value 103.0 is not in a recognizable format.
'    The String value -1 is outside the range of the UInt16 type.
'    The String value 1.00e2 is not in a recognizable format.
'    The String value One is not in a recognizable format.
'    Converted the Double value '100' to the UInt16 value 100.

Dim bytes() As Byte = { Byte.MinValue, 14, 122, Byte.MaxValue}
Dim result As UShort

For Each number As Byte In bytes
   result = Convert.ToUInt16(number)
   Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                     number.GetType().Name, number, _
                     result.GetType().Name, result)
Next

Dim chars() As Char = { "a"c, "z"c, ChrW(7), ChrW(1023), _
                        ChrW(Short.MaxValue), ChrW(&hFFFE) }
Dim result As UShort
                        
For Each ch As Char in chars
   result = Convert.ToUInt16(ch)
   Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                     ch.GetType().Name, ch, _
                     result.GetType().Name, result)
Next

Dim falseFlag As Boolean = False
Dim trueFlag As Boolean = True

Console.WriteLine("{0} converts to {1}.", falseFlag, _
                  Convert.ToUInt16(falseFlag))
Console.WriteLine("{0} converts to {1}.", trueFlag, _
                  Convert.ToUInt16(trueFlag))

Dim numbers() As Short = { Int16.MinValue, -132, 0, 121, 16103, Int16.MaxValue }
Dim result As UShort

For Each number As Short In numbers
   Try
      result = Convert.ToUInt16(number)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        number.GetType().Name, number, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("The {0} value {1} is outside the range of the UInt16 type.", _
                        number.GetType().Name, number)
   End Try
Next

Dim numbers() As Integer = { Int32.MinValue, -1, 0, 121, 340, Int32.MaxValue }
Dim result As UShort

For Each number As Integer In numbers
   Try
      result = Convert.ToUInt16(number)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        number.GetType().Name, number, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("The {0} value {1} is outside the range of the UInt16 type.", _
                        number.GetType().Name, number)
   End Try
Next

Dim values() As Decimal = { Decimal.MinValue, -1034.23d, -12d, 0d, 147d, _
                            9214.16d, Decimal.MaxValue }
Dim result As UShort

For Each value As Decimal In values
   Try
      result = Convert.ToUInt16(value)
      Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                        value.GetType().Name, value, _
                        result.GetType().Name, result)
   Catch e As OverflowException
      Console.WriteLine("{0} is outside the range of the UInt16 type.", _
                        value)
   End Try   
Next