VB Links werden 3 mal geöffnet

05/29/2011 17:59 Chain Reaction#1
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
05/29/2011 18:04 beatd0wn[]#2
ich steig da nicht ganz durch... wäre es möglich mal den ganzen source zu posten?
05/29/2011 18:11 Chain Reaction#3
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 
05/30/2011 16:30 sava#4
Maybe die Timer Intervalle (ticks) zu niedrig? Timer.Start und Timer.Stop sind dafür besser gedacht.
05/30/2011 18:58 Chain Reaction#5
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
05/30/2011 20:32 Kraizy​#6
Quote:
Wenn ich dann Timer.Start mache, müsste ich den Timer vorher noch enabeln?
Timer.Enabled = True ist doch das gleiche wie Timer.Start.