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

Fragen & Antworten rund um sev-Komponenten
sevOutBar 
Autor: Dundi
Datum: 27.03.05 09:23
Hallo,

der besseren Übersicht halber, habe ich links neben der Outbar einen Reiter laufen, der sofort die aktuelle Stelle des letzten Click-Ereignisses anzeigt. Der Reiter ist nichts weiter als ein Button. Dieses funktioniert leider nur in den Menüeinträgen und nicht bei den Menügruppen.

Zur Zeit sieht der Code so aus: 
Private Sub Outbar1_Click(ByVal Group As Long, ByVal Item As Long)
  Select Case Group            
    Case 1  ' 1. Gruppe (Allgemein)
 
            Select Case Item
               Case 1
                  ButtonReiter.Top = 1240 'Reiter wird  auf erste Untergruppe 
                  ' gesetzt
                End Select
 
     Case 2  ' 2. Gruppe (Außenanlage)
 
             Select Case Item
                Case 1
                   ButtonReiter.Top = 1800
                 End Select
 
    Case 3 '3.Gruppe (Etagen)
 
               Select Case Item
                  Case 1
                     ButtonReiter.Top = 2300
 
                   Case 2
                       ButtonReiter.Top = 3400
 
                   Case 3
                       ButtonReiter.Top = 4500
 
                   Case 4
                       ButtonReiter.Top = 5500
 
                 End Select           
        End Select
Wenn ich das selbe für die Menügruppen machen möchte passiert leider nichts.

z.B. 

Private Sub Outbar1_Click(ByVal Group As Long, ByVal Item As Long)
  Select Case Group             
    Case 1  ' 1. Gruppe (Allgemein)
               ButtonReiter.Top = 720
     Select Case Item
            Case 1
                ButtonReiter.Top = 1240 'Reiter wird  auf erste Untergruppe 
                ' gesetzt
             End Select
 
    Case 2  ' 2. Gruppe (Außenanlage)
         ButtonReiter.Top = 1000
      Select Case Item
            Case 1
                ButtonReiter.Top = 1800
              End Select
 
    Case 3 '3.Gruppe (Etagen)
        ButtonReiter.Top = 1500
      Select Case Item
            Case 1
                ButtonReiter.Top = 2300
 
            Case 2
                 ButtonReiter.Top = 3400
 
            '...............................................   
'usw, usf.
 
        End Select
Hat einer eine Idee? Wie kann ich an die Sache ran gehen? Was mache ich falsch?

Danke für die Mühe.

Grüßerle Dundi.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
sevOutBar1.434Dundi27.03.05 09:23
Re: sevOutBar802Wolfgang27.03.05 09:49
Re: sevOutBar691Dundi27.03.05 10:08
Re: sevOutBar723Dundi27.03.05 13:41
Re: sevOutBar940Dundi09.05.05 18:52
Re: sevOutBar777ModeratorDieter09.05.05 21:06
Re: sevOutBar742Dundi09.05.05 21:52
Re: sevOutBar773ModeratorDieter10.05.05 06:34
Re: sevOutBar878Dundi10.05.05 14:30
Re: sevOutBar767ModeratorDieter10.05.05 18:40
Re: sevOutBar925Dundi10.05.05 20:36
Re: sevOutBar809ModeratorDieter10.05.05 21:00
Re: sevOutBar804Dundi10.05.05 21:13
Re: sevOutBar782Dundi10.05.05 21:19
Re: sevOutBar941ModeratorDieter10.05.05 21:44
Re: sevOutBar787Dundi10.05.05 21:54
Re: sevOutBar733ModeratorDieter10.05.05 21:57
Re: sevOutBar793Dundi10.05.05 22:03
Re: sevOutBar831ModeratorDieter10.05.05 23:25
Re: sevOutBar830Dundi11.05.05 21:17
Re: sevOutBar822Dundi14.05.05 10:30
Re: sevOutBar894ModeratorDieter14.05.05 12:36

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