VERSION 5.00
Begin VB.PropertyPage PVWTrend 
   Caption         =   "TrendControl"
   ClientHeight    =   3345
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5865
   PaletteMode     =   0  'Rasterbild
   ScaleHeight     =   3345
   ScaleWidth      =   5865
   Begin VB.ListBox List1 
      Height          =   2790
      Left            =   120
      TabIndex        =   1
      Top             =   420
      Width           =   5625
   End
   Begin VB.Label Label1 
      Caption         =   "Vorhandene VWTrend-Steuerelemente"
      Height          =   195
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   4815
   End
End
Attribute VB_Name = "PVWTrend"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit


Private Sub List1_Click()
    Changed = True
End Sub


Private Sub PropertyPage_ApplyChanges()
    Dim ctr As Object
    
    'TrendControl-Eigenschaft der UserControls setzen
    For Each ctr In SelectedControls
        ctr.TrendControl = List1.List(List1.ListIndex)
    Next ctr
End Sub

'Prozedur, welche alle auf der Form
'vorhandenen TrendControls in die Liste schreibt
Private Sub PropertyPage_SelectionChanged()
    
    Dim uctr1     As VWTrendLegend
    Dim uctr2     As VWTrendTime
    Dim ctr       As Control
    Dim n         As Integer
    Dim Container As Object
    Dim sTrend    As String
    
    On Error Resume Next
    Select Case TypeName(SelectedControls(0))
    Case "VWTrendLegend"
        Set uctr1 = SelectedControls(0)
        Set Container = uctr1.Container
        sTrend = uctr1.TrendControl
    Case "VWTrendTime"
        Set uctr2 = SelectedControls(0)
        Set Container = uctr2.Container
        sTrend = uctr2.TrendControl
    End Select
    List1.Clear
    
    'Schleife, die alle Controls des Containers (z.B. eines Formulars) durchläuft
    For Each ctr In Container.Controls
        'Wenn aktuelles Control vom Typ VWTrend ist
        If TypeName(ctr) = "VWTrend" Then
            List1.AddItem ctr.Name
            If sTrend = ctr.Name Then
                List1.ListIndex = List1.NewIndex
            End If
        End If
    Next ctr
End Sub