【文件属性】:
文件名称: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