VB.NET中如何扩充字符串进行固定宽度显示

Private Sub PadStrings()

        Dim i As Integer = 0

        Dim strArrSeasons() AsString = {"Winter", "Spring", "Summer", "Fall"}

        Dim strArrWeather() AsString = {"Cold", "Warm", "Hot", "Cool"}

        PadArray(strArrSeasons, True)

        PadArray(strArrWeather, False)

        Dim strAll As String

        For i = 0 To strArrSeasons.length – 1

            ListBox1.Items.Add(strArrSeasons(i) & "  " & strArrWeather(i))

        Next

End Sub

Private Sub PadArray(ByRef strArray() As String, ByVal bPadLeft As Boolean)

        Dim i As Integer = 0

        Dim iMaxLength As Integer = 0

        Dim strItem As String

        For Each strItem In strArray

            If strItem.Length > iMaxLength Then iMaxLength = strItem.Length

        Next

        For i = 0 To strArray.Length – 1

            If bPadLeft = TrueThen

                strArray(i) = strArray(i).PadLeft(iMaxLength)

            Else

                strArray(i) = strArray(i).PadRight(iMaxLength)

            End If

        Next

End Sub