vb 保存文件对话框

如图,我想利用这个创建或保存就方便了,可是新手,不知道用什么命令... 如图,我想利用这个创建或保存就方便了,可是新手,不知道用什么命令 展开
 我来答
zdingyun
推荐于2016-01-22 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48172
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

CommonDialog 控件(“打开”、“另存为”对话框)

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器,目录,文件扩展名和文件名。除对话的标题不同外,另存为对话外观上与打开对话相似。

在运行时,当用户选择一个文件“关闭”对话框时,FileName 属性既为选定的文件名。

可以设置 Filter 属性,这样对话就只显示某种文件类型,如文本文件。Flags
属性可用来改变对话的元素,当诸如覆盖文件之类的动作发生时,还可用来提示用户。

CommonDialog
控件(“打开”、“另存为”对话框)示例

下例显示“打开”对话框然后在信息框中显示所选的文件名:

Private Sub Command1_Click()
    ' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    ' 显示“打开”对话框
    CommonDialog1.ShowOpen
    ' 显示选定文件的名字
    MsgBox CommonDialog1.FileName
    Exit Sub
    
ErrHandler:
    ' 用户按了“取消”按钮
    Exit Sub
End Sub

luomandick
推荐于2017-11-23 · TA获得超过1175个赞
知道小有建树答主
回答量:902
采纳率:0%
帮助的人:713万
展开全部
直接加一个通用对话框控件CommonDialog,这个控件支持打开、另存为功能。点击工程菜单中的部件选项,然后选择microsft common dialog control6.0,再按确定。将对话框画一个到窗体上然户就可以直接写代码编程的了。
比方说:
private sub command1_click()
dim filename_select as string
commondialog1.dialogtitle="请选择要打开的音乐文件"
commondialog1.initdir="c:\" '缺省打开路径
commongdialog1.filter="mediafile|*.mp3;*.wmv" '过滤器
commondialog1.showopen ‘这个是打开,如果要保存的话改成commondialog1.showsave好了
filename_select=commondialog1.filename ‘文件名
end sub
不对的话可以继续问我的··呵呵··
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友1304d44
2010-02-07 · TA获得超过449个赞
知道小有建树答主
回答量:896
采纳率:100%
帮助的人:212万
展开全部
这个程序要动手写,这是一个涉及到文件存储的技术。
我感觉很复杂。
因为我现在手上一个网站正在做,然后要回家过年,很忙唉兄弟。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
⑽字_架
2010-02-07 · TA获得超过380个赞
知道小有建树答主
回答量:863
采纳率:0%
帮助的人:0
展开全部
要用控件

必须在企业版程序那里才能找到
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
aspd199
2010-02-07 · TA获得超过906个赞
知道小有建树答主
回答量:865
采纳率:50%
帮助的人:482万
展开全部
commondialog 通用对话框控件
commondialog1.showsave就是保存对话框
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式