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

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

VB.NET PadLeft方法

PadLeft和PadRight是字符串類的兩個(gè)方法，可以分別使用它們?cè)谧址淖筮吅陀疫吿畛淇崭瘛＿@兩個(gè)方法多接受一個(gè)代表總長(zhǎng)度的整型數(shù)，添加的空格數(shù)等于填充總長(zhǎng)度減去字符串的當(dāng)前長(zhǎng)度。

注意：在完成將字符串格式化為固定寬度顯示的工作時(shí)，應(yīng)該使用固定寬度的字體，例如Courier等，因?yàn)楣潭▽挾鹊淖址加邢嗤膶挾?。否則，填充將會(huì)無(wú)效。

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

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

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

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賦值語(yǔ)句
2. 簡(jiǎn)單講述VB.NET TextBox組件
3. VB.NET Shared變量經(jīng)驗(yàn)總結(jié)
4. 淺析VB.NET創(chuàng)建PPC客戶端程序
5. VB.NET重新申明數(shù)組簡(jiǎn)介