VB编文本编辑器的保存菜单的代码怎么写
谢谢各位达人!!

正好,我不久以前才编写了一个文字编辑程序,嘿嘿!
注: dia是公共对话框,txt是文本框,
Private Sub MnuSave_Click()
On Error GoTo errorhand
Dim fsomes As New FileSystemObject, txtmes
dia.ShowSave
kvr = dia.FileName
Set txtmes = fsomes.CreateTextFile(kvr + ".txt)
txtmes.Write (txt.Text)
txtmes.Close
errorhand:
Exit Sub
End Sub
祝你早日进步!

[此贴子已经被作者于2005-7-28 22:07:05编辑过]