事件实现代码: 

复制代码代码如下:


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