Автор: Павел

Давайте откроем эту библиотеку и внимательно изучим... В данной статье я хочу познакомить Вас с библиотекой FM20.DLL. Не то чтобы Вы ее не знали, скорее всего, открывали, видели, что она повторяет стандартные элементы управления, и забывали про нее.

Откуда же берется эта библиотека? Ответ прост: это элементы управления из VBA (Visual Basic for Application). Сама по себе библиотека, конечно, великовата - 1,05 Mb. И прежде чем просто включать ее в исходники своего приложения десять раз подумаешь: окупает ли данный объем, то, что она предоставляет из себя. А предоставляет она несколько больше чем стандартные элементы управления VB.

Давайте откроем ее и исследуем еще раз. Создайте новый проект StandardEXE. Далее меню: Project/Components ... В диалоговом окне выберем Microsoft Forms 2.0 Object Library. То, что появилось у нас на левой панели инструментов, практически один к одному повторяет стандартный набор. Это

• Frame
• Label
• CommandButton
• TextBox
• ListBox
• ComboBox
• CheckBox
• OptionButton
• ScrollBar
• Image

Ага, вот пошли и отличия:

• ToggleButton
• TabStrip
• SpinButton
• MultyPage

Давайте "покопаемся" в них. Для просмотра некоторых эффектов, расположите на форме картинку (свойство 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). Счастливой охоты!