當前位置: 首頁>>代碼示例>>VB.NET>>正文


VB.NET NumberFormatInfo.CurrentInfo屬性代碼示例

本文整理匯總了VB.NET中System.Globalization.NumberFormatInfo.CurrentInfo屬性的典型用法代碼示例。如果您正苦於以下問題:VB.NET NumberFormatInfo.CurrentInfo屬性的具體用法?VB.NET NumberFormatInfo.CurrentInfo怎麽用?VB.NET NumberFormatInfo.CurrentInfo使用的例子?那麽, 這裏精選的屬性代碼示例或許可以為您提供幫助。您也可以進一步了解該屬性所在System.Globalization.NumberFormatInfo的用法示例。


在下文中一共展示了NumberFormatInfo.CurrentInfo屬性的1個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。

示例1: Main

' 導入命名空間
Imports System.Collections
Imports System.Globalization
Imports System.Reflection

Public Class Example : Implements IComparer
   Public Shared Sub Main()
      Dim nfi1 As NumberFormatInfo = NumberFormatInfo.CurrentInfo
      Dim nfi2 As NumberFormatInfo = CultureInfo.CurrentCulture.NumberFormat
      Console.WriteLine("Objects equal: {0}", nfi1.Equals(nfi2))
      Console.WriteLine("Equal references: {0}", Object.ReferenceEquals(nfi1, nfi2))
      Console.WriteLine()
      
      Dim props() As PropertyInfo = nfi1.GetType().GetProperties(BindingFlags.Instance Or BindingFlags.Public)
      Array.Sort(props, New Example)
      Console.WriteLine("Properties of NumberFormat.CurrentInfo object:")
      For Each prop In props
         If prop.PropertyType.IsArray Then
            Dim arr As Array = CType(prop.GetValue(nfi1), Array)
            Console.Write(String.Format("   {0}: ", prop.Name) + "{ ")
            Dim ctr As Integer = 0
            For Each item In arr
               Console.Write("{0}{1}", item, If(ctr = arr.Length - 1, " }", ", "))
               ctr += 1
            Next
            Console.WriteLine()
         Else
            Console.WriteLine("   {0}: {1}", prop.Name, prop.GetValue(nfi1))
        End If   
      Next      
   End Sub
   
   Private Function Compare(x As Object, y As Object) As Integer _
      Implements IComparer.Compare
      
      If x Is Nothing And y Is Nothing Then Return 0
      Dim px As PropertyInfo = TryCast(x, PropertyInfo)
      If px Is Nothing Then Return -1
      
      Dim py As PropertyInfo = TryCast(y, PropertyInfo)
      If py Is Nothing Then Return 1
      
      Return String.Compare(px.Name, py.Name)
   End Function
End Class
開發者ID:VB.NET開發者,項目名稱:System.Globalization,代碼行數:45,代碼來源:NumberFormatInfo.CurrentInfo

輸出:

Objects equal: True
Equal references: True

Properties of NumberFormat.CurrentInfo object:
CurrencyDecimalDigits: 2
CurrencyDecimalSeparator: .
CurrencyGroupSeparator: ,
CurrencyGroupSizes: { 3 }
CurrencyNegativePattern: 0
CurrencyPositivePattern: 0
CurrencySymbol: $
DigitSubstitution: None
IsReadOnly: True
NaNSymbol: NaN
NativeDigits: { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }
NegativeInfinitySymbol: -Infinity
NegativeSign: -
NumberDecimalDigits: 2
NumberDecimalSeparator: .
NumberGroupSeparator: ,
NumberGroupSizes: { 3 }
NumberNegativePattern: 1
PercentDecimalDigits: 2
PercentDecimalSeparator: .
PercentGroupSeparator: ,
PercentGroupSizes: { 3 }
PercentNegativePattern: 0
PercentPositivePattern: 0
PercentSymbol: %
PerMilleSymbol: %
PositiveInfinitySymbol: Infinity
PositiveSign: +


注:本文中的System.Globalization.NumberFormatInfo.CurrentInfo屬性示例由純淨天空整理自Github/MSDocs等開源代碼及文檔管理平台,相關代碼片段篩選自各路編程大神貢獻的開源項目,源碼版權歸原作者所有,傳播和使用請參考對應項目的License;未經允許,請勿轉載。