Question

有关vb的问题：创建另存为菜单并编写代码后运行时遇到的问题

平时我们使用记事本、Word文档，要保存文件，遇到有同名文件存在的时候，会弹出提示，问是否要替换。弹出提示的时候，另存为对话框时不消失的，但现在我用vb做记事本，为另存为菜单编写了代码，运行的时候就发现，遇到同名文件，弹出提示的同时另存为对话框也消失了，请问怎样才能让它不消失？
FM网络：
麻烦能详细说明吗？你的意思是要将另存为对话框设为模式化？具体怎么操作？模式化不是指执行新窗口的时候其他窗口能否操作吗？我遇到的问题是：保存文件时，当有同名文件时弹出msgbox提示（某某文件已经存在，要替换吗？），但弹出提示的同时另存为对话框也消失了。怎样才能让另存为对话框在弹出提示的时候不消失啊？附另存为代码如下：
Private Sub lingsave_Click()
cd.InitDir = "D:" 'commondialog的名称为cd
cd.CancelError = True
On Error GoTo jj
cd.Filter = "全部文档(*.*)|*.*|文本文档(*.txt)|*.txt"
cd.FilterIndex = 2
Do
cd.ShowSave
If Dir(cd.FileName) = "" Then
GoTo kk
Else
GoTo gg
End If
gg: yy = MsgBox(cd.FileName & "已存在。" + Chr(13) + Chr(10) + "你要替换它吗？", 52, "记事本")
Loop Until yy = vbYes
GoTo kk
kk: Open cd.FileName For Output As #2
Print #2, newText
Close #2
initText = Text1.Text
Form1.Caption = cd.FileTitle + "-记事本"
jj: Exit Sub
End Sub

Answer 1

这个应该是 模式化的问题。

一个窗口，通常有2种方式，即是否模式化窗口，也即在执行新窗口时候，是否关闭（隐藏）原来窗口。
像默认的 对话框是非模式化窗口；
默认的 文件管理窗口是模式化窗口。

Answer 2

showopen是打开，另存为就是showsave了，你指的是这个么？

CommonDialog1.Filter = "支持的视频格式|*.avi;*.mpg;*.wmv;*.rm;*.rmvb|支持的音频格式|*.wav;*.mp3;*.wma"
CommonDialog1.ShowSave