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

Else

cboUnits.Clear

cboControllers.Clear

End If

End If

End Sub

Private Sub cboSites_Click()

If cboSites.Text <> Site.Name Then

Set Site = Enterprise.PIModules.Item(cboSites.Text)

cboAreas.Clear

For Each Area In Site.PIModules

cboAreas.AddItem Area.Name

Next Area

If cboAreas.ListCount > 0 Then

cboAreas.ListIndex = 0

Else

cboLines.Clear

cboUnits.Clear

cboControllers.Clear

End If

End If

End Sub

Другой способ создания структуры для навигации состоит в том, чтобы использовать элемент управления, представляющий данные в виде дерева. В данном подходе это дерево будет отображать структуру модулей нашего предприятия. При выборе узла обработчик события считывает заголовок модуля. Если это контроллер, то экран будет обновлен.

Первый шаг состоит в том, чтобы при загрузке экрана загрузить модули в элемент управления – дерево. В данном примере будет загружена вся структура. В усовершенствованном варианте можно было бы загружать нижние узлы дерева в тот момент, когда они выбираются. Иерархические структуры данных можно загружать при помощи рекурсивного кода (re-entrant code) – то есть функций, которые вызывают сами себя. Вот код, который загружает модули в элемент управления "tree view":

Private Sub LoadTreeView()

Dim EnterpriseNode As Node

Dim i As Long

tvwEnterprise.nodes.Clear

tvwEnterprise.Sorted = False