火急求助:VB编文本编辑器的保存菜单的代码怎么写
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编辑过]
