我不知道为什么会一直这样,但是当我尝试对文件进行更改时,什么都不会发生。我添加了一个例外,看看它是否发生但它一直在发生。请帮助q.q
Private Sub subBut_Click(sender As Object, e As EventArgs) Handles subBut.Click
If gradeBox.Text <> String.Empty Then
Dim grade As String = Convert.ToInt32(gradeBox.Text)
If grade > 0 Then
' imputs grade to file
writer.WriteLine(grade) ' error
Else
Application.Exit()
End If
End If
End Sub