将多项保存在ComboBox控件中的VB.NET中

Question

我正在开发一个学生评分系统，我想要一个建议，将TextBox控件中输入的所有数据保存到文本文件中，但我面临着一个问题。在我的程序中，学生可以从ComboBox控件中选择多门课程，并为每个课程输入一个分数。

如何在输入同一学生的成绩的ComboBox控件中保存所有选定的项目？

例如:一名学生输入他的名字Adam K.，Adam K.选择了6门课程，并将每门课程的分数加在一起。

如何保存所有这些信息以便显示如下所示？

亚当K.，历史98/100，数学56/100，地理78/100等等。

Answer 1

由于您描述的信息不太清楚，我只能尝试根据您提供的信息为您提供解决方案。

其效果如下：

​

​

在test.txt文件中：

​

​

如果你想要这种效果，你可以试试我的方法。

Public Class Form1
    Dim name As String
    Dim info As New Dictionary(Of String, String)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim course As String() = {"History", "Math", "English", "Chinese", "Science", "Biology"}
        For Each item As String In course
            ComboBox1.Items.Add(item)
        Next

    End Sub

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

        If ComboBox1.Text IsNot "" Then
            If TextBox2.Text Is "" Then
                Try
                    info.Add(ComboBox1.Text, "0 / 100") 'score default
                Catch
                    MsgBox("The course " & ComboBox1.Text & " already exists.")
                End Try
            Else
                Try
                    info.Add(ComboBox1.Text, TextBox2.Text & "/100")
                Catch
                    MsgBox("The course " & ComboBox1.Text & " already exists.")
                End Try
            End If
        Else
            MsgBox("Please enter course info")
        End If

        ComboBox1.Text = "" 'clear course info
        TextBox2.Text = ""
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        name = TextBox1.Text
        TextBox3.Text &= name & "   "

        For Each kvp As KeyValuePair(Of String, String) In info
            TextBox3.Text &= kvp.Key.ToString & ":" & kvp.Value.ToString & "   "
        Next kvp
        TextBox3.Text &= vbCrLf

        TextBox1.Text = ""
        info.Clear() 'clear all info

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim file As System.IO.StreamWriter 'Write Text to Files with a StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter("D:\test.txt", True)
        file.WriteLine(TextBox3.Text)
        file.Close()

        TextBox3.Text = "" 'Append to Text Files in Visual Basic
        'Dim inputString As String = "This is a test string."
        'My.Computer.FileSystem.WriteAllText("D:\test.txt", inputString, True)
    End Sub
End Class