textbox@помогите.help
27/03/2008 19:41:23
#Link
Всем привет!
Назрел вопрос....и без помощи оществености и просвещенных мудрецов не обойтись мне , посоветуйте!Имею на форме несколько 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
Re: textbox@помогите.help
08/04/2008 23:50:06
#Link
Может попробовать из textBox загружать в массив , а потом возвращать назад на одну строку меньше???
как из textBox сформировать массив строк???
Re: textbox@помогите.help
08/04/2008 23:59:36
#Link
dim i&
i=instrrev(TextBox5,vbCr)
if i then TextBox5=left$(TextBox5,i-1)
Re: textbox@помогите.help
09/04/2008 8:48:44
#Link
Вау !! всего то две строчки , а работает как часы!!!
Спасибо, выручил!
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=7366&start=0