在vb.net的列表框中添加一個列和獎勵方案

Question

我有兩個文本框的Txtmark和TxtName，數據輸入然後存儲在數組20個條目後顯示列表框顯示名稱和標記我想要做id添加額外的列有獎勵

高分90％及以上; 區別75％高達89％; 60％高達74％;和 通50％至59％， 一切是particpation

這是我的代碼至今：

'Enter scores - press to place value into Array 
Private Sub TxtMark_Enter(ByVal sender As System.Object, _ 
     ByVal e As KeyPressEventArgs) Handles TxtMark.KeyPress 


    Dim Mark As Double 
    Dim DataString As String 

    If e.KeyChar = ControlChars.Cr Then 

     If Double.TryParse(TxtMark.Text, Mark) = False Then 
      MessageBox.Show(" You must enter a numeric value like 1 or 2") 
      TxtMark.Clear() 
      TxtMark.Focus() 
      Exit Sub 
     End If 

     If Mark < 0 Or Mark > 100 Then 
      MessageBox.Show("Valid range is between 0 and 100, 7 would work " _ 
       & Mark.ToString & " Does not") 
      TxtMark.Clear() 
      TxtMark.Focus() 
      Exit Sub 
     End If 



     If NumberOfScores < MaxEntries Then 
      ScoreArray(NumberOfScores) = Mark 

      DataString = (NumberOfScores + 1).ToString + ". " + _ 
       NameArray(NumberOfScores).PadRight(15) + _ 
    Mark.ToString.PadLeft(5) 
      ListBox1.Items.Add(DataString) 
      NumberOfScores += 1 
     End If 
     TxtMark.Clear() 
     TxtName.Clear() 
     TxtName.Focus() 
     Exit Sub 

    End If 


    If ListBox1.Items.Count >= 20 Then 
     ListBox1.Visible = True 
    Else 
     ListBox1.Visible = False 
    End If 

Answer 1

由於列表框沒有任何的實際列，你真正的意思是添加到您的datastring這樣的信息出現欄目化

添加一個函數來標記轉換爲獎勵是這樣的：

Private Function NewAward(Mark As Double) As String 
    Select Case Mark 
     Case 90 To 100 
      Return "High Distinction" 
     Case 75 To 89 
      Return "Distinction" 
     Case 60 To 74 
      Return "Credit" 
     Case 50 To 59 
      Return "Pass" 
     Case Else 
      Return "Participation" 
    End Select 
End Function 

然後讓你的DataString這樣的：

DataString = (NumberOfScores + 1).ToString + ". " + _ 
       NameArray(NumberOfScores).PadRight(15) + _ 
    Mark.ToString.PadLeft(5) + " - " + NewAward(Mark) 

UPDATE：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 

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