VB Links werden 3 mal geöffnet

[Chain Reaction]

Hey Leute

Ich habe ein Problem mit VB 2008.

Ich habe ein Programm, dass zu einer bestimmten Zeit einen Link öffnen soll geschrieben.

Ich habe 2 Timer.
1 Label
1 TextBox, wo die Zeit angegeben wird, wann der Link geöffnet werden soll.

Timer 1 ist für die Uhrzeit.

PHP Code:

Label1.Text = Format (timeofday) 


Timer 2 ist um den Link zu öffnen, wenn ich ein Button drücke.

Button:

PHP Code:

Timer2.Enabled = True 


Timer2:

PHP Code:

If TextBox1.Text = Label1.Text Then Process.Start ("http://google.de") 


Das läuft auch.
Aber sobald ich einen 3.Timer und eine 2. TextBox und ein 2. Link dazu mach, wirds problematisch.

Der Code sieht dann so aus:
Button:

PHP Code:

Timer2.Enabled = true
Timer3.Enabled = true 


Timer2:

PHP Code:

If TextBox1.Text = Label1.Text Then Process.Start ("http://google.de") 


Timer3:

PHP Code:

If TextBox2.Text = Label1.Text Then Process.Start ("http://elitepvpers.com") 


Wenn ich die Anwendung dann debugge, klappt es zwar, aber die beiden Links werden je 3 mal geöffnet.

Woran liegt das?

Würde mich über Hilfe freuen.

Danke

[beatd0wn[]]

ich steig da nicht ganz durch... wäre es möglich mal den ganzen source zu posten?

[Chain Reaction]

PHP Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer2.Enabled = True
        Timer3.Enabled = True



    End Sub

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label22.Text = Format(TimeOfDay)

    End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If TextBox11.Text = Label22.Text Then Process.Start(TextBox1.Text)

    End Sub

 Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        Label23.Text = Format(TimeOfDay)

    End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If TextBox12.Text = Label23.Text Then Process.Start(TextBox2.Text)
    End Sub 


[sava]

Maybe die Timer Intervalle (ticks) zu niedrig? Timer.Start und Timer.Stop sind dafür besser gedacht.

[Chain Reaction]

Die Intervals sind allle standard (100)
Was meinst du mit Timer.Start?
Beim Button oder wie?

Wenn ich dann Timer.Start mache, müsste ich den Timer vorher noch enabeln?

edit:

Hab die Intervalls auf 1000 erhöht.
Hat wunderbar geklappt.

Dankeschön

#closerequest

[Kraizy​]

Wenn ich dann Timer.Start mache, müsste ich den Timer vorher noch enabeln?

Timer.Enabled = True ist doch das gleiche wie Timer.Start.