| |
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! sevEingabe 3.0
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. 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
|
|