textbox@помогите.help

Написал GoodvinVV в 27/03/2008 19:41:23

Всем привет!
Назрел вопрос....и без помощи оществености и просвещенных мудрецов не обойтись мне , посоветуйте!
Имею на форме несколько listbox и textbox в них по нажатию одной кнопки заносятся строки, есть еще др кнопка "удалить последенюю строку"
если с listbox все понятно и просто:
If ListBox3.ListIndex >= 0 Then
ListBox3.RemoveItem ListBox3.ListIndex

а вот как из textbox удалять последнюю строку??? (количество строк известно) (пробовал сначала считывать в txt файл, потом читать его кроме последней строки в тотже textbox при первом нажатии на кнопку последняя строка удаляется, а при повторном вываливается ошибка , что файл уже открыт(File already open))


записываю в файл так:

Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = "C:\......\GoodvinTemp\Temp" & ttp & ".txt"
Open FName For Output As #FN
Print #FN, TextBox5.Text
Close #FN

читаю так:

Dim colstrok
colstrok = 0
Dim txt As String
Open "C:\...\GoodvinTemp\Temp" & ttp & ".txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
colstrok = colstrok + 1
If colstrok = np + 1 Then
Exit Sub
End If
TextBox5 = TextBox5 & txt & vbCrLf
Loop
Close #1

np = np - 1
End If