Могу ли я повторно использовать форму для объявления нескольких переменных?

Question

Я создаю систему турниров на очки. Я создал экран ввода, где пользователь может ввести несколько баллов для группы. Когда кнопка отправки нажата, мне нужно, чтобы результаты регистрировались, чтобы они могли попасть в списки на странице моего списка лидеров.

Ниже мой текущий код. Можно ли обновлять форму каждый раз, когда пользователь выбирает отправить, но также регистрировать результаты из формы до ее обновления? Если нет, я боюсь, что мне нужно будет создать новую форму для каждой группы. Конечно, это не так?

Public Class GT_Entry
    Dim Activityscore1 As Integer
    Dim Activityscore2 As Integer
    Dim Activityscore3 As Integer
    Dim Activityscore4 As Integer
    Dim Activityscore5 As Integer
    Dim Groupname As String
    Private Sub Submit_Click(sender As System.Object, e As System.EventArgs) Handles Submit.Click
        Activityscore1 = R1S.Text
        Activityscore2 = R2S.Text
        Activityscore3 = R3S.Text
        Activityscore4 = R4S.Text
        Activityscore5 = R5S.Text
        Groupname = GN.Text
        GN.Clear()
        R1S.Clear()
        R2S.Clear()
        R3S.Clear()
        R4S.Clear()
        R5S.Clear()
    End Sub

Answer 1

Есть несколько способов решения вашей проблемы.Я сделал класс для хранения данных.Затем создал список этого класса.Каждый раз, когда пользователь нажимает кнопку Отправить, данные добавляются в список.Вы можете просмотреть список и получить доступ к свойствам.

Private ScoreList As New List(Of GroupActivityScore)

Private Sub Submit_Click(sender As System.Object, e As System.EventArgs) Handles Submit.Click
    Dim GAS As New GroupActivityScore
    GAS.Score1 = CInt(R1S.Text)
    GAS.Score2 = CInt(R2S.Text)
    GAS.Score3 = CInt(R3S.Text)
    GAS.Score4 = CInt(R4S.Text)
    GAS.Score5 = CInt(R5S.Text)
    GAS.GroupName = GN.Text
    ScoreList.Add(GAS)
    GN.Clear()
    R1S.Clear()
    R2S.Clear()
    R3S.Clear()
    R4S.Clear()
    R5S.Clear()
End Sub

Public Class GroupActivityScore
    Public Property Score1 As Integer
    Public Property Score2 As Integer
    Public Property Score3 As Integer
    Public Property Score4 As Integer
    Public Property Score5 As Integer
    Public Property GroupName As String
End Class