0

我有一个列表框，在三列中的两列中有用户输入的值。我想要做的是格式化列表框，以便第二列和第三列彼此内联，即使第一列的部分长度比其他列长

例如

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
4

0 回答 0