• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

VB.NET Convert.ToUInt32方法代码示例

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

本文整理汇总了VB.NET中System.Convert.ToUInt32方法的典型用法代码示例。如果您正苦于以下问题:VB.NET Convert.ToUInt32方法的具体用法?VB.NET Convert.ToUInt32怎么用?VB.NET Convert.ToUInt32使用的例子?那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在System.Convert的用法示例。



在下文中一共展示了Convert.ToUInt32方法的20个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于我们的系统推荐出更棒的VB.NET代码示例。

示例1: values

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 UInteger

For Each value As Single In values
   Try
      result = Convert.ToUInt32(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 UInt32 type.", _
                        value.GetType().Name, value)
   End Try   
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:14,代码来源:Convert.ToUInt32

输出:

The Single value -3.402823E+38 is outside the range of the UInt32 type.
The Single value -1.38E+10 is outside the range of the UInt32 type.
The Single value -1023.299 is outside the range of the UInt32 type.
The Single value -12.98 is outside the range of the UInt32 type.
Converted the Single value 0 to the UInt32 value 0.
Converted the Single value 9.113E-16 to the UInt32 value 0.
Converted the Single value 103.919 to the UInt32 value 104.
Converted the Single value 17834.19 to the UInt32 value 17834.
The Single value 3.402823E+38 is outside the range of the UInt32 type.


示例2: Example

' 导入命名空间
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 numeric strings.
      Dim values() As String = { "123456789", "+123456789", "pos 123456789", _
                                 "123456789.", "123,456,789",  "4294967295", _
                                 "4294967296", "-1", "neg 1" }

      For Each value As String In values
         Console.Write("{0,-20} -->", value)
         Try
            Console.WriteLine("{0,20}", Convert.ToUInt32(value, provider))
         Catch e As FormatException
            Console.WriteLine("{0,20}", "Bad Format")
         Catch e As OverflowException
            Console.WriteLine("{0,20}", "Numeric Overflow")
         End Try   
      Next
    End Sub 
End Module
开发者ID:VB.NET开发者,项目名称:System,代码行数:28,代码来源:Convert.ToUInt32

输出:

123456789            -->           123456789
+123456789           -->          Bad Format
pos 123456789        -->           123456789
123456789.           -->          Bad Format
123,456,789          -->          Bad Format
4294967295           -->          4294967295
4294967296           -->    Numeric Overflow
-1                   -->          Bad Format
neg 1                -->    Numeric Overflow


示例3: ArgumentException

