vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Treeview Aufbau 
Autor: rtaucher
Datum: 20.08.07 13:14
ist ein bischen lang...

hier mal mein baumaufbau: 

        Dim Ma As Integer
        Dim temp As ComboItem
 
        temp = Me.cbEinstellungMaschine.SelectedItem 'Auswahl aus der 
        ' combobox....
 
        If Me.cbEinstellungMaschine.SelectedIndex >= 0 Then
            Ma = temp.Tag
        Else
            Exit Sub
        End If
 
        If Ma > 1 Then
            If MMI.MaschineZuordnung(Ma - 1).Teilung = True Then
                If MMI.MaschineZuordnung(Ma - 1).Typ = "Classic" And _
                  MMI.MaschineZuordnung(Ma - 1).NE = "keiner" Then
                    MMI.Menueleiste.EinstellungFenster.Baum = 3
                End If
                If MMI.MaschineZuordnung(Ma - 1).Typ = "Classic" And _
                  MMI.MaschineZuordnung(Ma - 1).NE <> "keiner" Then
                    MMI.Menueleiste.EinstellungFenster.Baum = 4
                End If
                If MMI.MaschineZuordnung(Ma - 1).Typ = "HR" And _
                  MMI.MaschineZuordnung(Ma - 1).NE = "keiner" Then
                    MMI.Menueleiste.EinstellungFenster.Baum = 7
                End If
                If MMI.MaschineZuordnung(Ma - 1).Typ = "HR" And _
                  MMI.MaschineZuordnung(Ma - 1).NE <> "keiner" Then
                    MMI.Menueleiste.EinstellungFenster.Baum = 8
                End If
            Else
                If MMI.MaschineZuordnung(Ma).Typ = "Classic" And _
                  MMI.MaschineZuordnung(Ma).NE = "keiner" Then
                    MMI.Menueleiste.EinstellungFenster.Baum = 1
                End If
                If MMI.MaschineZuordnung(Ma).Typ = "Classic" And _
                  MMI.MaschineZuordnung(Ma).NE <> "keiner" Then
                    MMI.Menueleiste.EinstellungFenster.Baum = 2
        End If
 
        Select Case MMI.Menueleiste.EinstellungFenster.Baum
            Case 1
                tnRoot1.Nodes.Add(tnTeachin)
                tnRoot1.Nodes.Add(tnKamera)
                tnRoot1.Nodes.Add(tnZuordnung)
                tnRoot1.Nodes.Add(tnGewichtung)
                tnRoot1.Nodes.Add(tnObjektgrenzen)
                tnRoot1.Nodes.Add(tnKSPAlgo)
                tnRoot1.Nodes.Add(tnSperren)
                tnRoot1.Nodes.Add(tnVentile)
                tnRoot1.Nodes.Add(tnRoot5)
                tnRoot1.Nodes.Add(tnAbreinigung)
 
                tnRoot2.Nodes.Add(tnSortierzustand)
                tnRoot2.Nodes.Add(tnNameRezept)
                tnRoot2.Nodes.Add(tnStatistik)
 
                tnRoot3.Nodes.Add(tnRoot4)
                tnRoot3.Nodes.Add(tnMMI)
                tnRoot3.Nodes.Add(tnSortVISU)
 
                tnRoot4.Nodes.Add(tnLeitstand)
 
                tnRoot5.Nodes.Add(tnVR1MatBeg)
                tnRoot5.Nodes.Add(tnVR2MatBeg)
 
                Einstellungen_Tree.Nodes.Add(tnRoot1)
                Einstellungen_Tree.Nodes.Add(tnRoot2)
                Einstellungen_Tree.Nodes.Add(tnRoot3)
 
            Case 2
                tnRoot1.Nodes.Add(tnTeachin)
                tnRoot1.Nodes.Add(tnKamera)
                tnRoot1.Nodes.Add(tnZuordnung)
                tnRoot1.Nodes.Add(tnGewichtung)
                tnRoot1.Nodes.Add(tnObjektgrenzen)
                tnRoot1.Nodes.Add(tnKSPAlgo)
                tnRoot1.Nodes.Add(tnSperren)
                tnRoot1.Nodes.Add(tnVentile)
                tnRoot1.Nodes.Add(tnRoot5)
                tnRoot1.Nodes.Add(tnAbreinigung)
                tnRoot1.Nodes.Add(tnNEEinstellung)
 
                tnRoot2.Nodes.Add(tnSortierzustand)
                tnRoot2.Nodes.Add(tnNameRezept)
                tnRoot2.Nodes.Add(tnStatistik)
 
                tnRoot3.Nodes.Add(tnRoot4)
                tnRoot3.Nodes.Add(tnMMI)
                tnRoot3.Nodes.Add(tnSortVISU)
 
                tnRoot4.Nodes.Add(tnSchnittstelle)
                tnRoot4.Nodes.Add(tnLeitstand)
 
                tnRoot5.Nodes.Add(tnVR1MatBeg)
                tnRoot5.Nodes.Add(tnVR2MatBeg)
 
                Einstellungen_Tree.Nodes.Add(tnRoot1)
                Einstellungen_Tree.Nodes.Add(tnRoot2)
                Einstellungen_Tree.Nodes.Add(tnRoot3)
 
          End Select
 
        MMI.Menueleiste.EinstellungFenster.Einstellungen_Tree.ExpandAll()
        MMI.Menueleiste.EinstellungFenster.Einstellungen_Tree.SelectedNode = _
          MMI.Menueleiste.EinstellungFenster.Einstellungen_Tree.Nodes(0)
verständlich?

mfg
rt

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Treeview Aufbau1.092rtaucher20.08.07 11:59
Re: Treeview Aufbau607.:markus:.20.08.07 12:18
Re: Treeview Aufbau633rtaucher20.08.07 13:14
Re: Treeview Aufbau584.:markus:.20.08.07 14:00
Re: Treeview Aufbau643rtaucher20.08.07 14:12
Re: Treeview Aufbau592rtaucher21.08.07 14:15

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel