|
Обзор некоторых особенностей элементов управления библиотеки FM20.DLL
Автор: Павел Давайте откроем эту библиотеку и внимательно изучим... В данной статье я хочу познакомить Вас с библиотекой FM20.DLL. Не то чтобы Вы ее не знали, скорее всего, открывали, видели, что она повторяет стандартные элементы управления, и забывали про нее. Откуда же берется эта библиотека? Ответ прост: это элементы управления из VBA (Visual Basic for Application). Сама по себе библиотека, конечно, великовата - 1,05 Mb. И прежде чем просто включать ее в исходники своего приложения десять раз подумаешь: окупает ли данный объем, то, что она предоставляет из себя. А предоставляет она несколько больше чем стандартные элементы управления VB. Давайте откроем ее и исследуем еще раз. Создайте новый проект StandardEXE. Далее меню: Project/Components ... В диалоговом окне выберем Microsoft Forms 2.0 Object Library. То, что появилось у нас на левой панели инструментов, практически один к одному повторяет стандартный набор. Это
Ага, вот пошли и отличия:
Давайте "покопаемся" в них. Для просмотра некоторых эффектов, расположите на форме картинку (свойство Picture), лучше фотографию. Элемент 1 - CommandButton. Размещаем на форме и устанавливаем свойство BackStyle = 0 (fmBackStyleTransparent). У Вас были до этого прозрачные кнопки? Кстати, прозрачность здесь поддерживается очень хорошо. Зайдите в свойство Picture и выберите любую иконку - нормальное отображение "вырезанной" иконки на фоне прозрачной кнопки. А свойство PicturePosition - говорит само за себя (расположение иконки на кнопке с различных сторон от надписи). И еще 2 необычных для кнопки свойства: AutoSize и WordWrap. Действуют они абсолютно так же как и для стандартного Label, но в общем-то эффект неожиданный. Так же необходимо обратить внимание на события данного элемента управления. Некоторые стандартные - отсутствуют, но зато появилась пара новых: CommandButton1_BeforeDragOver и CommandButton1_BeforeDropOrPaste, название которых объясняет их работу. Кстати, эти два события имеются в наличии практически у всех контролов данной библиотеки. Элемент 2 - Label. Чего-то неожиданного ждать от простой надписи не приходится, и все же: Наличие свойств Picture и PicturePosition, как и у CommandButton позволяет вставлять картинку. А свойство SpecialEffect превращает лейбл в панели с различными видами окантовки (так может это все-таки Panel, а не Label?). Элемент 3 - TextBox. Сразу же обращают на себя внимание два свойства: AutoSize и WordWrap. Есть ли необходимость в раздвижке текстового поля по мере ввода в него текста - не знаю, но свойства такие у него существуют и работают :) Свойство TextAlign работает точно так же, как и у RichTextBox, т.е. текст выравнивается именно так, как указано в свойстве. Естественно, присутствует наличие прозрачности и различных видов рамок (свойства BackStyle и SpecialEffect). Интересный эффект несет свойство AutoWordSelect. Если оно установлено в True, то при установке курсора в середине слова и расширении выделения, происходит захват выделением всего слова. И еще одно свойство AutoTab. Так же служит больше для удобств пользователя, чем программиста. При значении True, происходит автоматическое переключение фокуса на следующий элемент управления при достижении количества символов, определяемых в свойстве MaxLenght. Образцом реализации этого свойства служит инсталляционная программа Windows или Office, в том месте, где имеются несколько полей, куда надо вводить серийный номер. После ввода пятой цифры/буквы происходит самостоятельное перемещение курсора в следующее текстовое поле. Добавлены два метода Copy и Cut, соответственно копирующие или вырезающие выделенный текст в буфер обмена (Clipboard). В помощь им существует свойство CanPaste (только для чтения). CanPaste будет True, если содержимое можно буфера обмена можно вставить в данный элемент управления. И будет False - если нельзя (например, картинку в текстовое поле). Элементы 4 и 5 - CheckBox и OptionButton. Как и у вышеуказанных элементов поддерживают свойства прозрачности, окантовки, автоизменения размеров. Свойство GroupName позволяет, минуя контейнеры (типа Frame или PictureBox) объединять данные элементы управления в различные группы, что особенно актуально для OptionButton. NB! В отличие от стандартных ЭУ данные CheckBox и OptionButton НЕ ПОДДЕРЖИВАЮТ свойство Style. Для этого используется элемент ToggleButton. Элемент 6 - ScrollBar. Чем отличается от стандартного? Тем, что он один, а не два (VScroll и Hscroll). Но зато имеет свойство Orientation, где мы можем указать, как его расположить. Кстати, мы можем заняться его раскраской. За цвет всего контрола отвечает свойство BackColor, а за цвет треугольничков на кнопках - ForeColor. NB! Очередная недоделка Microsoft! Изменение раскраски на элементе происходит только после изменения какого-либо другого свойства, или запуска всего проекта. Еще два (бесполезных?) свойства. Первое - Delay. Отражает время в миллисекундах между щелчком на контроле и началом обработки события. Второе - ProportionalThumb. Интересуется, как отображать размер бегунка: пропорционально области прокрутки или фиксированного размера. Элемент 7 - Image. Особых различий по сравнению со стандартным Image, я не нашел. В этом плане мне более перспективным представляется Label из этой же библиотеки, который может еще выводить и надписи. NB! Смотри NB! к 6 элементу. Элемент 8 - ListBox. Что сразу бросается в глаза, так это отсутствие свойства List в окне свойств. Так что заполнение списка возможно только программным путем :( Отсутствует так же свойство Sort, т.е. сортировку необходимо проводить самому :( Зато меня откровенно порадовало свойство TextAlign - это то, что давно не хватало стандартному списку. Расширено свойство MatchEntry, которое реагирует при попадании фокуса на список: отыскивает первое слово по первой введенной букве, слову целиком или не реагирует вовсе. Наконец-то реализовано размещение значений в несколько столбцов. Хотя, на мой взгляд, несколько заумно. Расположите на форме ListBox и добавьте следующий код: Private Sub Form_Load() With ListBox1 .ColumnCount = 2 .AddItem "Строка 1, Столбец 1" .List(0, 1) = "Строка 1, Столбец 2" .List(0, 2) = "Строка 1, Столбец 3" .AddItem "Строка 2, Столбец 1" .List(1, 1) = "Строка 2, Столбец 2" .List(1, 2) = "Строка 2, Столбец 3" End With End Sub Свойство TextColumn, указывает номер столбца, содержимое которого выводится при вызове свойства Text. Элемент 9 - ComboBox. Если смотреть с позиций предыдущих элементов управления, то ComboBox представляет собой гибрид ListBox и TextBox, объединяя в себе все их достоинства, ну и недостатки то же :) Наличие таких свойств как TextAlign, ColumnCount, MatchEntry, List и TextColumn абсолютно соответствует ListBox (см. Элемент 8). А вот наличие свойств (идентичных в работе TextBox - см. Элемент 3) AutoSize, AutoTab, AutoWordSelect, MaxLenght и даже BackStyle (прозрачность!) + методы Cut, Copy, Paste придает определенную изюминку этому контролу. Из индивидуальных свойств, конечно, надо отметить ListRows. Немало было сломано копий в различных форумах и конференциях, как изменить высоту выпадающей части списка. А здесь все просто: отдельное свойство, указываешь количество строк и все. Удобно! Элемент 10 - "знакомые незнакомцы" - Frame. Для чего служит Frame в VB? Для двух целей: визуально выделить часть формы и работать контейнером (чаще всего для OptionButton). Frame из библиотеки VBA так же может выполнять эти две функции. Однако на этом ее возможности не заканчиваются. Frame может работать и как Image, практически полностью поддерживая все его свойства и методы. В том числе и PictureTilling - "размножение" мелких картинок на все пространство элемента управления. Плюс свойство KeepScrollBarsVisible - автоматическое встраивание полос прокрутки для изображения. Используя еще 4 свойства: ScrollHeight, ScrollWidth, ScrollTop, ScrollLeft, Вы можете регулировать расположение этих полос прокрутки. NB! Объявление ScrollHeight, ScrollWidth в коде ОБЯЗАТЕЛЬНО должно располагаться перед ScrollTop, ScrollLeft. Чего не может данный Frame? Удивительно, но он не может стать прозрачным. Ну не предусмотрели разработчики такого свойства :( Ну вот, со стандартными элементами вроде бы разобрались. Осталось еще 4. Нестандартными их назвать можно с натяжкой. В том или ином виде они встречаются в других библиотеках. Элемент 11 - SpinButton. Чего-то нового, по сравнению с тем, что было в VB4, я не нашел. Элемент прост и этим изящен, хотя и уступает по возможностям UpDown. Элемент 12 - ToggleButton ("западающая" кнопка). Суррогатный заменитель всего-навсего одного свойства у стандартных CheckBox и OptionButton, свойства Style = 1 (Graphical). В остальном, взял все у стандартной кнопки из этой библиотеки. Элементы 13 и 14 - TabStrip и MultiPage. Идентичные по структуре и выполняемым функциям два элемента управления. Все различие заключается в том, что у MultiPage имеются уже встроенные контейнеры для каждой странички, что значительно облегчает визуальное построение приложения. NB! Для расположения различных элементов на страницах MultiPage, щелкните на элементе правой кнопкой мыши и в контекстном меню выберите Edit. Элемент управления получит другой вид окантовки. Если теперь щелкнуть правой кнопкой мыши на ярлыках, то появится возможность добавлять, удалять и переименовывать ярлыки. Основные методы работы с MultiPage производятся через коллекцию Pages и класс Page (подробнее можно ознакомиться через Object Browser). Принципы работы с TabStrip можно показать на следующем примере. Разместите на форме TabStrip и 2 PictureBox: Picture1 и Picture2. Раскрасьте в различные цвета PictureBox, чтобы легче различать. Private Sub Form_Load() Picture1.Move TabStrip1.Left, TabStrip1.Top + TabStrip1.Height, _ TabStrip1.Width Picture2.Move -20000, TabStrip1.Top + TabStrip1.Height, _ TabStrip1.Width End Sub Private Sub TabStrip1_Click(Index As Long) Select Case TabStrip1.Value Case 0 Picture1.Move TabStrip1.Left, TabStrip1.Top + TabStrip1.Height, _ TabStrip1.Width Picture2.Move -20000, TabStrip1.Top + TabStrip1.Height, _ TabStrip1.Width Case 1 Picture1.Move -20000, TabStrip1.Top + TabStrip1.Height, _ TabStrip1.Width Picture2.Move TabStrip1.Left, TabStrip1.Top + TabStrip1.Height, _ TabStrip1.Width End Select End Sub На этом, пожалуй, краткий обзор библиотеки FM20.DLL можно завершить. В задачи этой статьи не входило подробное изучение каждого контрола, для этого существует хелп по VBA (FM20.CHM). Но думаю, что основную задачу я выполнил - навел Вас на размышления: а так ли уж хороши ЭУ в самом VB? Или действительно хороши? В заключение немного об общих недоработках: 1. наверно, надо отметить отсутствие у всех вышеуказанных контролов свойства hDC - хэндла (идентификатора), что значительно сокращает использование API-функций, большинство которых, требуют его. 2. отсутствие ряда контролов, таких как PictureBox, Timer или группы контролов для работы с файлами. Лирическое отступление. Для тех, кто всерьез заинтересуется данной библиотекой, рекомендую обратить внимание на ряд классов, никак не отраженных в вышеперечисленных контролах (DataObject, NewFont, группа классов HTML). Счастливой охоты! |
Автор проекта: ___Nikolay