日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

成都創(chuàng)新互聯(lián)企業(yè)建站,十多年網(wǎng)站建設(shè)經(jīng)驗(yàn)，專注于網(wǎng)站建設(shè)技術(shù)，精于網(wǎng)頁設(shè)計(jì)，有多年建站和網(wǎng)站代運(yùn)營經(jīng)驗(yàn)，設(shè)計(jì)師為客戶打造網(wǎng)絡(luò)企業(yè)風(fēng)格，提供周到的建站售前咨詢和貼心的售后服務(wù)。對(duì)于成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)中不同領(lǐng)域進(jìn)行深入了解和探索，創(chuàng)新互聯(lián)在網(wǎng)站建設(shè)中充分了解客戶行業(yè)的需求，以靈動(dòng)的思維在網(wǎng)頁中充分展現(xiàn)，通過對(duì)客戶行業(yè)精準(zhǔn)市場調(diào)研，為客戶提供的解決方案。

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

VB.NET PadLeft方法

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

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

程序員經(jīng)常使用的另一個(gè)替代方法是使用tab字符來獲得近似固定寬度顯示格式。使用tabs的一個(gè)問題是，當(dā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
 
 
 

當(dāng)前名稱：詳細(xì)描述VB.NETPadLeft方法
新聞來源：http://m.5511xx.com/article/djjisjh.html