Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.08.2017, 13:55   #1
ольгаг
Форумчанин
 
Регистрация: 22.02.2010
Сообщений: 325
По умолчанию Задание высоты ListBox

Здравствуйте Уважаемые программисты!
Есть файл excel 2003 (vba) с формой, на которой расположен ListBox1 с настройкой "Font":Arial-жирный-8. Ниже приведен код для загрузки данных в ListBox1 и определения высоты ListBox1. Свойство IntegralHeight для ListBox1 установлено в False.

Код:
Private Sub UserForm_Initialize()
   With Me.ListBox1
      .ColumnHeads = False
      .ColumnCount = 2
      .ColumnWidths = "133;460"
      .List = sRange.Value
      .MultiSelect = fmMultiSelectSingle
      .ListStyle = fmListStylePlain
      .TextColumn = 1
      .BoundColumn = 0
   End With

   With Me
      .StartUpPosition = 0
      .top = Application.top + 25
      .left = (Application.Width / 2) - (.Width / 2)
      .Height = Application.Height - 100
      .ListBox1.Height = .Height - 100
   End With
End Sub
В результате работы кода получается что: При запуске Формы высота ListBox1 не соответствует строкам, т.е. прокрутка (если список большой) появляется, но если прокрутку опустить до низа, то последняя строка в ListBox1 как бы обрезана (целиком не видна).
Подскажите пожалуйста как исправить код ниже, чтобы скорректировать высоту ListBox1 с учетом полного отображения строк при прокрутке, т.е. какое должно быть при этом число (100?) в строчке:
Код:
.ListBox1.Height = .Height - 100
Заранее спасибо!

Последний раз редактировалось ольгаг; 09.08.2017 в 13:59.
ольгаг вне форума Ответить с цитированием
Старый 09.08.2017, 15:12   #2
yuresku
Пользователь
 
Регистрация: 01.06.2011
Сообщений: 72
По умолчанию

Файл приложите.
yuresku вне форума Ответить с цитированием
Старый 10.08.2017, 04:52   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Попробуйте изменить вид отображения ListBox-а.
В блок With Me.ListBox1 ... End With добавьте строку
Код:
.SpecialEffect = 0
Должно помочь...
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 10.08.2017, 12:25   #4
ольгаг
Форумчанин
 
Регистрация: 22.02.2010
Сообщений: 325
По умолчанию

Спасибо.
ольгаг вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[ListBox] строки разной высоты Ship_1 Компоненты Delphi 4 27.03.2017 14:33
используя процедуру keypress и фунцию listbox.при нажатии на listbox менялась ее высота Алекс38 Общие вопросы Delphi 1 19.09.2012 19:36
Автоподбор высоты tae1980 Microsoft Office Excel 7 16.11.2010 18:01
как добавить в listbox файлы(пишу с помощью bassplayer)(Listbox+opendialog=play) blackstersl Общие вопросы Delphi 11 09.06.2010 13:23
Автоподбор высоты Fezdipekla Microsoft Office Access 1 31.03.2010 17:25