' 导入命名空间
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 > 8 Then
            Throw New ArgumentException("The string representation of a 32-bit integer cannot have more than 8 characters.")
         Else If Not Regex.IsMatch(value, "([0-9,A-F]){1,8}", RegexOptions.IgnoreCase) Then
            Throw New ArgumentException("The hexadecimal representation of a 32-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.ToInt32(hexString, 16))) 
      Else
         Try
            Return Byte.Parse(hexString, NumberStyles.HexNumber)
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is out of range of the Byte type.", Convert.ToUInt32(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.ToInt32(hexString, 16)))
      End If
      
      Try
         Dim codePoint As UInt16 = UInt16.Parse(Me.hexString, NumberStyles.HexNumber)
         Return Convert.ToChar(codePoint)
      Catch e As OverflowException
         Throw New OverflowException(String.Format("{0} is out of range of the Char type.", Convert.ToUInt32(hexString, 16)))
      End Try      
   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 Integer = Int32.Parse(hexString, NumberStyles.HexNumber)
         Return Convert.ToDecimal(hexValue)
      Else
         Dim hexValue As UInteger = UInt32.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(Int32.Parse(hexString, NumberStyles.HexNumber))
      Else
         Return Convert.ToDouble(UInt32.Parse(hexString, NumberStyles.HexNumber))
      End If   
   End Function   
   
   Public Function ToInt16(provider As IFormatProvider) As Int16 _
                   Implements IConvertible.ToInt16
      If signBit = SignBit.Negative Then
         Try
            Return Convert.ToInt16(Int32.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is out of range of the Int16 type.", Convert.ToInt32(hexString, 16)), e)
         End Try
      Else
         Try
            Return Convert.ToInt16(UInt32.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is out of range of the Int16 type.", Convert.ToUInt32(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 Int32.Parse(hexString, NumberStyles.HexNumber)
      Else
         Try
            Return Convert.ToInt32(UInt32.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is out of range of the Int32 type.", Convert.ToUInt32(hexString, 16)), e)
         End Try   
      End If   
   End Function
   
   Public Function ToInt64(provider As IFormatProvider) As Int64 _
                   Implements IConvertible.ToInt64
      If signBit = SignBit.Negative Then
         Return Convert.ToInt64(Int32.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(Int32.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is outside the range of the SByte type.", _
                                                      Int32.Parse(hexString, NumberStyles.HexNumber), e))
         End Try
      Else
         Try
            Return Convert.ToSByte(UInt32.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is outside the range of the SByte type.", _
                                                    UInt32.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(Int32.Parse(hexString, NumberStyles.HexNumber))
      Else
         Return Convert.ToSingle(UInt32.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.", _
                                                   Int32.Parse(hexString, NumberStyles.HexNumber)))
      Else
         Try
            Return Convert.ToUInt16(UInt32.Parse(hexString, NumberStyles.HexNumber))
         Catch e As OverflowException
            Throw New OverflowException(String.Format("{0} is out of range of the UInt16 type.", Convert.ToUInt32(hexString, 16)), e)
         End Try            
      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.", _
                                                   Int32.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.", _
                                                   Int32.Parse(hexString, NumberStyles.HexNumber)))
      Else
         Return Convert.ToUInt64(hexString, 16)
      End If   
   End Function
   
End Structure
开发者ID:VB.NET开发者,项目名称:System,代码行数:252,代码来源:Convert.ToUInt32


示例4: Example

Module Example
   Public Sub Main()
      Dim positiveValue As UInt32 = 320000000
      Dim negativeValue As Int32 = -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.ToUInt32(positiveString))
      Catch e As OverflowException
         Console.WriteLine("{0} is outside the range of the UInt32 type.", _
                           Int32.Parse(positiveString.Value, NumberStyles.HexNumber))
      End Try

      Try
         Console.WriteLine("0x{0} converts to {1}.", negativeString.Value, Convert.ToUInt32(negativeString))
      Catch e As OverflowException
         Console.WriteLine("{0} is outside the range of the UInt32 type.", _
                           Int32.Parse(negativeString.Value, NumberStyles.HexNumber))
      End Try   
   End Sub
End Module
开发者ID:VB.NET开发者,项目名称:System,代码行数:29,代码来源:Convert.ToUInt32

输出:

0x1312D000 converts to 320000000.
-1 is outside the range of the UInt32 type.


示例5: Example

Module Example
   Public Sub Main()
      Dim hexStrings() As String = { "80000000", "0FFFFFFF", "F0000000", "00A3000", "D", _
                                     "-13", "9AC61", "GAD", "FFFFFFFFFF" }
      For Each hexString As String In hexStrings
         Console.Write("{0,-12}  -->  ", hexString)
         Try
            Dim number As UInteger = Convert.ToUInt32(hexString, 16)
            Console.WriteLine("{0,18:N0}", number)
         Catch e As FormatException
            Console.WriteLine("{0,18}", "Bad Format")
         Catch e As OverflowException
            Console.WriteLine("{0,18}", "Numeric Overflow")
         Catch e As ArgumentException
            Console.WriteLine("{0,18}", "Invalid in Base 16")
         End Try
      Next                                            
   End Sub
End Module
开发者ID:VB.NET开发者,项目名称:System,代码行数:19,代码来源:Convert.ToUInt32

输出:

80000000      -->       2,147,483,648
0FFFFFFF      -->         268,435,455
F0000000      -->       4,026,531,840
00A3000       -->             667,648
D             -->                  13
-13           -->  Invalid in Base 16
9AC61         -->             633,953
GAD           -->          Bad Format
FFFFFFFFFF    -->    Numeric Overflow


示例6:

' Create a hexadecimal value out of range of the UInt32 type.
Dim value As String = Convert.ToString(Integer.MinValue, 16)
' Convert it back to a number.
Try
   Dim number As UInt32 = Convert.ToUInt32(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 integer.", _
                     value)
End Try
开发者ID:VB.NET开发者,项目名称:System,代码行数:10,代码来源:Convert.ToUInt32


示例7: And

' Create a negative hexadecimal value out of range of the UInt32 type.
Dim sourceNumber As Integer = Integer.MinValue
Dim isSigned As Boolean = Math.Sign(sourceNumber.MinValue) = -1
Dim value As String = Convert.ToString(sourceNumber, 16)
Dim targetNumber As UInt32
Try
   targetNumber = Convert.ToUInt32(value, 16)
   If isSigned And ((targetNumber And &H80000000) <> 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 integer.", _
                     value)
End Try 
' Displays the following to the console:
'    Unable to convert '0x80000000' to an unsigned integer.
开发者ID:VB.NET开发者,项目名称:System,代码行数:18,代码来源:Convert.ToUInt32


示例8: numbers

Dim numbers() As ULong = { UInt64.MinValue, 121, 340, UInt64.MaxValue }
Dim result As UInteger

For Each number As ULong In numbers
   Try
      result = Convert.ToUInt32(number)
      Console.WriteLine("Converted the {0} value {1} to a {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 UInt32 type.", _
                        number.GetType().Name, number)
   End Try
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:14,代码来源:Convert.ToUInt32

输出:

Converted the UInt64 value 0 to a UInt32 value 0.
Converted the UInt64 value 121 to a UInt32 value 121.
Converted the UInt64 value 340 to a UInt32 value 340.
The UInt64 value 18446744073709551615 is outside the range of the UInt32 type.


示例9: numbers

Dim numbers() As UShort = { UInt16.MinValue, 121, 340, UInt16.MaxValue }
Dim result As UInteger

For Each number As UShort In numbers
   result = Convert.ToUInt32(number)
   Console.WriteLine("Converted the {0} value {1} to the {2} value {3}.", _
                     number.GetType().Name, number, _
                     result.GetType().Name, result)
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:9,代码来源:Convert.ToUInt32

输出:

Converted the UInt16 value 0 to the UInt32 value 0.
Converted the UInt16 value 121 to the UInt32 value 121.
Converted the UInt16 value 340 to the UInt32 value 340.
Converted the UInt16 value 65535 to the UInt32 value 65535.


示例10: values

Dim values() As String = { "One", "1.34e28", "-26.87", "-18", "-6.00", _
                           " 0", "137", "1601.9", Int32.MaxValue.ToString() }
Dim result As UInteger

For Each value As String In values
   Try
      result = Convert.ToUInt32(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 UInt32 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)
   End Try   
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:17,代码来源:Convert.ToUInt32

输出:

The String value 'One' is not in a recognizable format.
The String value '1.34e28' is not in a recognizable format.
The String value '-26.87' is not in a recognizable format.
The String value -18 is outside the range of the UInt32 type.
The String value '-6.00' is not in a recognizable format.
Converted the String value ' 0' to the UInt32 value 0.
Converted the String value '137' to the UInt32 value 137.
The String value '1601.9' is not in a recognizable format.
Converted the String value '2147483647' to the UInt32 value 2147483647.


示例11: numbers

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

For Each number As SByte In numbers
   Try
      result = Convert.ToUInt32(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 UInt32 type.", _
                        number.GetType().Name, number)         
   End Try
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:14,代码来源:Convert.ToUInt32

输出:

The SByte value -128 is outside the range of the UInt32 type.
The SByte value -1 is outside the range of the UInt32 type.
Converted the SByte value 0 to the UInt32 value 0.
Converted the SByte value 10 to the UInt32 value 10.
Converted the SByte value 127 to the UInt32 value 127.


示例12: chars

Dim chars() As Char = { "a"c, "z"c, ChrW(7), ChrW(1023), _
                        ChrW(Short.MaxValue), ChrW(&hFFFE) }
Dim result As UInteger
                        
For Each ch As Char in chars
   result = Convert.ToUInt32(ch)
   Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _
                     ch.GetType().Name, ch, _
                     result.GetType().Name, result)
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:10,代码来源:Convert.ToUInt32

