Mega Code Archive

 

Categories / VB.Net Tutorial / Data Type

 

String Pad

public class Test    public Shared Sub Main         Dim strLeftPad, strRightPad As String         strLeftPad = "[" & "Visual Basic Express".PadLeft(28) & "]"         strRightPad = "[" & "Visual Basic Express".PadRight(28) & "]"         Console.WriteLine(strLeftPad & vbCrLf & strRightPad)         strLeftPad = "[" & "Visual Basic Express".PadLeft(28, "@") & "]"         strRightPad = "[" & "Visual Basic Express".PadRight(28, ".") & "]"         Console.WriteLine(strLeftPad & vbCrLf & strRightPad)    End Sub End class [ Visual Basic Express] [Visual Basic Express ] [@@@@@@@@Visual Basic Express] [Visual Basic Express........]