当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET TextInfo.ReadOnly方法代码示例

本文整理汇总了VB.NET中System.Globalization.TextInfo.ReadOnly方法的典型用法代码示例。如果您正苦于以下问题:VB.NET TextInfo.ReadOnly方法的具体用法?VB.NET TextInfo.ReadOnly怎么用?VB.NET TextInfo.ReadOnly使用的例子?那么, 这里精选的方法代码示例或许可以为您提供帮助。


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

示例1: Sample

' This example demonstrates the TextInfo.Clone() and
' TextInfo.ReadOnly() methods.

Imports System.Globalization

Class Sample
    Public Shared Sub Main() 
        ' Get the TextInfo of a predefined culture that ships with 
        ' the .NET Framework.
        Dim ci As New CultureInfo("en-US")
        Dim ti1 As TextInfo = ci.TextInfo
        
        ' Display whether the TextInfo is read-only or not.
        DisplayReadOnly("1) The original TextInfo object", ti1)
        Console.WriteLine()
        
        ' Create a clone of the original TextInfo and cast the clone to a TextInfo type.
        Console.WriteLine("2a) Create a clone of the original TextInfo object...")
        Dim ti2 As TextInfo = CType(ti1.Clone(), TextInfo)
        
        ' Display whether the clone is read-only.
        DisplayReadOnly("2b) The TextInfo clone", ti2)
        
        ' Set the ListSeparator property on the TextInfo clone.
        Console.WriteLine("2c) The original value of the clone's ListSeparator " & _
                          "property is ""{0}"".", ti2.ListSeparator)
        ti2.ListSeparator = "/"
        Console.WriteLine("2d) The new value of the clone's ListSeparator " & _ 
                          "property is ""{0}""." & vbCrLf, ti2.ListSeparator)
        
        ' Create a read-only clone of the original TextInfo.
        Console.WriteLine("3a) Create a read-only clone of the original TextInfo object...")
        Dim ti3 As TextInfo = TextInfo.ReadOnly(ti1)
        
        ' Display whether the read-only clone is actually read-only.
        DisplayReadOnly("3b) The TextInfo clone", ti3)
        
        ' Try to set the ListSeparator property of a read-only TextInfo object. Use the
        ' IsReadOnly property again to determine whether to attempt the set operation. You 
        ' could use a try-catch block instead and catch an InvalidOperationException when
        ' the set operation fails, but that programming technique is inefficient.
        Console.WriteLine("3c) Try to set the read-only clone's LineSeparator property.")
        If ti3.IsReadOnly = True Then
            Console.WriteLine("3d) The set operation is invalid.")
        Else
            ' This clause is not executed.
            ti3.ListSeparator = "/"
            Console.WriteLine("3d) The new value of the clone's ListSeparator " & _ 
                              "property is ""{0}""." & vbCrLf, ti2.ListSeparator)
        End If
    
    End Sub
    
    Private Shared Sub DisplayReadOnly(ByVal caption As String, ByVal ti As TextInfo)
        Dim middle As String
        If ti.IsReadOnly = True Then
            middle = ""
        Else 
            middle = "not "
        End If        
        Console.WriteLine("{0} is {1}read-only.", caption, middle)
    End Sub
End Class
开发者ID:VB.NET开发者,项目名称:System.Globalization,代码行数:63,代码来源:TextInfo.ReadOnly

输出:

1) The original TextInfo object is not read-only.

2a) Create a clone of the original TextInfo object...
2b) The TextInfo clone is not read-only.
2c) The original value of the clone's ListSeparator property is ",".
2d) The new value of the clone's ListSeparator property is "/".

3a) Create a read-only clone of the original TextInfo object...
3b) The TextInfo clone is read-only.
3c) Try to set the read-only clone's LineSeparator property.
3d) The set operation is invalid.


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