输出:

Converted the Char value 'a' to the UInt32 value 97.
Converted the Char value 'z' to the UInt32 value 122.
Converted the Char value '' to the UInt32 value 7.
Converted the Char value '?' to the UInt32 value 1023.
Converted the Char value '?' to the UInt32 value 32767.
Converted the Char value '?' to the UInt32 value 65534.


示例13: numbers

Dim numbers() As Long = { Int64.MinValue, -1, 0, 121, 340, Int64.MaxValue }
Dim result As UInteger
For Each number As Long In numbers
   Try
      result = Convert.ToUInt32(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 UInt32 type.", _
                        number.GetType().Name, number)
   End Try
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:13,代码来源:Convert.ToUInt32

输出:

The Int64 value -9223372036854775808 is outside the range of the UInt32 type.
The Int64 value -1 is outside the range of the UInt32 type.
Converted the Int64 value 0 to the UInt32 value 0.
Converted the Int64 value 121 to the UInt32 value 121.
Converted the Int64 value 340 to the UInt32 value 340.
The Int64 value 9223372036854775807 is outside the range of the UInt32 type.


示例14: numbers

Dim numbers() As Integer = { Int32.MinValue, -1203, 0, 121, 1340, Int32.MaxValue }
Dim result As UInteger
For Each number As Integer In numbers
   Try
      result = Convert.ToUInt32(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 UInt32 type.", _
                        number.GetType().Name, number)
   End Try
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:13,代码来源:Convert.ToUInt32

输出:

The Int32 value -2147483648 is outside the range of the UInt32 type.
The Int32 value -1203 is outside the range of the UInt32 type.
Converted the Int32 value 0 to the UInt32 value 0.
Converted the Int32 value 121 to the UInt32 value 121.
Converted the Int32 value 1340 to the UInt32 value 1340.
Converted the Int32 value 2147483647 to the UInt32 value 2147483647.


