VB.NET Console.Write方法代碼示例

' This code example demonstrates the Console.WriteLine() method.
' Formatting for this example uses the "en-US" culture.

Class Sample
   Public Enum Color
      Yellow = 1
      Blue = 2
      Green = 3
   End Enum 'Color
   Private Shared thisDate As DateTime = DateTime.Now
   
   Public Shared Sub Main()
      Console.Clear()

      ' Format a negative integer or floating-point number in various ways.
      Console.WriteLine("Standard Numeric Format Specifiers")
      Console.WriteLine("(C) Currency: . . . . . . . . {0:C}" & vbCrLf & _
                        "(D) Decimal:. . . . . . . . . {0:D}" & vbCrLf & _
                        "(E) Scientific: . . . . . . . {1:E}" & vbCrLf & _
                        "(F) Fixed point:. . . . . . . {1:F}" & vbCrLf & _
                        "(G) General:. . . . . . . . . {0:G}" & vbCrLf & _
                        "    (default):. . . . . . . . {0} (default = 'G')" & vbCrLf & _
                        "(N) Number: . . . . . . . . . {0:N}" & vbCrLf & _
                        "(P) Percent:. . . . . . . . . {1:P}" & vbCrLf & _
                        "(R) Round-trip: . . . . . . . {1:R}" & vbCrLf & _
                        "(X) Hexadecimal:. . . . . . . {0:X}" & vbCrLf, _
                        - 123, - 123.45F)

      ' Format the current date in various ways.
      Console.WriteLine("Standard DateTime Format Specifiers")
      Console.WriteLine("(d) Short date: . . . . . . . {0:d}" & vbCrLf & _
                        "(D) Long date:. . . . . . . . {0:D}" & vbCrLf & _
                        "(t) Short time: . . . . . . . {0:t}" & vbCrLf & _
                        "(T) Long time:. . . . . . . . {0:T}" & vbCrLf & _
                        "(f) Full date/short time: . . {0:f}" & vbCrLf & _
                        "(F) Full date/long time:. . . {0:F}" & vbCrLf & _
                        "(g) General date/short time:. {0:g}" & vbCrLf & _
                        "(G) General date/long time: . {0:G}" & vbCrLf & _
                        "    (default):. . . . . . . . {0} (default = 'G')" & vbCrLf & _
                        "(M) Month:. . . . . . . . . . {0:M}" & vbCrLf & _
                        "(R) RFC1123:. . . . . . . . . {0:R}" & vbCrLf & _
                        "(s) Sortable: . . . . . . . . {0:s}" & vbCrLf & _
                        "(u) Universal sortable: . . . {0:u} (invariant)" & vbCrLf & _
                        "(U) Universal full date/time: {0:U}" & vbCrLf & _
                        "(Y) Year: . . . . . . . . . . {0:Y}" & vbCrLf, _
                        thisDate)

      ' Format a Color enumeration value in various ways.
      Console.WriteLine("Standard Enumeration Format Specifiers")
      Console.WriteLine("(G) General:. . . . . . . . . {0:G}" & vbCrLf & _
                        "    (default):. . . . . . . . {0} (default = 'G')" & vbCrLf & _
                        "(F) Flags:. . . . . . . . . . {0:F} (flags or integer)" & vbCrLf & _
                        "(D) Decimal number: . . . . . {0:D}" & vbCrLf & _
                        "(X) Hexadecimal:. . . . . . . {0:X}" & vbCrLf, _
                        Color.Green)
   End Sub
End Class

Public Class FormatConverter
   Public Shared Sub Main()
      Dim lineInput As String = Console.ReadLine()
      While Not lineInput Is Nothing
         Dim fields As String() = lineInput.Split(ControlChars.Tab)
         Dim isFirstField As Boolean = True
         For Each item As String In fields
            If isFirstField Then
               isFirstField = False
            Else
               Console.Write(",")
            End If
            ' If the field represents a boolean, replace with a numeric representation.
            Dim itemBool As Boolean
            If Boolean.TryParse(item, itemBool)
                Console.Write(Convert.ToByte(itemBool))
            Else
                Console.Write(item)
            End If
         Next
         Console.WriteLine()
         lineInput = Console.ReadLine()
      End While
   End Sub
End Class

Public Class Person
   Public Property Name As String
   Public Property BirthDate As DateTime
   Public Property Height As Double
   Public Property Weight As Double
   Public Property Gender As Char
   Public Property Remarks As String
   
   Public Function GetDescription() As Object()
      Return { Name, Gender, Height, Weight, BirthDate}
   End Function
End Class

Module Example
   Public Sub Main()
      Dim p1 As New Person() With { .Name = "John", .Gender = "M"c,
                                    .BirthDate = New DateTime(1992, 5, 10), 
                                    .Height = 73.5, .Weight = 207 }
      p1.Remarks = "Client since 1/3/2012"
      Console.Write("{0}: {1}, born {4:d}  Height {2} inches, Weight {3} lbs  ", 
                    p1.GetDescription())
      If String.IsNullOrEmpty(p1.Remarks) Then
         Console.WriteLine()
      Else
         Console.WriteLine("{1}Remarks: {0}", p1.Remarks,
                           If(Console.CursorLeft + p1.Remarks.Length + 10 > Console.WindowWidth,
                              vbCrLf + "   ", ""))
      End If   
   End Sub
End Module

Public Class Person
   Public Property Name As String
   Public Property BirthDate As DateTime
   Public Property Height As Double
   Public Property Weight As Double
   Public Property Gender As Char
   Public Property Remarks As String
   
   Public Function GetDescription() As Object()
      Return { Name, Gender, Height, Weight, BirthDate}
   End Function
End Class

Module Example
   Public Sub Main()
      Dim p1 As New Person() With { .Name = "John", .Gender = "M"c,
                                    .BirthDate = New DateTime(1992, 5, 10), 
                                    .Height = 73.5, .Weight = 207 }
      p1.Remarks = "Client since 1/3/2012"
      Console.Write("{0}: {1}, born {2:d}  Height {3} inches, Weight {4} lbs  ", 
                    p1.Name, p1.Gender, p1.BirthDate, p1.Height, p1.Weight)
      If String.IsNullOrEmpty(p1.Remarks) Then
         Console.WriteLine()
      Else
         Console.WriteLine("{1}Remarks: {0}", p1.Remarks,
                           If(Console.CursorLeft + p1.Remarks.Length + 10 > Console.WindowWidth,
                              vbCrLf + "   ", ""))
      End If   
   End Sub
End Module