文件名称：vb课程程序设计—写字板
文件大小：6KB
文件格式：VBPROJ
更新时间：2013-07-15 06:54:09
是很好的vb课程设计源代码
很好的源程序，适合所有的学生，简单易懂 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("当前文本已改变，是否保存文件?", _ MsgBoxStyle.YesNoCancel, "Notpad Example!") If userChoose = MsgBoxResult.No Then rtbEditor.Clear() Me.Text = "未命名" stbMain.Show() stbpStatus.Text = "按F1即可打开帮助文件" stbpCurrentDoc.Text = "你正在编辑文件: " + Me.Text ElseIf userChoose = MsgBoxResult.Yes Then Dim fileName As String fileName = Me.Text If fileName = "未命名" Then saveFileAs() rtbEditor.Clear() Me.Text = "未命名" stbMain.Show() stbpStatus.Text = "按F1即可打开帮助文件" stbpCurrentDoc.Text = "你正在编辑文件: " + Me.Text Else saveFile(fileName) rtbEditor.Clear() Me.Text = "未命名" stbMain.Show() stbpStatus.Text = "按F1即可打开帮助文件" stbpCurrentDoc.Text = "你正在编辑文件: " + Me.Text End If End If End If End Sub