сохронение в TextBox

[Max!]

Я разместил на форму VScrollBar но после компиляции в программе оно не работает (не прокручивает)помогите !?

Потом я разместил на форму TextBox и я хочу что-бы программа сохраняла введенный текст пользавотелем при выходи из программы и загружал при запуске , помогите зарание благодарю!?

[Cyrax]

про сохранение... ну примерно так:

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

' сохранение в файл
Open filename For Output As filenumber
Print #filenumber, Text1.Text
Close

' загрузка из файла
Open filename For Input As filenumber
Input #filename, Text1.Text
Close


а про скролл поясни, не понял вопроса...

[serix]

про сохранение все верно,а если скрул нужен у тексбокса, то он у него и так есть...

[Max!]

Нет мне надо не в текстбоксе а на форме.

[RayShade]

А что ты им собираешься скролить смотря

[Max!]

Можно-ли зделать что бы программа сохроняла текст введенныи пользователем в текстбоксе при нажатий кнопки Save на форме
и сохроняла не в фаил , а в самои проги и сразу показывала
те данные или текст в текстбоксе при запуске программы.?

[Max!]

например я зделал форму стандартного размера но на ней не помещаются некоторые кнопки упровления и тд... и мне надо скролить!!!!!

[RayShade]

Это сложно реализовать.

Обрабатывай сообщение Scroll_Scroll и в нем позиционируй контролы в ручную

[Max!]

А как обробативать можешь привести пример кода или пояснить?!

[RayShade]

Ну примерно в таком ключе:



Когда вызывается это сообщение, то надо анализировать Scroll.Value -- это кол-во Form.ScaleMode единиц на которое пользователь сдвинул скролер относительно текущего положения. Отрицательное значение (для VScroll) означает сдвиг вверх.



Ты должен представить что твоя форма это как бы кинопленка а то окно в котором она нарисована - это объектив проектора.



Изначально в дизайнере нарисуй большую форму и размести на ней все контролы так, как они должны быть. потом уменьши форму до тех размеров, которые тебе нужны (в дизайнере). И потом просто прибавляй то, что передастся обработчику сообщения к Control.Top каждого контрола на форме:



private sub vscroll_scroll()

for each ctl in form.coontrols

ctl.top = ctl.top+vscroll.value

next ctl

end sub

[Max!]

У меря не выходит! Поясню я разместил на форму кнопки упровления и тд... потом я зделал форму нужных оазмеров поместил VScrollBar
всем объектам упровления добавил Top и в опциях VScrollBar зделал Value , и всеравно не работает , где я допустил ошибки?

[Max!]

куда именно надо добовлять этот код:
private sub vscroll_scroll()
for each ctl in form.coontrols
ctl.top = ctl.top+vscroll.value
next ctl
end sub

[RayShade]

В модуль класса формы, которую ты скролишь

[Max!]

Можно-ли зделать что бы программа сохроняла текст введенныи пользователем в текстбоксе при нажатий кнопки Save на форме
и сохроняла не в фаил , а в самои проги и сразу показывала
те данные или текст в текстбоксе при запуске программы.?

[RayShade]

В принципе можно, наверное, через ресурсы. Но я точно сказать не могу.

И потом, зачем? Ведь есть внешние файлы, реестр и куча мест

[Max!]

Мне неважно как , главное что бы работало! Как мне объясняли вышы
у меня не вышло! может есть варианты проще?

[RayShade]

Ну примерно так:



private sub form_unload(cancel as integer)

close #1

open "myfile" for output as #1

print #1, text1.text

close #1

end sub



private sub form_load()

close #1

open "myfile" for input as #1

line input #1, text1.text

close #1

end sub



(в общем то, я повторяюсь, это уже говорлилось в начале, я просто добавил сюда еще и заголовки обработчиков событий

[Max!]

А вместо # надо писать свои названия? И можно-ли поместить этот код:
private sub form_unload(cancel as integer)
close #1
open "myfile" for output as #1
print #1, text1.text
close #1
end sub

private sub form_load()
close #1
open "myfile" for input as #1
line input #1, text1.text
close #1
end sub
в кнопки , одна сохроняет , другая загружает?

[RayShade]

Нет нельзя. Почитай описание функций по работе с файлами и что такое файловый номер.



Если тебе надо по кнопке - то вешай на кнопки, а так это вообще то будет выполняться автоматом при закрытии и открытии формы.

[Max!]

Кроме кнопок куда еще можно повесить?

[RayShade]

куда угодно. В любое событие. Зависит от того, при каком действии тебе надо чтобы это происходило.

[Max!]

Вот настал момент истины решил опробовать примеры по сохронению и скрол! И вот неудача ! Разместил я на форму Frame там например название Форум ниже разместил Frame2 , ниже Frame2 я разместил текстбокс куда пользователь должен написать например свае имя и две кнопки , одна кнопка сохроняет имя в текстбоксе другая выходит из проги, третья загружает имя , потом умеьшил форму до нужных размеров и разместил VScrollBar , в коде первой кнопке которая сохроняет ввел:

private sub form_unload(cancel as integer)
close #1
open "myfile" for output as #1
print #1, text1.text
close #1
end sub

Во второй которая загружает имя ввел такои код:

private sub form_load()
close #1
open "myfile" for input as #1
line input #1, text1.text
close #1
end sub

В третий кнопке которая выходит из проги ввел код:

Private Sub Command3_Click()
End
End Sub

Затем создал класс модуль и ввел такои код:

private sub vscroll_scroll()
for each ctl in form.coontrols
ctl.top = ctl.top+vscroll.value
next ctl
end sub

Откомпилировал прогу что бы проверить как получилось , и вот бац скрол не прокручивает и кнопки не сохроняют текст выдает какуюто ошибку "Variable required - can't assign to this expression"
Помогите где я зделал ошибку !! Please!!