Dark side of Programming, Visual Basic Опции

[Bourn]

примерно так

Код

Dim back() As String
Dim bint As Integer

Private Sub Command1_Click()
If bint >= 0 Then
   ReDim Preserve back(bint)
   Text1.Text = back(bint)
   bint = bint - 1
End If
End Sub

Private Sub Form_Load()
bint = -1
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
bint = bint + 1
ReDim Preserve back(bint)
back(bint) = Text1.Text
End Sub

P.S. у меня Ctrl+Z пашет...

[Guevara-chan]

Это реализация второго способа, если кто не понял).

[DracoLich]

Спасибо, работает. Еще - как можно "прочитать" определенную (по номеру) строку из txt-файла?

[Bourn]

всмысле? что значит по номеру? если считать строкой последовательность символов разделенных vbCrLf, тогда попробуй считать командой:
Line Input #файл,строка

[Guevara-chan]

Еще - как можно "прочитать" определенную (по номеру) строку из txt-файла?

Размер строк заранее известен ?

[DracoLich]

Нет, но "читать" надо лишь до Entera, т.е. новой строки.

[Guevara-chan]

Нет, но "читать" надо лишь до Entera, т.е. новой строки.

Ну, значит придется последоватеильно считать до нужной.

[Bourn]

2 DracoLich
Кстати, в блокноте новая строка начинается после последовательности в 1024 символа, на самом деле строка продолжается до Enter'a, но режется при просмотре на блоки длинной 1024 символа.
Есть конечно еще другой метод, и я тебе могу предложить кучу этих методов, но тот что я предложил выше - удобнее всего, и проще для твоего понимания .

[sergroj]

Спасибо, работает.

Не, криво. Все "левые" нажатия клавишь будет добавлять как отмену. У контрола, ведь, должно быть событие типа "OnChange". Хотя, TextBox и сам должен делать отмену, но только 1 действия.

[Bourn]

Не, криво. Все "левые" нажатия клавишь будет добавлять как отмену. У контрола, ведь, должно быть событие типа "OnChange". Хотя, TextBox и сам должен делать отмену, но только 1 действия.

можно повесить на ф-ю

Код

Private Sub Text1_Change()
End Sub

вот только надо определиться что событие вызывается после изменения текста

[gamecreator]

можно запоминать текст при потере фокуса или по таймеру.

[Bourn]

можно и так. только если по таймеру надо сравнивать не один и тот же текст все время запоминаем...

[gamecreator]

надо сравнивать не один и тот же текст все время запоминаем...

это имеет значение только в случае с многократной отменой

[Bourn]

да и с однократной тоже бы, особенно если текст большой, хотя в VB всеравно производительность низкая...