Question

我有一个列表框，其中包含三列中的两列中的用户输入值。我想要做的是格式化列表框，以便第二列和第三列相互内联，即使第一列的部分长于其他列

e.g

1. Zach Newton   100   High Distinction

2.John Smith   100   High Distinction

3.Yon Ho   100   High Distinction

4.Barry Abogorna   100   High Distinction

5.etc   100   High Distinction

6.etc

7.etc

9.etc   100   High Distinction

10.etc   100   High Distinction

11.etc

12.etc

13.etc

我基本上想要在一个角色中加上数字1-9并使标记填满最长的一个

这是我的名称和标记代码：

         If NumberOfScores < MaxEntries Then
            ScoreArray(NumberOfScores) = Mark

            DataString = (NumberOfScores + 1).ToString + ".  " + _
                NameArray(NumberOfScores).PadRight(15) + _
  Mark.ToString.PadLeft(5)
            LstDisplay.Items.Add(DataString)
            NumberOfScores += 1
        End If

奖励由一个按钮控制，但也需要填补最长的标记：

     Private Sub BtbGrades_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGrades.Click

    For I = 0 To lstdisplay.Items.Count - 1
        Dim TempString As String = lstdisplay.Items(I).ToString
        Dim Mark As Double = Double.Parse(TempString.Substring(TempString.Length - 5))
        TempString += " - " + NewAward(Mark)
        lstdisplay.Items.RemoveAt(I)
        lstdisplay.Items.Insert(I, TempString)
    Next
End Sub

VB.Net：列表框的泡沫化

0 个答案: