向列表框项目文本添加空格

Question

我是按照以下链接实施的，但没有工作：

Insert whitespace between characters in listbox

Dim spaces As String = "& nbsp;& nbsp;& nbsp;& nbsp;"
                                spaces = Server.HtmlDecode(spaces)

listitem.Text = String.Concat(str1(1), spaces, str(0), spaces, str1(0))

Answer 1

本工作守则：

Dim spaces As String = Space(4)
   listbox.items.add(String.Concat("a", spaces, "B", spaces, "c"))

或

  Dim spaces As String = Space(4)
listitem.Text=String.Concat("a", spaces, "B", spaces, "c")
listbox.items.add(listitem)

Answer 2

我尝试了以下方式

1）

Dim spaces As String = Space(4)
   listbox.items.add(String.Concat("a", spaces, "B", spaces, "c"))

2）

 listbox.items.add(String.Concat("a", ' ', "B", ' ', "c"))

3）

 listbox.items.add(String.Concat("a", & vbtab &, "B", & vbtab &, "c"))

4）

listbox.items.add(String.Concat("a", Chr(32) , "B", Chr(32), "c"))

5）

listbox.items.add(String.Concat("a","  " , "B", "   ", "c"))

以上都不适合我......

如果更改字体名称，可以看到一些差异......

注意：在此过程中要做的重要事情是将列表框的字体名称更改为“Courier New”或“Lucida Console”，因为它们是等宽字体。这仅适用于等宽字体。这不适用于Times New Roman或任何其他Non Mono间距字体;）

Answer 3

listbox.items.add（＆＃34; a＆＃34;＆amp;＆＃34;＆＃34;＆amp;＆＃34; B＆＃34;＆amp;＆＃34;＆＃34;＆amp; && ＃34; C＆＃34）

尝试这样

Answer 4

您可以使用不间断字符Chr(160)。所以你的样本变成了：

Dim spaces As String = Chr(160) & Chr(160) & Chr(160) & Chr(160) 
listitem.Text = str1(1) & spaces & str(0) & spaces & str1(0)

Answer 5

Dim Space As String = ("____") '(Replace the __ with spaces)
listbox1.items.add(a, space, b, space, c)

有更复杂的方法可以做到这一点，但如果您不熟悉编码，这是我向您解释的最简单方法。