Если форма содержит только один элемент управления список (ListBox), довольно просто реализовать изменение его размеров при изменении размеров формы таким образом, чтобы список занимал всю форму
Изменение размеров списка (ListBox) при изменении размера формы. Если форма содержит только один элемент управления список (ListBox), довольно просто реализовать изменение его размеров при изменении размеров формы таким образом, чтобы список занимал всю форму Эта процедура на событие формы «Изменение размера» (Resize) Private Sub Form_Resize() 'указываем ширину полосы со всех сторон списка (ListBox) в твипах 'один твип равен 1/20 пункта или 1/1440 дюйма. 'В одном сантиметре 567 твип Const Rand = 100 'Me!lst1 – ссылка на список, размеры которого будем изменять With Me!lst1 'если свойство списка «От верхнего края» (Top) 'не равно установленному нами отступу (константа Rand) 'устанавливаем это свойство равным Rand If .Top <> Rand Then .Top = Rand 'аналогично для свойства «От левого края» (Left) If .Left <> Rand Then .Left = Rand 'используя функцию MAX для проверки присваемого значения 'устанавливаем Высоту (Height) списка равной 'высоте внутренней области окна содержащего форму, 'свойство InsideHeight формы, минус 'установленный отступ от границ формы умноженный на 2, 'т.к. с двух сторон :-) .Height = Max(Me.InsideHeight - Rand * 2, 0) 'аналогично для свойства списка «Ширина» (Width), но используя ширину 'внутренней области окна содержащего форму, свойство InsideWidth формы. .Width = Max(Me.InsideWidth - Rand * 2, 0) End With End Sub
Функция Мах позволяет избежать присвоения отрицательных значений размерам списка Public Function Max(lngA As Long, lngB As Long) As Long 'возвращает больший из двух аргументов Max = IIf(lngA > lngB, lngA, lngB) End Function
|
Просмотров: 9083
Ваш коментарий будет первым | | |