VPF::Глюк ListBox - Форум программистов

rniA

Дата 17.1.2011, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 1.8.2008
Где: Уфа

Репутация: нет
Всего: нет

Подскажите как победить этот глюк в Excel. Создаем новую книгу, кидаем список, в свойствах списка в columnwidths пишем число, например 250, кидаем кнопку, нажатие обрабатываем:

Код


Private Sub CommandButton1_Click()
With ListBox1
 .Clear
ReDim l(1 To 100, 0 To 1)
For i = 1 To 100
  l(i, 0) = i
  l(i, 1) = i
Next
.List = l
End With
End Sub

Все работает, но при каждом нажатии на кнопку высота списка немного увеличивается.

Это сообщение отредактировал(а) rniA - 17.1.2011, 15:43

Присоединённый файл ( Кол-во скачиваний: 3 )

bugListBox.rar 10,89 Kb

Akina

Дата 17.1.2011, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

Всё верно. Размер увеличивается на высоту горизонтального скролла.
Сохраняйте в начале метода ListBox1.Height и восстанавливайте в конце.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

rniA

Дата 18.1.2011, 08:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 1.8.2008
Где: Уфа

Репутация: нет
Всего: нет

Цитата(Akina @ 17.1.2011, 16:49

)

Спасибо. Columnwidths тоже надо сохранять и восстанавливать, иначе горизонтальный скроллинг пропадает

Staruha

Дата 19.1.2011, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Код


Private Sub CommandButton1_Click()
ComboBox1.Clear

With ComboBox1
     .AddItem "", 0
     .AddItem "F1", 1 'F1-элемент списка;1-индекс(После удаления первого элемента =0)
     .AddItem "F2", 2
     .AddItem "F3", 3
     .AddItem "F4", 4
     .AddItem "F5", 5
    End With
 ComboBox1.RemoveItem (0) 'удаляем первый элемент списка.Второй станет первым с индексом 0

End Sub

Я думаю надо просто очистить перед загрузкой.А если менять высоту то боюсь что содержимое списка будет все равно расти и список станет тяжелый

--------------------

Возмездие настигнет

rniA

Дата 19.1.2011, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 1.8.2008
Где: Уфа

Репутация: нет
Всего: нет

Очистка есть, и у меня листбокс))
Проблема решена с подсказкой Akina
smile

Это сообщение отредактировал(а) rniA - 19.1.2011, 12:56

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »