PadLeft例子

    Private Sub PadRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PadRight.Click
        Dim sAE As String = ""
        Dim sAG As String = ""
        Dim testAE As String = ""
        Dim testEA As String = ""

        sAE = "ABCDE"
        sAG = "ABCDEFG"
        testAE = sAE.PadRight(7, "_")
        testEA = sAE.PadLeft(7, "_")

        MsgBox(sAG & vbCrLf & sAE & vbCrLf & testAE & vbCrLf & testEA & vbCrLf & sAG)
    End Sub