Добрый день. В количество секций ввожу от 1 до 9. в случае удаления Del, работает нормально. Т.е. программно рисуются Боксы А если выделить с Shift-ом цифру и удалить, а вместо вставить цифру меньшую, то не удаляются лишние Боксы. Вопрос - Как это лечиться. Заранее спасибо. Для запуска формы активировать Лист1
Добрый день. В количество секций ввожу от 1 до 9. в случае удаления Del, работает нормально. Т.е. программно рисуются Боксы А если выделить с Shift-ом цифру и удалить, а вместо вставить цифру меньшую, то не удаляются лишние Боксы. Вопрос - Как это лечиться. Заранее спасибо. Для запуска формы активировать Лист1sorcerer
В код особо не всматривался, решение "в лоб" - для ЛЮБОГО изменения (а не только для If TextBox4.Value <> "" Then) выполняйте блок очистки If TextBox4.Value = "" Then (кстати, его можно вынести в отдельный модуль), а затем уже блок For i = 2 To TextBox4.Value + 1
В код особо не всматривался, решение "в лоб" - для ЛЮБОГО изменения (а не только для If TextBox4.Value <> "" Then) выполняйте блок очистки If TextBox4.Value = "" Then (кстати, его можно вынести в отдельный модуль), а затем уже блок For i = 2 To TextBox4.Value + 1_Boroda_