如何调出"另存为"或"保存"的对话框?

kamengwang 2005-08-11 02:42:38

相我们一般用的,文件-另存为,打开什么的应该不是自己做的吧?怎么调出来啊,我急需要另存,谢谢了

...全文

554 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

faysky2 2005-08-12

打赏
举报

用CommandDialog控件
CommandDialog.ShowSave

XLYT 2005-08-12

打赏
举报

我只想买一辆QQ，不要卖给我一辆凯迪拉克。

fanmy_001 2005-08-11

打赏
举报

建议使用 Zezese(蓝酷云) 的方法，不要看这些代码多，其实做程序用这些才好。comdlg32.dll库中还有好多函数的，这些功能是commondialog控件所没有的。

seu31199113 2005-08-11

打赏
举报

CommonDialog1.ShowSave 就是 “另存为”框子！

搞那么复杂，真实要人命！

信息垃圾！！！！

niece 2005-08-11

打赏
举报

CommonDialog控件
CommonDialog1.ShowSave 第一次使用是另存为
第二次是保存和word一样

junki 2005-08-11

打赏
举报

就看你自己决定采取什么方式来实现了

XLYT 2005-08-11

打赏
举报

倒塌！
即使你的控件不自带另存，只需要用commondialog就可以了。楼上一堆代码还是省省吧，这么热的天。

kamengwang 2005-08-11

打赏
举报

解决了,我用的控件原来自带另存.哈哈

明天揭贴,近来则有分

留下些什么 2005-08-11

打赏
举报

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

'=======================================
'打开一个文件
'=======================================
Function GetFile(ByVal Hwnd As Long, Optional ByVal dlgFilter As String = "所有文件(*.*)|*.*", _
Optional ByVal dlgTitle As String = "打开文件", Optional ByVal DefaultDir) As String
Dim ofn As OPENFILENAME
Dim Rtn As String
Dim fn(0) As String
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Hwnd
ofn.hInstance = App.hInstance
ofn.lpstrFile = String(254, Chr(0))
ofn.nMaxFile = 255
ofn.lpstrFileTitle = String(254, Chr(0))
ofn.nMaxFileTitle = 255
ofn.lpstrFilter = ChangeStr(dlgFilter) & Chr(0)
ofn.lpstrTitle = dlgTitle
If IsMissing(DefaultDir) Then
ofn.lpstrInitialDir = App.Path
Else
ofn.lpstrInitialDir = DefaultDir
End If
ofn.flags = &H80000 'Or &H20
Rtn = GetOpenFileName(ofn)
If Rtn >= 1 Then
GetFile = Left(ofn.lpstrFile, InStr(1, ofn.lpstrFile, Chr(0)) - 1)
Else
GetFile = ""
End If
End Function

'=======================================
'打开多个文件，返回一个字符串数组
'=======================================

Function GetFiles(ByVal Hwnd As Long, Optional ByVal dlgFilter As String = "所有文件(*.*)|*.*", _
Optional ByVal dlgTitle As String = "打开文件", Optional ByVal DefaultDir) As String()
Dim ofn As OPENFILENAME
Dim Rtn As Long
Dim fn(0) As String
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Hwnd
ofn.hInstance = App.hInstance
ofn.lpstrFile = String(2000, Chr(0))
ofn.nMaxFile = 2000
ofn.lpstrFileTitle = String(254, Chr(0))
ofn.nMaxFileTitle = 255
ofn.lpstrFilter = ChangeStr(dlgFilter) & Chr(0)
ofn.lpstrTitle = dlgTitle
If IsMissing(DefaultDir) Then
ofn.lpstrInitialDir = App.Path
Else
ofn.lpstrInitialDir = DefaultDir
End If
ofn.flags = &H80000 Or &H200 'Or &H20
Rtn = GetOpenFileName(ofn)
If Rtn >= 1 Then
GetFiles = GetFileNames(ofn.lpstrFile)
Else
GetFiles = fn
End If
End Function

'=======================================
'保存文件
'=======================================
Function SaveFile(ByVal Hwnd As Long, ByVal dlgFilterDescribe As String, ByVal dlgFilter As String, _
Optional ByVal dlgTitle As String = "保存文件", Optional ByVal dlgIniDir) As String
Dim OFName As OPENFILENAME
With OFName
'设置结构的大小
.lStructSize = Len(OFName)
'设置父窗口
.hwndOwner = Hwnd
'设置程序的实例
.hInstance = App.hInstance
'设置过滤属性
.lpstrFilter = dlgFilterDescribe & "(*" & dlgFilter & ")" & Chr(0) & "*" & dlgFilter & Chr(0)
'设置默认扩展名
.lpstrFile = String(254, Chr(0))
'设置返回的文件（全路径）的最大长度
.nMaxFile = 255
'为文件名称创建缓冲区
.lpstrFileTitle = String(254, Chr(0))
'设置返回的文件名称的最大长度
.nMaxFileTitle = 255
'设置初始目录
If IsMissing(sIniDir) Then
.lpstrInitialDir = App.Path
Else
.lpstrInitialDir = sIniDir
End If
'设置对话框标题
.lpstrTitle = sTitle
.flags = &H80000 'Or &H20
End With
If GetSaveFileName(OFName) Then
SaveFile = Left(OFName.lpstrFile, InStr(1, OFName.lpstrFile, Chr(0)) - 1) & Trim(dlgFilter)
Else
SaveFile = ""
End If
End Function

Private Function ChangeStr(ByVal strIn As String) As String
ChangeStr = Replace(strIn, "|", Chr(0))
End Function

Private Function GetFileNames(ByVal strIn As String) As String()
Dim ln As Long, num As Integer, strPath As String, strName As String
Dim pos() As Long, fn() As String
ReDim pos(0)
pos(0) = 1
strIn = Trim(strIn)
ln = Len(strIn)
For i = 1 To ln
If Asc(Mid(strIn, i)) = 0 Then
num = num + 1
ReDim Preserve pos(num)
pos(num) = i
If Asc(Mid(strIn, i + 1)) = 0 Then Exit For
End If
Next
If num = 1 Then
ReDim fn(0)
fn(0) = Left(strIn, pos(1))
Else
num = num - 2
ReDim fn(num)
strPath = Left(strIn, pos(1) - 1)
For i = 0 To num
fn(i) = strPath & "\" & Mid(strIn, pos(i + 1) + 1, pos(i + 2) - pos(i + 1))
Next
End If
GetFileNames = fn
End Function