Помогите я запутался!

[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!!

[GSerg]

Во-первых, нельзя тырить текст непосредственно в Text1.Text, надо строковую переменную завести и тырить в неё.
Во-вторых, событие Scroll возникает если таскать сам бегунок, а если кликать по кннопкам, возникает Change.

[Max!]

GSerg поясни как , приведи пример !

[GSerg]

Ну дык же...

Dim A As String
Open "MyFile.txt" For Input As #1
Input #1, A
Text1.Text = A
Close #1

Это что касается присвоения...
Что касается прокрутки, просто замени слова VScroll_Scroll на VScroll_Change.

[Yurich]

Оператор Line Input может работать с переменными
типа Variant или String, но не типа Object!

Оригинальный Help от Microsoft:

Reads a single line from an open sequential file and assigns it to a String variable.

Syntax

Line Input #filenumber, varname

The Line Input # statement syntax has these parts:

Part Description
filenumber Required. Any valid file number.
varname Required. Valid Variant or String variable name.
Remarks

Data read with Line Input # is usually written from a file with Print #.
The Line Input # statement reads from a file one character at a time until it encounters a carriage return (Chr(13)) or carriage return–linefeed (Chr(13) + Chr(10)) sequence. Carriage return–linefeed sequences are skipped rather than appended to the character string.

----------------------------------------------------------------
Вообще, в каком VB работаешь?
Приобрети VB5 - в нем встроенный хелп и бук онлайн с кучами
примеров, а от 6 не отличается (если не считать некоторых ошибок).

[Max!]

У меня все получилось огггрроомнноое вам спосибо!!!!!!!!!!!!!!!!!!!!!
А работаю я с Microsoft Visual Basic 6.0!

[Max!]

GSerg можеш ли ты мне пояснить как это Scroll возникает когда сам бегунок? Приведи пример!

[GSerg]

В полосе прокрутки (сиречь ScrollBar) есть кнопки вверх и вниз, и есть бегунок, этими кнопками перемещаемый. Прокрутить полосу можно, кликнув по стрелке. Бегунок сместится в нужную сторону, и возникнет событие Change. А можно не кликать по стрелке, а взять мышью бегунок и протащить его с помощью Drag'n'Drop. Тогда возникнет событие Scroll.




ЗЫ: Со второй сотней меня...