Перемещение нескольких TextBox' ов
Всем привет. Вопрос вот какой:
Есть форма, на ней куча textBox'ов, расположенных встолбик... Где-то 200.
Названия у них "txtBi", где i=1..200. Нужно удалить, допустим, txtB5, а все остальные (от 6 до 200) сдвинуть вверх. Можно ли это сделать наименее затратно по времени, т.е. не перебирать каждую и сдвигать ее, а как-набудь по-другому. Типа все их выделить и сразу сдвинуть..
Есть форма, на ней куча textBox'ов, расположенных встолбик... Где-то 200.
Названия у них "txtBi", где i=1..200. Нужно удалить, допустим, txtB5, а все остальные (от 6 до 200) сдвинуть вверх. Можно ли это сделать наименее затратно по времени, т.е. не перебирать каждую и сдвигать ее, а как-набудь по-другому. Типа все их выделить и сразу сдвинуть..
Цитата:
Originally posted by koltaviy
Всем привет. Вопрос вот какой:
Есть форма, на ней куча textBox'ов, расположенных встолбик... Где-то 200.
Названия у них "txtBi", где i=1..200. Нужно удалить, допустим, txtB5, а все остальные (от 6 до 200) сдвинуть вверх. Можно ли это сделать наименее затратно по времени, т.е. не перебирать каждую и сдвигать ее, а как-набудь по-другому. Типа все их выделить и сразу сдвинуть..
Всем привет. Вопрос вот какой:
Есть форма, на ней куча textBox'ов, расположенных встолбик... Где-то 200.
Названия у них "txtBi", где i=1..200. Нужно удалить, допустим, txtB5, а все остальные (от 6 до 200) сдвинуть вверх. Можно ли это сделать наименее затратно по времени, т.е. не перебирать каждую и сдвигать ее, а как-набудь по-другому. Типа все их выделить и сразу сдвинуть..
А зачем столько, если не секрет?
Ну, ты немного неправильно назвал их, выдели первый, скопируй, вставь и на предложение создать массив элементов управления ответь да. Ты получиш такой массив: txtB(i), txtB(i+1). Нумерация с нуля!
Дальше функция:
[COLOR=blue]Private Sub txtBMove(txtBid as integer)
'здесь скрываешь элемент с номером txtBid
txtB(id).Visible=False
Dim i as integer
For i=0 To txtid
'двигаешь элементы, лучше расположи их вплотную-проще будет
next
End Sub [/COLOR]
Цитата:
Originally posted by ragerage
А зачем столько, если не секрет?
Ну, ты немного неправильно назвал их, выдели первый, скопируй, вставь и на предложение создать массив элементов управления ответь да. Ты получиш такой массив: txtB(i), txtB(i+1). Нумерация с нуля!
Дальше функция:
[COLOR=blue]Private Sub txtBMove(txtBid as integer)
'здесь скрываешь элемент с номером txtBid
txtB(id).Visible=False
Dim i as integer
For i=0 To txtid
'двигаешь элементы, лучше расположи их вплотную-проще будет
next
End Sub [/COLOR]
А зачем столько, если не секрет?
Ну, ты немного неправильно назвал их, выдели первый, скопируй, вставь и на предложение создать массив элементов управления ответь да. Ты получиш такой массив: txtB(i), txtB(i+1). Нумерация с нуля!
Дальше функция:
[COLOR=blue]Private Sub txtBMove(txtBid as integer)
'здесь скрываешь элемент с номером txtBid
txtB(id).Visible=False
Dim i as integer
For i=0 To txtid
'двигаешь элементы, лучше расположи их вплотную-проще будет
next
End Sub [/COLOR]
Спасибо!!:} Это не для практических целей, а интереса ради. Просто подумал, что это как-то
можно осуществить, а вот как не додумался;)
Попробую!.. Правда вот про массив он меня не спрашиваетP(
Цитата:
Originally posted by koltaviy
Спасибо!!:} Это не для практических целей, а интереса ради. Просто подумал, что это как-то
можно осуществить, а вот как не додумался;)
Попробую!.. Правда вот про массив он меня не спрашиваетP(
Спасибо!!:} Это не для практических целей, а интереса ради. Просто подумал, что это как-то
можно осуществить, а вот как не додумался;)
Попробую!.. Правда вот про массив он меня не спрашиваетP(
Странно...:roll: