VPF::можно ли сохранять и открывать форму с данными?

Jr13san

Дата 31.7.2008, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет

Привет всем.
У меня возникла проблемка с сохранением формы в "любой формат".
У меня имеется форма(Form1), а на ней:
CommonDialog1, Textbox, меню с названием: "Сохранить форму" и меню с назв.: "Открыть форму"

свойство "filter" для CommonDialog1:
Форма (*.form)|*.form|Все файлы (*.*)|*.*.

Написав в Textbox любой текст, я начинаю сохранять форму...(ниже приведён код сохр. формы)

____________________________

Код


Private Sub SaveForm_Click()
    Dim F As Long, H As String
     With Form1.CommonDialog1
        .FileName = vbNullString
        .Flags = 0
        .ShowSave
        If .Flags = 0 Then Exit Sub
        NmFile = .FileName
    End With
    If FileName <> NmFile Then
        On Error Resume Next
        F = FileLen(NmFile)
        If Err = 0 Then
            H = "Файл уже существует." & vbCrLf & "Заменить его?"
            If MsgBox(H, , vbCritical, "Ошибка") = vbNo Then Exit Sub
        End If
        F = 1
    End If
    On Error Resume Next
    Open NmFile For Output As #1
        If Err Then
            If Err = 75 Then
                MsgBox "Файл защищён от записи.", vbCritical, "Ошибка"
            Else
                MsgBox "Файл сохранить не возможно.", vbCritical, "Ошибка"
            End If
        Else
            With Form1
                Print #1, Form1
                               If F Then
                    NameFile = NmFile
                    F = InStrRev(NmFile, "\")
                    .Caption = Right$(NmFile, Len(NmFile) - F)
                End If
            End With
        End If
    Close #1
End Sub

____________________________

Код


Private Sub OpenForm_Click()
    Dim F As Long, NmFile As String
    With Form1.CommonDialog1
        .FileName = vbNullString
        .Flags = 0
        .ShowOpen
        If .Flags = 0 Then Exit Sub
        NmFile = .FileName
    End With
    On Error Resume Next
    Open NmFile For Input As #1
    If Err Then
        If Err = 53 Then
             MsgBox "Файл не найден.", vbCritical, "Ошибка"
         Else
             MsgBox "Файл открыть не возможно.", vbCritical, "Ошибка"
         End If
    Else
        With Form1
            F = InStrRev(NmFile, "\")
           Form1.Caption = Right$(NmFile, Len(NmFile) - F)
        End With
    End If
    Close #1
End Sub

Для проверки нужно открыть форму...
И вот тут я встрял...
Форма не открывается или открывается, но данных, которые я вводил в Textbox - нет.
Мне нужно, чтобы форма и сохранялась вместе с данными, которые я вводил и открывалась с этими же данными...
Кто знает как можно это сделать, - отзовитесь...

Это сообщение отредактировал(а) Akina - 31.7.2008, 16:53

Akina

Дата 31.7.2008, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Модератор: Используйте тег Код!

Я не понял... вы хотите, чтобы рантайм-информация сохранялась в макете? не бывает.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Jr13san

Дата 1.8.2008, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 174
Регистрация: 29.7.2008
Где: г. Павлово

Репутация: нет
Всего: нет

Т.е. нельзя сохранять форму с данными...
мдя....
Тогда ладно. Можно закрывать тему.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »