Hallo liebe Menschen,
Ich habe mir eine Sub gebaut, die ablaufen soll, wenn ein Tab gewechselt wird. Für manche Tabs soll dann zusätzlich eine Prüfung ablaufen, die zurück gibt ob die Eingaben alle kompatibel sind. Ist dies nicht erfüllt soll er einfach die Tabpage beibehalten.
Leider macht er das nur halb.
Er springt ins nächste Tab, stellt den Fehler fest und springt dann wieder zurück, zeigt dann allerdings als Inhalt der Tabpage den Inhalt der nächsten Tabpage an.
Vielleicht ein bissen kompliziert erklärt. Also nochmal mit Beispiel. Er will von tab3 zu tab4 springen, er prüft, findet einen Fehler bei den Eingaben in Tab3, springt dann wieder von Tab4 in Tab3, stellt in Tab3 jetzt aber den Inhalt von Tab4 dar.
So also hier noch der entsprechende Teil meines Programms.
Ich hoffe das mit dem Code hat geklappt...
Ich habe mir eine Sub gebaut, die ablaufen soll, wenn ein Tab gewechselt wird. Für manche Tabs soll dann zusätzlich eine Prüfung ablaufen, die zurück gibt ob die Eingaben alle kompatibel sind. Ist dies nicht erfüllt soll er einfach die Tabpage beibehalten.
Leider macht er das nur halb.
Er springt ins nächste Tab, stellt den Fehler fest und springt dann wieder zurück, zeigt dann allerdings als Inhalt der Tabpage den Inhalt der nächsten Tabpage an.
Vielleicht ein bissen kompliziert erklärt. Also nochmal mit Beispiel. Er will von tab3 zu tab4 springen, er prüft, findet einen Fehler bei den Eingaben in Tab3, springt dann wieder von Tab4 in Tab3, stellt in Tab3 jetzt aber den Inhalt von Tab4 dar.
So also hier noch der entsprechende Teil meines Programms.
Quellcode
- Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
- Select Case TabControl1.SelectedIndex
- Case 0
- Me.TabControl1.Size = New Size(649, 2520)
- Case 1
- Eingabewerte_Prüfen_Tabpage1()
- speichern_Eingabewerte_Tabpage1()
- Me.TabControl1.Size = New Size(649, 820)
- Case 2
- Eingabewerte_prüfen_Tabpage2()
- Eingabewerte_speichern_Tabpage2()
- Me.TabControl1.Size = New Size(649, 580)
- Case 3
- Prüfen_Feldlänge()
- If testl = False Then
- Me.TabControl1.SelectTab(2)
- Exit Select
- End If
- Me.TabControl1.Size = New Size(649, 580)
- Case 4
- Eingabewerte_prüfen_Tabpage4()
- Eingabewerte_speichern_Tabpage4()
- Prüfen_spannglieder()
- If testa = False OrElse testn = False Then
- Me.TabControl1.SelectTab(3)
- Exit Select
- End If
- Me.TabControl1.Size = New Size(649, 580)
- Case 5
- Me.TabControl1.Size = New Size(649, 580)
- Case 6
- Eingabewerte_prüfen_Tabpage6()
- Eingabewerte_speichern_Tabpage6()
- Me.TabControl1.Size = New Size(649, 580)
- End Select
- End Sub
Ich hoffe das mit dem Code hat geklappt...