CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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 。

最后此篇关于VB简易记事本实现代码的文章就讲到这里了,如果你想了解更多关于VB简易记事本实现代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。