怎么在list框里面对齐内容了？！

Question

现在有一list框，现在的目标是把list框中的数据对齐。比如说：长度 速度 时间
2005 15.5 43.9
164  7.2  8.9list中的每一行是由三个数字连接起来，但是这三个数字的长度又不一样，但是需要分别对齐list框上的三项。试了半天没成功，该咋办了？

Answer 1

Private Sub Command1_Click()
List1.AddItem "长度" & vbTab & "速度" & vbTab & "时间"
List1.AddItem 2005 & vbTab & 15.5 & vbTab & 43.9
List1.AddItem 164 & vbTab & 7.2 & vbTab & 8.9
End Sub

Answer 2

我也常用 vbTab 连接来对齐不同的域。但是对于长度差别太大的情况还是有问题。
这种情况下：List1.AddItem "长度" & Space(16 - Len("长度")) & "速度" & Space(16 - Len("速度")) & "时间"
List1.AddItem strLength & Space(16 - Len(Length)) & strSpeed & Space(16 - Len(strSpeed)) & strTime