VB.NET還是比較常用的，于是我研究了一下VB.NET PadLeft方法，在這里拿出來和大家分享一下，希望對大家有用。

在VB.NET中，當(dāng)你需要在控制臺顯示數(shù)據(jù)或準(zhǔn)備好打印數(shù)據(jù)時，可能需要調(diào)整列寬以顯示固定長度的數(shù)據(jù)。本文介紹了使用String對象的VB.NET PadLeft方法擴充字符串以進行固定寬度顯示。

VB.NET PadLeft方法

PadLeft和PadRight是字符串類的兩個方法，可以分別使用它們在字符串的左邊和右邊填充空格。這兩個方法多接受一個代表總長度的整型數(shù)，添加的空格數(shù)等于填充總長度減去字符串的當(dāng)前長度。

注意：在完成將字符串格式化為固定寬度顯示的工作時，應(yīng)該使用固定寬度的字體，例如Courier等，因為固定寬度的字符占有相同的寬度。否則，填充將會無效。

程序員經(jīng)常使用的另一個替代方法是使用tab字符來獲得近似固定寬度顯示格式。使用tabs的一個問題是，當(dāng)某行長度比能夠顯示的長度長時，將會對tab進行擴展，這將導(dǎo)致各行不能很好對齊。

列表A中，我們?yōu)榇蠹医榻B了如何使用VB.NET PadLeft方法顯示字符串。（為了運行該例子，我們添加了一個下拉列表ListBox1并將它的字體設(shè)置為固定寬度的字體）圖1顯示了運行列表A中的代碼后的結(jié)果。

在本例中，我們定義了一個整型變量i和兩個字符串?dāng)?shù)組：strArrSeasons和strArrWeather.每個數(shù)組賦初值為預(yù)定義好的值；然后，我們將每個數(shù)組傳遞給函數(shù)PadArray，并指定在字符串的左側(cè)擴充。

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 

【編輯推薦】

1. 全面講解VB.Net賦值語句
2. 簡單講述VB.NET TextBox組件
3. VB.NET Shared變量經(jīng)驗總結(jié)
4. 淺析VB.NET創(chuàng)建PPC客戶端程序
5. VB.NET重新申明數(shù)組簡介