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

End If

If Reload Then

Set Line = Area.PIModules.Item(cboLines.Text)

cboUnits.Clear

For Each Unit In Line.PIModules

cboUnits.AddItem Unit.Name

Next Unit

If cboUnits.ListCount > 0 Then

cboUnits.ListIndex = 0

Else

cboControllers.Clear

End If

End If

End Sub

Private Sub cboAreas_Click()

Dim Reload As Boolean

Reload = False

If Area Is Nothing Then

Reload = True

ElseIf Area.Name <> cboAreas.Text Then

Reload = True

End If

If Reload Then

Set Area = Site.PIModules.Item(cboAreas.Text)

cboLines.Clear

For Each Line In Area.PIModules

cboLines.AddItem Line.Name

Next Line

If cboLines.ListCount > 0 Then