Курсовая работа: Разработка модуля для контура управления tic-104

cboLines.AddItem Line.Name

Next Line

Set Line = Area.PIModules.Item(1)

For Each Unit In Line.PIModules

cboUnits.AddItem Unit.Name

Next Unit

Set Unit = Line.PIModules.Item(1)

For Each Controller In Unit.PIModules

cboControllers.AddItem Controller.Name

Next Controller

Set Controller = Unit.PIModules.Item(1)

cboSites.ListIndex = 0

cboAreas.ListIndex = 0

cboLines.ListIndex = 0

cboUnits.ListIndex = 0

cboControllers.ListIndex = 0

End Sub

Для каждого combo box имеется обработчик события выбора (select). Окна "combo box", находящиеся выше в иерархии, вызывают событие “select” у ближайшего снизу окна в иерархии. Это автоматически приводит к генерации последовательности событий выбора, что заставляет обновиться все окна, а вслед за ними, и экраны. Вотсоответствующийкод:

Private Sub cboControllers_Click()

Dim Reload As Boolean

Reload = False

If Controller Is Nothing Then

Reload = True

ElseIf cboControllers.Text <> Controller.Name Then

Reload = True

End If

If Reload Then

‘Set Controller = Controllers.PIModules.Item(cboControllers.Text)

Set Controller = Unit.PIModules.Item(cboControllers.Text)