CommonDialog1.FileTitle как установить другое имя

[Yvlad]

Здравствуйте!
При открытии перетаскиванием
Me.Caption = CommonDialog1.FileTitle ничего не пишет
И еще как заполнить список "Имя файла" открывавшихся файлов в CommonDialog-е, допустим 3-5 последними
Спасибо!

[GSerg]

Первый вопрос непонятен.

[Yvlad]

При открытии перетаскиванием файла документа в уже открытуюю программу хотелось бы иметь имя этого файла в заголовке формы

[tyomitch]

Ого. А при чём здесь CommonDialog?

[Yvlad]

Заморочка вот в чем.
Программа сохраняет файлы только в своем формате - name.zzz.
Открывает форматы name.xxx, name.yyy и свой формат name.zzz,
причем через CommonDialog или двойной клик на файле этих форматов, или перетаскиванием на открытую программу.
А надо вот что:
при открытии файла name.xxx написать name.xxx в заголовке формы;
при saveAs... CommonDialog.ShowSave у него в окошке "Имя файла" стояло name.zzz, а не name.xxx;
чтоб CommonDialog проверял существование name.zzz, а не name.xxx;
при удачном сохранении сменить name.xxx на name.zzz в заголовке формы;
при неудаче сохранения или отмене оставить name.xxx в заголовке формы;
у CommonDialog-а заполнять список окошечка "Имя файла" именами последних файлов.
Спасибо!

[Twister]

Ни чего не понял...
Причем тут CommonDialog и перетаскивание?
Установи OLEDropMode в 1 (Manual) и кинь код на форму:

Код: Выделить всё

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Data.Files.Count > 1 Then
    Caption = "Перетащили больше одного файла..."
Else
    Caption = Data.Files(1)
End If
End Sub

Теперь попробуй поперетаскивый на форму файлы...

[Viper]

Yvlad, хотелось бы для лучшего понимания вопроса увидеть уже сделанный код, а то пока что мы лицезреем плохо написанное техническое задание... "надо сделать то то и как то"... Короче: "Код в студию!"

[Kovu]

Yvlad
Тебе чтоли надо поменять заголовок диалога открытия/сохранения?

[Yvlad]

Option Explicit
Dim stroka As String * 10
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
CommonDialog1.FileName = Data.Files(1)
Call my_Open
End Sub
Private Sub mnuOpen_Click()
CommonDialog1.ShowOpen
Call my_Open
End Sub
Private Sub my_Open()
Open CommonDialog1.FileName For Binary As #1
Get #1, , stroka
Close
Me.Caption = CommonDialog1.FileTitle
End Sub
Private Sub mnuSaveAs_Click()
CommonDialog1.ShowSave
Call my_Save
End Sub
Private Sub mnuSave_Click()
Call my_Save
End Sub
Private Sub my_Save()
CommonDialog1.FileName = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - 3) & "zzz"
Open CommonDialog1.FileName For Binary As #1
Put #1, , stroka
Close
Me.Caption = CommonDialog1.FileTitle
End Sub

[Viper]

Код появился, но понятнее не стало...

[GRaven]

Private Sub mnuSaveAs_Click()
On Error GoTo fail
CommonDialog1.FileName = "name"
CommonDialog1.Filter = "zzz files|*.zzz"
CommonDialog1.CancelError = True
CommonDialog1.ShowSave
' .... чтото делаем с файлом
Debug.Print CommonDialog1.FileName
Exit Sub
fail:
Debug.Print "Cancel"
End Sub