Save As

[Max!]

В VB Application Withart , если по умолчанию нажимать некст то на форме появляется раскрывающеися фаил где и находится Save As как зделать чтобы эта функция работала , и поумолчанию был бы вписан *.DAT где расширение и его нельзя былы бы изменять , а имя придумывал сам пользователь! ПОМОГИТЕ!

[Damage]

Привожу оригинальный код с исправлениями:

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

Private Sub mnuFileSaveAs_Click()
    Dim sFile As String

    Dim tempArr() As String 'определяем временный массив

    If ActiveForm Is Nothing Then Exit Sub
    With dlgCommonDialog
        .DialogTitle = "Save As"
        .CancelError = False
        'ToDo: set the flags and attributes of the common dialog control
        .Filter = "DAT Files (*.DAT)|*.DAT" 'определение фильтра по расширению
        .ShowSave
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName

    tempArr()=split(sFile,".") ' Отделяем имя файла от расширения
    sFile=tempArr(0) & ".DAT" 'Добавляем к имяни нужное расширение
   
    End With
    ActiveForm.Caption = sFile
    ActiveForm.rtfText.SaveFile sFile

End Sub

[Max!]

Я попробывал и мне компелятор выдает ошибку и обводит :


If ActiveForm Is Nothing Then Exit Sub 'Это предложение!

Вчем дело??

[Cyrax]

Я попробывал и мне компелятор выдает ошибку и обводит :


If ActiveForm Is Nothing Then Exit Sub 'Это предложение!

Вчем дело??

а дело в том, что у тебя наверное SDI приложение, т.е. с одним окном.
если да, то просто удали эту строчку.
в этой строке проверяется есть ли открытые окна документов в MDI приложении

[RayShade]

Screen.ActiveForm потому что писать надо. SDI/MDI тут не при чем.

[Max!]

Спосибо! Еще один вопрос! А он сохроняет то что находится в текстбоксе, если да можно-ли тогда загрузить этот текст обратно в текстбокс с зтим кодом :

Dim A As String
Open "N.Dat" For Input As #1
Input #1, A
txt1.Text = A

Можно или нет?

[Cyrax]

2 RayShade: В полне возможно... но если этот код вызывается из меню программы, которое наверняка будет в активном окне, то зачем вообще эта проверка.

2 Max!: на сколько я вижу по коду (в примере), там используется элемент RitchTextBox. и на сколько я понимаю из тогоже кода, файл сохраняется в формате RTF. так что твой код хоть и загрузит файл в TextBox, но прочитать ты его не сможешь. лучше используй RitchTextBox и загружай в него текст так:

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

rtf.LoadFile <FileName>, [FileType]

[Max!]

Хорошо а ты можешь показать пример с Save As которыи сохроняет текст в текстбоксе а с Open с помощью которого можно открыть его и прочитать!

[Cyrax]

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

Private Sub mnuFileSaveAs_Click()
    Dim sFile As String

    Dim tempArr() As String 'определяем временный массив

    If ActiveForm Is Nothing Then Exit Sub
    With dlgCommonDialog
        .DialogTitle = "Save As"
        .CancelError = False
        'ToDo: set the flags and attributes of the common dialog control
        .Filter = "DAT Files (*.DAT)|*.DAT" 'определение фильтра по расширению
        .ShowSave
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName

    tempArr()=split(sFile,".") ' Отделяем имя файла от расширения
    sFile=tempArr(0) & ".DAT" 'Добавляем к имяни нужное расширение
   
    End With
    ActiveForm.Caption = sFile
    Open sFile For Output As #1
    Print #1, ActiveForm.Text1
    Close
End Sub

всего несколько строчек нужно было изменить

[Max!]

Блин он не сохроняет как только я нажимаю на Save As Сразу ОШибка : "Run-time error "424" Object required" Что это такое! Помогите!

[Cyrax]

Блин он не сохроняет как только я нажимаю на Save As Сразу ОШибка : "Run-time error "424" Object required" Что это такое! Помогите!

вместо этого

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

If ActiveForm Is Nothing Then Exit Sub

напиши это

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

If Screen.ActiveForm Is Nothing Then Exit Sub

[RayShade]

2 Max

Форум, если честно, не предназначен для выяснения вопросов касающихся "почему 2+2=4?"



Поэтому, читай внимательнее хелпники и документацию, попытайся хоть до чего нибудь сам додуматься.