Hallo,
Wenn bei meinem Timer mehr als 4 Forms geöffnet werden, werden nur die ersten beiden und die letzten beiden Forms sichtbar gemacht.
Ist das denn nur mit 4 Forms möglich?? Habe keine Informationen darüber gefunden.
Gruß Skaletti!
Option Strict On
Public Class TabellenShow
Private Form1 As New Schüler\_LG\_frei
Private Form2 As New Jugend\_LG\_frei
Private Form3 As New Junioren\_LG\_frei
Private Form4 As New Schützen\_B\_LG\_frei
Private Form5 As New Schützen\_A\_LG\_frei
Private Form6 As New Damen\_LG\_frei
Private Form7 As New Damen\_Alt\_LG\_frei
Private Form8 As New Altersklasse\_LG\_frei
Private Form9 As New Senioren\_LG\_frei
Private Form10 As New Federbock\_LG
Private Sub Timer1\_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Schüler\_LG\_frei.Visible = Not Schüler\_LG\_frei.Visible
Jugend\_LG\_frei.Visible = Not Schüler\_LG\_frei.Visible
Junioren\_LG\_frei.Visible = Not Jugend\_LG\_frei.Visible
Schützen\_B\_LG\_frei.Visible = Not Junioren\_LG\_frei.Visible
Schützen\_A\_LG\_frei.Visible = Not Schützen\_B\_LG\_frei.Visible
Damen\_LG\_frei.Visible = Not Schützen\_A\_LG\_frei.Visible
Damen\_Alt\_LG\_frei.Visible = Not Damen\_LG\_frei.Visible
Altersklasse\_LG\_frei.Visible = Not Damen\_Alt\_LG\_frei.Visible
Senioren\_LG\_frei.Visible = Not Altersklasse\_LG\_frei.Visible
Federbock\_LG.Visible = Not Senioren\_LG\_frei.Visible
'Timer1.Enabled = False
End Sub
Private Sub cmdStart\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
Federbock\_LG.Show()
Senioren\_LG\_frei.Show()
Altersklasse\_LG\_frei.Show()
Damen\_Alt\_LG\_frei.Show()
Damen\_LG\_frei.Show()
Schützen\_A\_LG\_frei.Show()
Schützen\_B\_LG\_frei.Show()
Junioren\_LG\_frei.Show()
Jugend\_LG\_frei.Show()
Schüler\_LG\_frei.Show()
Timer1.Enabled = True
Timer1.Interval = 10000
End Sub
Private Sub cmdStop\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
Federbock\_LG.Close()
Senioren\_LG\_frei.Close()
Altersklasse\_LG\_frei.Close()
Damen\_Alt\_LG\_frei.Close()
Damen\_LG\_frei.Close()
Schützen\_A\_LG\_frei.Close()
Schützen\_B\_LG\_frei.Close()
Junioren\_LG\_frei.Close()
Jugend\_LG\_frei.Close()
Schüler\_LG\_frei.Close()
Timer1.Stop()
End Sub