很好的源程序，适合所有的学生，简单易懂 Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNew.Click Dim userChoose As Integer If rtbEditor.Modified Then userChoose = MsgBox("当前文本已改变，是否保存文件?", _