我有一个列表框,其中使用代码输入了两列日期:
'Press to place value into Array
Private Sub TxtMark_Enter(ByVal sender As System.Object, _
ByVal e As KeyEventArgs) Handles TxtMark.KeyDown
Dim Mark As Double
Dim DataString As String
If e.KeyCode = Keys.Enter 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 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)
Lstdisplay.Items.Add(DataString)
NumberOfScores += 1
End If
TxtMark.Clear()
TxtName.Clear()
TxtName.Focus()
Exit Sub
End If
我想要做的是有一个标签,在输入数据时自动做一些标记。任何想法都会很棒