在列表框中填充项目? [英] Padding items in a list box ?
问题描述
我有一个包含2列数字的列表框我想用零或空格填充数字,这样它们就等于3个字符,所以它们对齐。我尝试了以下代码 但我必须遗漏一些东西。
看起来像这样
4 786
123 265
34 123
128 2
我希望它看起来像这样
004 786
123 265
034 123
123 002
Private Sub Button3_Click(sender As Object,e As EventArgs)Handles Button3.Click
For Each c As Char in ListBox1 .Items
Dim i As String =" 1234567890"
Dim count As Integer = 0
如果i.Count = 1则
i.PadLeft(2).ToString()
ElseIf i.Count = 1则
i.PadLeft(1).ToString()
End if
Next
End Sub
您好
将ListBox字体设置为MonoSpaced字体 - 例如Courier New或其他几个字体。
您看到这种效果的原因是大多数字体按比例间隔,因此3个空格的宽度不等于3'E'字符(例如)。 / p>
另一个选择是使用VbTab而不是Padding。
I have a list box with 2 columns of numbers I would like to pad the numbers with zeros or spaces, so that they equal 3 characters so they align. I tried the following code but I must be missing something.
Looks like this
4 786
123 265
34 123
128 2
I want it to look like this
004 786
123 265
034 123
123 002
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click For Each c As Char In ListBox1.Items Dim i As String = "1234567890" Dim count As Integer = 0 If i.Count = 1 Then i.PadLeft(2).ToString() ElseIf i.Count = 1 Then i.PadLeft(1).ToString() End If Next End Sub
Hi
Set the ListBox font to a MonoSpaced Font - such as Courier New or one of the other few.
The reason you are seeing that effect is that most fonts are proportionally spaced and so 3 spaces are not equal in width to 3 'E' characters (for example).
Another option is to use VbTab instead of Padding.
这篇关于在列表框中填充项目?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!