- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 保存对话框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22685)
-- 发布时间：2012/8/21 12:39:00
-- 保存对话框
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter=
"文本文件|*.txt" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
\'如果用户单击了确定按钮
MessageBox.Show("你要保存为：" &
dlg.FileName,"提示")
\'提示用户选择的文件
End
If
这个对话框出来 文件名可以默认吗? 比如我表中有个文件名的列,把当前行的文件名列的文件名写入这个对话框的文件框内.
此主题相关图片如下：76m7i2b9zn8l_fnux2k3j.jpg
-- 发布时间：2012/8/21 14:27:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "文本文件|*.txt" \'设置筛选器
dlg.FileName = "abc.txt"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
-- 发布时间：2012/8/21 15:48:00
--
老大 见了鬼 你怎么这么一写就行 而我却不行!
-- 发布时间：2012/8/21 15:48:00
--
气死我了.