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

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