«VBA Использование объектов, их свойства и методы. Формы. Объектная модель FSO»

 Элементы управления Панели элементов управления в VBA представляют классы. Объект, известный как элемент управления, не существует, пока он не нарисован на форме. Когда создается элемент управления, создается копия, или экземпляр (instance) класса элемента управления

 Форма, используемая во время разработки, является классом. Во время выполнения VBA создает экземпляр класса формы

 Объект Microsoft Excel chart (Диаграмма Microsoft Excel)

 Объект Microsoft Excel Worksheet (Рабочий лист Microsoft Excel)

 Объект Microsoft Word Document (Документ Microsoft Word)

 При обращении к объектам других приложений следует знать иерархию объектов этого приложения.

 Работая с объектами доступа к данным, следует знать иерархию Data Access Objects (Объектов доступа к данным)

 Использовать индекс члена:

 Рамка

 Графическое окно

Private Sub Form_Click() 
Static intX as Integer 
Select Case intX
Case 0
Set Command1.Container = Picture1
Command1.Top= 0
Command1.Left= 0
Case 1
Set Coinmand1. Container = Frame1 
Command1.Top= 0 
Command1.Left= 0
Case 2
Set Command1.Container = Form1 
Conmiand1. Top= 0 
Commandl.Left= 0
End Select 
intX = intX + 1 
End Sub

 Можно создавать ссылки на объект с помощью переменных

 Можно создавать собственные объекты с самого начала с помощью модулей классов

 Можно создавать собственные наборы с помощью объекта collection (Набор.)

 Имена переменных, как правило, короче и их легче запомнить, чем значения, которые они содержат (или, как в данном случае, объекты, на которые они ссылаются)

 Во время выполнения кода переменные можно изменять, организуя ссылки на другие объекты

 Ссылка на переменную, содержащую объект, более эффективна, чем постоянная ссылка на сам объект

 Сначала ее объявляют:

 Затем ей присваивают объект:

Dim objDemo As ListBox 
Set objDemo = IstSample

If frmAccountDisplay.txtAccountBalance.Text < 0 Then
FrmAccountDisplay.txtAccountBalance.BackColor = 0 _
FrmAccountDisplay.txtAccountBalance.ForeColor = 255 
End If

Dim Bal As TextBox
Set Bal = frmAccountDisplay.txtAccountBalance
If Bal.Text < 0 Then
Bal.BackColor = 0
Bal.ForeColor = 255 
End If

Private Sub Form_Click()
Dim anyText As TextBox
Set anyText = Textl
anyText.Text = "Hello" 
End Sub

Private Sub Form_Click()
Dim anyControl As Control
Set anyControl = Formi.Controls(3)
anyControl.Caption = "Hello" 
End Sub

 Form. Ссылается на любую форму в приложении

 control. Ссылается на любой элемент управления в приложении

 object. Ссылается на любой объект

' Пользовательский метод на Form1 
Public Sub LateJobsCountO
. ' <операторы> 
End Sub

Form1.IDNumber = 3 
Textl.Text = Form1.IDNumber

Dim x As sample
Set x = New sample
х. Show

Public cisNew As ShowMe 
Private Sub Commandl Click()
Set cisNew = New ShowMe
cisNew.ShowFrm 
End Sub

 Sub ShowFrm()
Dim frmNew As sample
Set frmNew = New sample
frmNew.Show
End Sub

 Объявлять переменные основного типа данных, например: Dim x As New Integer

 Объявлять переменные любого родового объекта, например: Dim x As New Control

 Объявлять переменные типа для любого конкретного элемента управления, например: Dim X As New ListBox

 Объявлять переменные для любого конкретного элемента управления, например: Dim X As New IstNames.

 Оператора unload (Выгрузить) для выгрузки формы или элемента управления из памяти

 Значения Nothing (Ничего) для освобождения ресурсов, используемых переменной для объекта. Следует присвоить значение Nothing переменной для объекта оператором Set.

Private Sub Commandl_Click()
' Вызов процедуры Demo sub и передача ей формы.
Demo Form1 
End Sub
Private Sub Demo(x As Formi)
' Прижать вправо.
x.Left = 0
End Sub

Private Sub Form_Click() 
Form2.GetPicture Picture1
End Sub

Private objX As PictureBox Public 
Sub GetPicture(x As PictureBox)
' Присваивает переданное графическое окно объектной переменной.
Set objX = x
' Присваивает значение свойства Picture графическому окну на Formi
objX.Picture = picture2.Picture 
End Sub

 Подключить к проекту библиотеку типов SCRRUN.DLL. Эта библиотека входит в комплект поставки последних разновидностей Windows95, а все более новые Windows, как 9x, так и NT содержат ее обязательно. Получить эту бибилотеку можно бесплатно на сайте Microsoft http://msdn.microsoft.com/scripting.

 Создать новый объект типа FileSystemObject стандартными методами (посредством New или CreateObject)

 Использовать его методы и свойства для получения необходимой информации, в том числе ссылок на другие (подчиненные) объекты модели. Соответственно, использовать методы и свойства подчиненных объектов модели.