Просматривают:
1 Анонимно
textbox@помогите.help |
||
|
||
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Всем привет!
Назрел вопрос....и без помощи оществености и просвещенных мудрецов не обойтись мне , посоветуйте! Имею на форме несколько 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
Опубликовано: 2008/3/27 19:41
Edited by GoodvinVV on 28/03/2008 8:46:26
Edited by GoodvinVV on 28/03/2008 8:47:22 Edited by GoodvinVV on 08/04/2008 8:39:51 Edited by GoodvinVV on 08/04/2008 9:08:57 Edited by GoodvinVV on 08/04/2008 9:12:31 |
|
|
Re: textbox@помогите.help |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Может попробовать из textBox загружать в массив , а потом возвращать назад на одну строку меньше???
как из textBox сформировать массив строк???
Опубликовано: 2008/4/8 23:50
|
|
|
Re: textbox@помогите.help |
|
---|---|---|
Титан - модератор
Присоединился:
2006/4/8 19:42 Сообщений: 152
|
dim i&
i=instrrev(TextBox5,vbCr) if i then TextBox5=left$(TextBox5,i-1)
Опубликовано: 2008/4/8 23:59
|
|
|
Re: textbox@помогите.help |
|
---|---|---|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Вау !! всего то две строчки , а работает как часы!!!
Спасибо, выручил!
Опубликовано: 2008/4/9 8:48
|
|