Пока сидел без интернета, вернулся к конструктору. Полностью переписываю его на MVB 2010.
Осталось сделать: Сохранение/Открытие проекта Присвоение локациям действий и описания Сохранение ГГ Присвоение действиям переходы, инвентарь (Что добавить/убрать при переходе) Ну и собственно плеер. Есть наброски интерфейса, но пока не очень смотрится.
Для этого мне нужен человек, который упорно будет отвечать на мои тупые вопросы
Сообщение отредактировал: Filinshein - Четверг, 12.05.2011, 15:19
Пол дня возился с сохранениями/Открытиями... НИФИГА не работает...
Code
Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОткрытьToolStripMenuItem.Click Try Dim dlg As OpenFileDialog = New OpenFileDialog dlg.Title = "Открыть проект: " dlg.Filter = "фильтр файлов - *.qmg" If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then End If Catch ex As Exception : End Try End Sub
Code
Private Sub СохранитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СохранитьToolStripMenuItem.Click Try Dim dlg As SaveFileDialog = SaveFileDialog dlg.Title = "Сохранить проект: " dlg.Filter = "Фильтр файлов - *.qmg" If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then End If Catch ex As Exception : End Try End Sub
Добавлено (14.05.2011, 00:02) --------------------------------------------- Ура ура ура! Нашел то что искал! Сохранение/загрузка состояния формы)))
Дата: Воскресенье, 22.05.2011, 23:26 | Сообщение # 14
( Не ленимся =) )
Сообщений: [1854]
Filinshein, Из своих забросов вспомнил следующее:
Объявим несколько переменных для работы с файлом
Dim MyFile Dim MyStr As String
Далее где тебе нужно считать данные с файла пишем код открытия файла:
Подготавливаем переменную для того самого =) , для работы с файлома: MyFile = FreeFile Далее этот код для чтения данных с файла: Open ("MyFileToOpen.data") For Input As #MyFile Читаем первую строчку файла и помещаем ее в MyStr, и так для всех строчек, Для прочтения 5-й строчки вызови этот код 5 раз, и на 5-й раз получишь 5-ю строчку, все просто =) : Line Input #MyFile, MyStr Не забываем закрывать файл после редактирования. Close #MyFile
А теперь код для записи в файл:
Подготавливаем переменную для того самого =) , для работы с файлома: MyFile = FreeFile Открываем файл для записи, если файла нет, то он будет создан =) : Open ("MyFileToOpen.data") For Output As #MyFile Записываем строчку в файл, для записи следующей снова вызови это команду =) : Print #MyFile, "Дааааа я сделал это =)" И снова закрываем файл: Close #MyFile
Дата: Воскресенье, 22.05.2011, 23:37 | Сообщение # 15
Сообщений: [2138]
Конструктор, привелико благодарен Завтра с учебы приволоку ноги и буду химичить
(Мне тут кто-то где-то говорил, что можно создать exe файл и данные готового проекта записывать туда, и уже запускать как готовый exe проект. Так можно избавится от компиляции (Как написать которую я даже не представляю =D). Может кто нибудь в курсе на счет этого =) )
Дата: Понедельник, 23.05.2011, 00:05 | Сообщение # 16
( Не ленимся =) )
Сообщений: [1854]
Filinshein, Можно сделать как я сделал с MG FPSC 1.0 , заранее подготовить ехе для проигрывания проекта, и при компиляции копировать этот ехе в папку с файлами. Или же опять использовать готовый ехе, и при компиляции копировать ехе, далее в ехе помещать все данные. А при запуске ехе будет сам с себя считывать данные.Но не забывай и не делай ошибок как гамак, не стоит все пихать в ехе если проекты будут весомые. Ведь при запуске ехе грузится в память, представь сколько он займет при старте памяти. А при чтении с файлов память используется динамически и с пользой =).
)
я даже посидел бы в нём, а то обычно черт поймёшь и разберёшься в этих квестовых конструкторах 
