将白色空间添加到ListBox项目文本

Question

我根据以下链接实现但不起作用：

listbox中字符之间的whitesert

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"))

以上都不对我有用....

如果更改字体名称，您会看到一些区别...

注意：在此过程中要做的重要事情是将列表框的字体名称更改为"快递新"或" Lucida Console"，因为这些是单一的字体。这仅适用于单一字体。这与新罗马人或任何其他非单声间距字体不合适;）

Answer 3

listbox.items.add（" a"＆amp;"＆amp;" b"＆amp;"＆amp;" c"）

尝试这样的

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)

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