|
Читайте также: |
Следующий пример поможет вам лучше понять, как проектируются классы. Я использую класс SmartForm для хранения и получения информации о положении и размере форм на экране. Такие формы «запоминают» свое положение и состояние между запусками приложения. Когда все будет готово, вы можете включить этот класс в свою программную библиотеку и использовать его в будущих проектах!
1. Создайте новый проект командой File > New Project или сочетанием клавиш Ctrl+N.
2. В открывшемся диалоговом окне New Project выберите значок Standard EXE.
3. Включите в проект новый модуль класса — для этого щелкните правой кнопкой мыши в окне проекта и выберите команду Add > Class Module из контекстного меню.
4. В диалоговом окне Add Class Module выберите значок Class Module и нажмите кнопку Open.
5. В окне свойств задайте свойству Name созданного класса значение Smart Form.
6. Дважды щелкните на форме Smart Form в окне проекта, чтобы открыть для нее окно программы.
7. Вставьте следующий фрагмент в секцию (General) (Declarations) модуля класса:
Option Explicit
‘Закрытые переменные
Private mForm As Object
Private mLeft As Long
Private mTop As Long
Private mWidth As Long
Private mHeight As Long
Private mWS As Integer
Public Event ErrorMessage(Message As String)
Эти закрытые переменные относятся только к данному классу и недоступны за его пределами. Работать с ними можно только через интерфейс класса. Событие
ErrorMessage объявлено открытым (Public).
8. Добавьте в класс новое свойство командой Tools > Add Procedure.
9. Когда на экране появится диалоговое окно Add Procedure, введите в поле Name строку Form.
10. Установите переключатель Property и оставьте переключатель Scope в положении Public.
11. Завершите создание свойства кнопкой ОК. В программный модуль будут добавлены две процедуры событий: Public Property Get Form()и Public Property Let Form(ByVal vNewValue As Variant).
12. В строке
Property Let Form(ByVal vNewValue As Variant)
замените ключевое слово Let на Set. Строка примет следующий вид:
Property Set Form(ByVal vNewValue As Variant)
13. Вставьте следующую строку в процедуру Property Get Form():
Form = mForm
14. Вставьте следующую строку в процедуру Property Set Form...:
Set mForm = vNewValue
Поскольку в наших процедурах параметры имеют тип Variant, мы воспользуемся средствами поиска и замены IDE и заменим его типом Object.
15. Нажмите Ctrl+H, чтобы вызвать диалоговое окно поиска и замены текста.
16. Введите в поле Find What слово Variant.
17. Введите в поле Replace With слово Object.
18. Если бы поиск и замену требовалось выполнить во всем приложении, мы бы установили переключатель Current Project. Так как нас интересует только текущий модуль класса, установите переключатель Current Module.
19. Нажмите кнопку Replace All, чтобы заменить в данном модуле все типы Variant типами Object. В результате будут совершены две замены.
20. Закройте диалоговое окно кнопкой Cancel.
ПОДСКАЗКА Средства поиска и замены Visual Basic IDE играют чрезвычайно важную роль (впрочем, как и в любом текстовом редакторе), поэтому вам следует освоить их. Эти средства оказываются особенно полезными при изменении имен элементов в большом проекте.
21. Добавьте следующий метод в секцию (General)(Declarations):
Private Sub SaveSettings()
Dim mAppName As String
' Присвоить переменной имя ЕХЕ-файла
mAppName = App.EXEName
‘Информацию можно сохранить лишь при известном
' имени приложения и имени формы...
With mForm
If.Name <> "” Then
SaveSetting mAppName,.Name, _
"WindowState", Str$(.WindowState)
If.WindowState = vbNormal Then
SaveSetting mAppName,.Name, _
"Left", Str$(.Left)
SaveSetting mAppName,.Name, _
"Top", Str$(.Top)
SaveSetting mAppName,.Name, _
"Width", Str$(.Width)
SaveSetting mAppName,.Name, _
"Height", Str$(.Height)
End If
Else
' Инициировать событие ErrorMessage
RaiseEvent ErrorMessage("Необходимо задать " _
"объект формы!")
End If
End With
End Sub
Основная часть работы выполняется с помощью команды SaveSetting. Эта встроенная команда Visual Basic позволяет сохранить значения в системном реестре, не обращаясь к Windows API.
22. Добавьте следующий метод в секцию (General)(Declarations) класса:
Private Sub GetSettings()
Dim mAppName As String
‘Присвоить переменной имя ЕХЕ-файла
mAppName = App.EXEName
With mForm
If.Name <> "" Then
mLeft = Val(GetSetting(mAppName, _
.Name, "Left",.Left))
mTop = Val(GetSetting(mAppName, _
.Name, "Top",.Left))
mWidth = Val(GetSetting(mAppName, _
.Name, "Width",.Left))
mHeight = Val(GetSetting(mAppName, _
.Name, "Height",.Left))
‘Изменить размер формы
.WindowState = mWS
.Move mLeft, mTop, mWidth, mHeight
Else
‘Инициировать событие ErrorMessage
RaiseEvent ErrorMessage("Необходимо задать "
"объект формы!")
End If
End With
End Sub
Чтобы наш класс позволял изменять размеры форм, в секцию (General) (Declarations) модуля класса следует включить метод Resize:
Public Sub ResizeO
' Все, что от нас требуется -
' сохранить координаты формы
SaveSettings
End Sub
23. Вставьте следующий фрагменте секцию (General) (Form [Property Set]):
Public Property Set Form(ByVal vNewValue As Object)
‘Создать ссылку на реальный объект формы
Set mForm = vNewValue
‘Получить сохраненные координаты
GetSettings
‘Выполнить первое изменение размера
Resize
End Property
24. Остается лишь научить класс сохранять значения параметров и уничтожать ссылку при выгрузке объекта формы. Для этого в процедуру события Class_ Terminate() вставляется следующий фрагмент:
Private Sub Class_Terminate()
'Сохранить параметры формы
SaveSettings
'Уничтожить локальную ссылку на объект
Set mForm = Nothing
End Sub
25. Мы ввели довольно большой объем кода — настало время сохранить файл. Нажмите Ctrl+S, и когда на экране появится диалоговое окно Save As, укажите в поле Save In имя каталога своей программной библиотеки (если вы создали ее).
26. Нажмите кнопку Save, чтобы сохранить класс.
Поздравляю! Вы только что создали универсальный модуль класса. Этот модуль можно использовать в любых проектах, содержащих формы, а его подключение к формам требует минимального объема кода. Давайте посмотрим, как это делается:
1. Дважды щелкните на форме Form! в окне проекта, чтобы открыть окно программы для формы.
2. Вставьте следующую строку в секцию (General)(Declarations) формы:
Option Explicit
Private WithEvents sf As SmartForm
Как говорилось ранее, ключевое слово WithEvents сообщает Visual Basic о необходимости вывода событий класса в окне программы. В результате вы сможете выбрать sf из раскрывающегося списка Object в левом верхнем углу окна программы.
3. Перейдите к процедуре события ЕггоrMessage и вставьте в нее следующую строку:
Private Sub sf_ErrorMessage(Message As String)
MsgBox Message
End Sub
По команде MsgBox Visual Basic создает диалоговое окно сообщения для вывода информации. Переменная Message передается этой функции в качестве параметра.
4 Чтобы воспользоваться объектом класса SmartForm (sf), необходимо его создать. Иначе говоря, объект должен быть создан на базе шаблона, описанного в модуле класса. Для этого в процедуру события Form_Load() формы Form1 добавляется следующий фрагмент:
Private Sub Form_Load()
Set sf = New SmartForm
Set sf.Form = Me
End Sub
5. При изменении размеров формы нужно приказать объекту SmartForm запомнить размер и положение формы. Вставьте следующий фрагмент в процедуру события Form_Resize:
Private Sub Form_Resize()
sf.Resize
End Sub
6. Наконец, при закрытии формы следует уничтожить объект sf. Вставьте следующую строку в процедуру Form_Unload():
Private Sub Form_Unload(Cancel As Integer)
Set sf = Nothing
End Sub
7. Щелкните на строке Projectl в окне проекта и задайте свойству Name значение Проверка.
ВНИМАНИЕ Каждый проект, в котором используется класс SmartForm, должен обладать уникальным именем. Дело в том, что формы идентифицируются по имени проекта. Если в нескольких одноименных проектах появятся одноименные формы, результат будет непредсказуемым.
Сохраните и запустите проект. На первый взгляд, наше приложение не производит особого впечатления. Попробуйте изменить размеры формы и сместить ее в угол экрана, после чего нажмите кнопку [х] и вернитесь в IDE. Запустите приложение заново. Если все было сделано верно, форма будет находиться в том же месте и иметь те же размеры, которые она имела на момент закрытия. Повторяя шаги 1—5, вы сможете пользоваться «интеллектуальными формами» в своих приложениях.
А теперь я расскажу об одном инструменте, который упрощает процесс визуального проектирования и создания классов.
Дата добавления: 2015-07-20; просмотров: 71 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| События | | | Использование Class Builder |