示例15: numbers

Dim numbers() As Short = { Int16.MinValue, -1, 0, 121, 340, Int16.MaxValue }
Dim result As UInteger

For Each number As Short In numbers
   Try
      result = Convert.ToUInt32(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 UInt32 type.", _
                        number.GetType().Name, number) 
   End Try
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:14,代码来源:Convert.ToUInt32

输出:

The Int16 value -32768 is outside the range of the UInt32 type.
The Int16 value -1 is outside the range of the UInt32 type.
Converted the Int16 value 0 to the UInt32 value 0.
Converted the Int16 value 121 to the UInt32 value 121.
Converted the Int16 value 340 to the UInt32 value 340.
Converted the Int16 value 32767 to the UInt32 value 32767.


示例16: values

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 UInteger

For Each value As Double In values
   Try
      result = Convert.ToUInt32(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 UInt32 type.", _
                        value.GetType().Name, value)
   End Try   
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:15,代码来源:Convert.ToUInt32

输出:

The Double value -1.79769313486232E+308 is outside the range of the UInt32 type.
The Double value -13800000000 is outside the range of the UInt32 type.
The Double value -1023.299 is outside the range of the UInt32 type.
The Double value -12.98 is outside the range of the UInt32 type.
Converted the Double value '0' to the UInt32 value 0.
Converted the Double value '9.113E-16' to the UInt32 value 0.
Converted the Double value '103.919' to the UInt32 value 104.
Converted the Double value '17834.191' to the UInt32 value 17834.
The Double value 1.79769313486232E+308 is outside the range of the UInt32 type.


示例17: values

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

For Each value As Decimal In values
   Try
      result = Convert.ToUInt32(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 UInt32 type.", _
                        value)
   End Try   
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:15,代码来源:Convert.ToUInt32

输出:

-79228162514264337593543950335 is outside the range of the UInt32 type.
-1034.23 is outside the range of the UInt32 type.
-12 is outside the range of the UInt32 type.
Converted the Decimal value '0' to the UInt32 value 0.
Converted the Decimal value '147' to the UInt32 value 147.
Converted the Decimal value '199.55' to the UInt32 value 200.
Converted the Decimal value '9214.16' to the UInt32 value 9214.
79228162514264337593543950335 is outside the range of the UInt32 type.


示例18: bytes

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

For Each byteValue As Byte In bytes
   result = Convert.ToUInt32(byteValue)
   Console.WriteLine("Converted the {0} value {1} to the {2} value {3}.", _
                     byteValue.GetType().Name, byteValue, _
                     result.GetType().Name, result)
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:9,代码来源:Convert.ToUInt32

输出:

Converted the Byte value 0 to the UInt32 value 0.
Converted the Byte value 14 to the UInt32 value 14.
Converted the Byte value 122 to the UInt32 value 122.
Converted the Byte value 255 to the UInt32 value 255.


示例19:

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

Console.WriteLine("{0} converts to {1}.", falseFlag, _
                  Convert.ToUInt32(falseFlag))
Console.WriteLine("{0} converts to {1}.", trueFlag, _
                  Convert.ToUInt32(trueFlag))
开发者ID:VB.NET开发者,项目名称:System,代码行数:7,代码来源:Convert.ToUInt32

输出:

False converts to 0.
True converts to 1.


示例20: values

Dim values() As Object = { True, -12, 163, 935, "x"c, #5/12/2009#, _
                           "104", "103.0", "-1", _
                           "1.00e2", "One", 1.00e2, 16.3e42}
Dim result As UInteger

For Each value As Object In values
   Try
      result = Convert.ToUInt32(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 UInt32 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 a UInt32 exists for the {0} value {1}.", _
                        value.GetType().Name, value)
                        
   End Try
Next
开发者ID:VB.NET开发者,项目名称:System,代码行数:23,代码来源:Convert.ToUInt32

输出:

Converted the Boolean value True to the UInt32 value 1.
The Int32 value -12 is outside the range of the UInt32 type.
Converted the Int32 value 163 to the UInt32 value 163.
Converted the Int32 value 935 to the UInt32 value 935.
Converted the Char value x to the UInt32 value 120.
No conversion to a UInt32 exists for the DateTime value 5/12/2009 12:00:00 AM.
Converted the String value 104 to the UInt32 value 104.
The String value 103.0 is not in a recognizable format.
The String value -1 is outside the range of the UInt32 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 UInt32 value 100.
The Double value 1.63E+43 is outside the range of the UInt32 type.



注:本文中的System.Convert.ToUInt32方法示例整理自Github/MSDocs等源码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
VB.NET Convert.ToUInt64方法代码示例发布时间:2022-05-24
下一篇:
VB.NET Convert.ToUInt16方法代码示例发布时间:2022-05-24
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap