相信大家学VB如果连记事本这东西都不知道话就很郁闷了,CG今天接到Kivi的任务,做一个能看懂代码的记事本程序作为VB作业上交,据说还要上台讲,这老师真够难为人的,反正CG是有段时间没有见到了,源代码附上,如果大家有需要的话拿走,毕竟像初学者还是需要的。
简要说明:
记事本程序主要是要求在VB中使用Common Dialog Control控件的打开文件,打开字体,保存文件对话框的功能,实现文本的创建、修改、编辑、保存的功能,也是大家平时也使用的比较多的文本编辑器。
源代码地址:
http://www.lidaren.com/code/VBnotepad.zip
以下是部分参考代码:
简要说明:
记事本程序主要是要求在VB中使用Common Dialog Control控件的打开文件,打开字体,保存文件对话框的功能,实现文本的创建、修改、编辑、保存的功能,也是大家平时也使用的比较多的文本编辑器。
源代码地址:
http://www.lidaren.com/code/VBnotepad.zip
以下是部分参考代码:
Dim Changed As Boolean '是否被修改
Dim IsSave As Boolean '是否已经保存
Dim FileName As String '文件名称
Dim TxtBefore As String '修改前文本,用于撤销操作
'窗体加载
Private Sub Form_Load()
Clipboard.Clear
End Sub
'窗体关闭
Private Sub Form_Unload(Cancel As Integer)
'与退出按钮的事件处理方法相同
If Changed = True Then
result = MsgBox("您正要关闭编辑窗口,是否保存您的修改?", vbYesNoCancel, "确定") '提示是否保存
If result = vbYes Then
MenuStripSave_Click '直接调用保存事件的方法
ElseIf result = vbNo Then
Unload Me '卸载窗体
End If
Else
Unload Me
End If
End Sub
'关于
Private