Класс ListBoxHScroll (обновление) – VB 4.0 (32-bit), VB 5.0, VB 6.0 – База кода

Скачать

Название (оригинал): ListBoxHScroll class (update)

Описание:
Англ (оригинал)A utility class for adding/hiding the horizontal scroll bar in the ListBox control dynamically taking into account its font (using the IFont interface). The code uses the SendMessage API function to add a horizontal scroll bar dynamically to a list box using the LB_SETHORIZONTALEXTENT message. To precisely calculate the width of a new item, our class uses the DrawText API function with the DT_CALCRECT flag. Draw attention at the fact that our class works properly if you change the font of the listbox as you want. We use the IFont interface and its hFont property to retrieve the handle of the font used in the listbox. Our class can also calculate the minimum width of the list box when the horizontal scroll bar disappears (it takes into account the visibility of the vertical scroll bar in the listbox; it determines whether this scroll bar is present by retrieving the listbox style flags and testing these set of flags for WS_VSCROLL).
Рус (машинный)Утилита класса для добавления/скрытия горизонтальной полосы прокрутки в элементе управления listbox динамически с учетом шрифта (с помощью интерфейса IFont). Код использует функции API sendmessage для добавления горизонтальной полосы прокрутки динамически в поле список через сообщение LB_SETHORIZONTALEXTENT. Чтобы точно рассчитать ширину новый элемент, наш класс использует функции API, то drawtext с флагом DT_CALCRECT. Обратить внимание на то, что наш класс работает должным образом, если вы измените шрифт из списка, как вы хотите. Мы используем интерфейс IFont и его свойства hFont для получения дескриптора шрифта, используемого в элементе управления listbox. Наш класс также можете рассчитать минимальную ширину поля со списком, когда горизонтальная полоса прокрутки исчезает (он учитывает видимость вертикальная полоса прокрутки в listbox

база кода