用VB实现一个简单的记事本代码

还你一世界

用VB6实现一个简单的记事本代码，现在公布出实现代码

• 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
  

复制代码

还你一世界

自抢沙发！强势顶起！

墨奚

赞赞赞、。。。。。

伊海

定制小工具，顶起