VB简易记事本实现代码

140 阅读 0 评论 93 点赞

我是靠谱客的博主妩媚项链，最近开发中收集的这篇文章主要介绍VB简易记事本实现代码，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

事件实现代码：

复制代码代码如下:

 
Private Sub mQuit_Click() 
Text1.Text = "" 
End 
End Sub 

Private Sub mNew_Click() 
Text1.Text = "" 
Form1.Caption = "未命名" 
End Sub 
Private Sub mopen_Click() 
CommonDialog1.ShowOpen 
Frame = CommonDialog1.FileName 
If fname <> "" Then 
Form1.Caption = fname 
Text1.Text = "" 
Open fname For Input As #1 
b = "" 
Do Until EOF(1) 
Line Input #1, nextline 
b = b & nextline & Chr(13) & Chr(10) 
Loop 
Close #1 
Text1.Text = b 
End If 
End Sub 
Private Sub mSave_Click() 
If Form1.Caption = "未命名" Or Form1.Caption = "" Then 
CommonDialog1.ShowSave 
fname = CommonDialog1.FileName 
Else 
fname = Form1.Caption 
End If 
If fname <> "" Then 
Form1.Caption = fname 
Open fname For Output As #1 
Print #1, Text1.Text 
Close #1 
End If 
End Sub 
Private Sub mNewSave_Click() 
CommonDialog1.ShowSave 
If fname <> "" Then 
Form1.Caption = fname 
Open fname For Output As #1 
Print #1, Text1.Text 
Close #1 
End If 
End Sub 

需要用CommonDialog控件！
属性代码：

复制代码代码如下:

 
Begin VB.Menu mFile 
Caption = "文件" 
Begin VB.Menu mNew 
Caption = "新建" 
End 
Begin VB.Menu mOpen 
Caption = "打开" 
End 
Begin VB.Menu mSave 
Caption = "保存" 
End 
Begin VB.Menu mNewSave 
Caption = "另存为" 
End 
Begin VB.Menu mQuit 
Caption = "退出" 
Shortcut = ^E 
End 
End 