| |
Fragen & Antworten rund um sev-KomponentensevTabStrip - Positionierung des Reiters | | | Autor: crosstravel | Datum: 02.07.20 20:11 |
| Hallo,
ich habe eine Form mit TabStrip über welchen ich verschiedene Programme aufrufe. Nun möchte ich, dass nach Rückkehr aus einem aufgerufenen Programm ein bestimmter Reiter aktiviert wird - was leider nicht funktioniert.
MusterForm.show vbModal
Set MusterForm = Nothing
sevTabStrip1.ActivTab = 7 Die Aktivierung von Tab 7 wird einfach ignoriert. Wie kann ich das Verhalten gemäss meinem Wunsch anpassen?
Vielen Dank
Rainer | |
Re: sevTabStrip - Positionierung des Reiters | | | Autor: crosstravel | Datum: 03.07.20 09:31 |
| Hallo Dieter,
im Programm sieht es wie folgt aus:
Private Sub sevTabStrip1_SelectChanged(ByRef TItem As sevTab.Tab)
Select Case TItem.Index
Case 1
' ---------------------------------------------- Rundreise /
' Pendefahrt buchen
BuchungRundreise
Case 2
' ---------------------------------------------- Tagesfahrten buchen
BuchungTagesfahrt
Case 3
' ---------------------------------------------- Zusatzleistung
' buchen
BuchungZusatz
Case 4
' ---------------------------------------------- Hotelunterkunft
' buchen
BuchungHotel
Case 5
' ---------------------------------------------- Einsteigeplan der
' Reise
EinsteigeplanErstellen
Case 6
' ---------------------------------------------- Einsteigeplan der
' Reise
AbholPersonen
End Select
End Sub
Private Sub AbholPersonen()
ZusteigePersonen.Show vbModal
Set ZusteigePersonen = Nothing
sevTabStrip1.ActiveTab = 7
End Sub
Private Sub EinsteigeplanErstellen()
Einsteigeplan.Show vbModal
Set Einsteigeplan = Nothing
sevTabStrip1.ActiveTab = 7
End Sub
Private Sub BuchungRundreise()
Reisebuchung.Show vbModal
Set Reisebuchung = Nothing
sevTabStrip1.ActiveTab = 7
End Sub
Private Sub BuchungTagesfahrt()
Tagesfahrtbuchung.Show vbModal
Set Tagesfahrtbuchung = Nothing
sevTabStrip1.ActiveTab = 7
End Sub
Private Sub BuchungZusatz()
ZusatzBuchung.Show vbModal
Set ZusatzBuchung = Nothing
sevTabStrip1.ActiveTab = 7
End Sub
Private Sub BuchungHotel()
Hotelbuchung.Show vbModal
Set Hotelbuchung = Nothing
sevTabStrip1.ActiveTab = 7
End Sub | |
Re: sevTabStrip - Positionierung des Reiters | | | Autor: crosstravel | Datum: 03.07.20 10:26 |
| Hallo Dieter,
danke für den Hinweis. Ich habe bisher noch nicht mit dem Timer-Event gearbeitet. Könntest Du mir bitte einen Code-Schnipsel, an welchem ich mich orientieren kann, zur Verfügung stellen?
Vielen Dank
Rainer | |
Re: sevTabStrip - Positionierung des Reiters | | | Autor: crosstravel | Datum: 03.07.20 10:54 |
| Super, danke. Für was wird der Timer1.Tag benötigt; was sollte da abgefüllt werden? | |
Re: sevTabStrip - Positionierung des Reiters | | | Autor: crosstravel | Datum: 03.07.20 11:09 |
| Hi Dieter,
ich habe das so gemacht aber es funktioniert leider noch immer nicht. Nachstehend der Code - vielleicht siehst Du die Ursache?
Private Sub Form_Load()
DisableCloseWindowButton Me
MinimizeRoutine
Timer1.Interval = 50
Timer1.Enabled = True
Timer1.Tag = 7
End Sub
Private Sub timer1_Timer()
Timer1.Enabled = False
sevTabStrip1.ActiveTab = Val(Timer1.Tag)
End Sub
' =======================================================================
' Steuerung des Main TabStrips
' =======================================================================
Private Sub sevTabStrip1_SelectChanged(ByRef TItem As sevTab.Tab)
Select Case TItem.Index
Case 1
' ---------------------------------------------- Rundreise /
' Pendefahrt buchen
BuchungRundreise
Case 2
' ---------------------------------------------- Tagesfahrten buchen
BuchungTagesfahrt
Case 3
' ---------------------------------------------- Zusatzleistung
' buchen
BuchungZusatz
Case 4
' ---------------------------------------------- Hotelunterkunft
' buchen
BuchungHotel
Case 5
' ---------------------------------------------- Einsteigeplan der
' Reise
EinsteigeplanErstellen
Case 6
' ---------------------------------------------- Einsteigeplan der
' Reise
AbholPersonen
End Select
Timer1.Tag = 7
Timer1.Enabled = True
End Sub
Private Sub AbholPersonen()
ZusteigePersonen.Show vbModal
Set ZusteigePersonen = Nothing
End Sub | |
Re: sevTabStrip - Positionierung des Reiters | | | Autor: crosstravel | Datum: 03.07.20 11:51 |
| Hallo Dieter,
irgendwo ist der Wurm drin - es will einfach nicht funktionieren. Habe ich wirklich alle Eingaben korrekt (Form_Load, Timer1_Timer, SelectChanged)? Ich komme beim Test zurück mit TItem.Index =, aber
nichts geschieht - der Reiter 7 wird nicht aktiviert.
Private Sub Form_Load()
DisableCloseWindowButton Me
MinimizeRoutine
Timer1.Interval = 50
Timer1.Enabled = True
Timer1.Tag = 7
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
sevTabStrip1.ActiveTab = Val(Timer1.Tag)
End Sub
' =======================================================================
' Steuerung des Main TabStrips
' =======================================================================
Private Sub sevTabStrip1_SelectChanged(ByRef TItem As sevTab.Tab)
Select Case TItem.Index
Case 1
' ---------------------------------------------- Rundreise /
' Pendefahrt buchen
BuchungRundreise
Case 2
' ---------------------------------------------- Tagesfahrten buchen
BuchungTagesfahrt
Case 3
' ---------------------------------------------- Zusatzleistung
' buchen
BuchungZusatz
Case 4
' ---------------------------------------------- Hotelunterkunft
' buchen
BuchungHotel
Case 5
' ---------------------------------------------- Einsteigeplan der
' Reise
EinsteigeplanErstellen
Case 6
' ---------------------------------------------- Einsteigeplan der
' Reise
AbholPersonen
End Select
If TItem.Index <> 7 Then
Timer1.Tag = 7
Timer1.Enabled = True
End If
End Sub
Private Sub AbholPersonen()
ZusteigePersonen.Show vbModal
Set ZusteigePersonen = Nothing
End Sub | |
Re: sevTabStrip - Positionierung des Reiters | | | Autor: crosstravel | Datum: 03.07.20 13:03 |
| Ja, das habe ich. ASllerdings in einer Picture-Box. Ich nehme da jetzt mal direkt auf die Form und schaue, wie sich die Sache verhält | |
Re: sevTabStrip - Positionierung des Reiters | | | Autor: crosstravel | Datum: 03.07.20 13:09 |
| Hallo Dieter, das Timer-Element ist nun direkt auf der Form. Aber auch so passiert leider nichts. | |
| 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCoolbar 3.0
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere Infos
|
|
|
Copyright ©2000-2024 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
|
|