如何采用commondialog控件打开保存文件?

Question

Private Sub Command2_Click()
　　Dim TempFile As Long
　　Dim SaveBytes() As Byte
　　
　　On Error GoTo trip
　　
　　CommonDialog1.ShowOpen
　　
　　SaveBytes=StrConv(Text1.Text,vbFromUniCode) '假设是把Text1的内容保存
　　
　　TempFile=FreeFile
　　Open commondialog.FileName For Binary As #TempFile
　　Put #TempFile,,SaveBytes
　　Close TempFile
　　
trip: 
　　
End Sub

Answer 1

Private Sub Command2_Click()
CommonDialog1.ShowSave
CommonDialog1.Filter =文件类型
If CommonDialog1.FileName <> "" Then
FileCopy App.Path & "\文件名", CommonDialog1.FileName
end if

Answer 2

保存代码是自己写的
commondialog市返回保存为的文件名用的
不仅可以保存text
还可以是savepicture pic.image,commondialog.FileName

Answer 3

不仅可以保存text
还可以是savepicture pic.image,commondialog.FileName
还可以做　录音程序．（wave,mp3,...)

Answer 4

With Me.CommonDialog1
        .FileName = vbNullString
        .CancelError = False
        .DialogTitle = "保存文件"
        .InitDir = App.Path & "\"
        .Filter = "文本文件(*.txt)|*.txt"
        .ShowOpen
        If .FileName <> vbNullString Then
            Open .FileName For Output As #1
            Print #1, "text"
            '...
        End If
    End With
            

Answer 5

910不行,我把你的for Binary 改为for Output(因为是新文件,对吧?)也不行,
根本建立不了文件,
我不明白,上面的代码是什么时候执行呀?
是我点击common..控件的保存时执行吗?我用断点试了,好像执行不到呀??
可是commondialog控件在调试时有没有加界面,我如何为保存按钮加程序呀??
是不是用什么办法加上commondialog控件的对话框界面?

Answer 6

注意,我程序中的command2_click不是commondialog控件中的按钮,而是我的窗体中的保存程序按钮,点击他后才调出commmondialog控件!
关键是我是不是需要加上一个commondialog控件的界面,而后才能为commondialog控件的保存按钮编上面的程序?

Answer 7

wuzhu(wuzhu) 你的程序我不知道帮到哪里呀\?

Answer 8

当初没注意，是CommonDialog1:Private Sub Command2_Click()
　　Dim TempFile As Long
　　Dim SaveBytes() As Byte
　　
　　On Error GoTo trip
　　
　　CommonDialog1.ShowOpen
　　
　　SaveBytes=StrConv(Text1.Text,vbFromUniCode) '假设是把Text1的内容保存
　　
　　TempFile=FreeFile
　　Open CommonDialog1.FileName For Binary As #TempFile
　　Put #TempFile,,SaveBytes
　　Close TempFile
　　
trip: 
　　
End Sub

Answer 9

我改为1了,没有呀,是不是应该把代码加到对话框的保存按钮click事件中?我没法加呀?不运行看不到对话框!!!!

Answer 10

Text1：TextBox，MulitiLine=True，SrcollBars=3
CommonDialog1：通用对话框，CancelError=True
Command1：按键，Caption="打开"
Command2：按键，Caption="保存"Private Sub Command1_Click()
　　Dim TempFile As Long
　　Dim LoadBytes() As Byte
　　
　　On Error GoTo trip
　　
　　CommonDialog1.ShowOpen
　　
　　TempFile=FreeFile
　　Open CommonDialog1.FileName For Binary As #TempFile
　　Redim LoadBytes(1 To Lof(TempFile)) As Byte
　　Get #TempFile,,LoadBytes
　　Close TempFile
　　
　　Text1.Text=StrConv(LoadBytes,vbUniCode)
　　
　　Exit Sub
　　
trip:
　　If Err.Number = cdlCancel Then
　　Else
　　　　MsgBox Err.Description, vbCritical, Err.Number
　　End If
　　
End SubPrivate Sub Command2_Click()
　　Dim TempFile As Long
　　Dim SaveBytes() As Byte
　　
　　On Error GoTo trip
　　
　　CommonDialog1.ShowSave
　　
　　SaveBytes=StrConv(Text1.Text,vbFromUniCode) '假设是把Text1的内容保存
　　
　　TempFile=FreeFile
　　Open CommonDialog1.FileName For Binary As #TempFile
　　Put #TempFile,,SaveBytes
　　Close TempFile
　　
　　Exit Sub
　　
trip:
　　If Err.Number = cdlCancel Then
　　Else
　　　　MsgBox Err.Description, vbCritical, Err.Number
　　End If
　　
End Sub

Answer 11

好了,谢谢各位,wuzhu看了你最后的帖子我才搞明白,原来以为在commondialog中写呢:)哈哈,真是笨笨~~~