timer + process.start vb.net help!!

Iniciado por dega1980, 11 Abril 2014, 15:34 PM

0 Miembros y 1 Visitante están viendo este tema.

dega1980


tengo este código asociado a un timer,que cada 30 segundos abre estas dos webs a la vez,pero lo que quiero es que me abra una cada 30 segundos,primero una y después a los 30 segundos la otra como lo debería hacer


Código (vbnet) [Seleccionar]
Public Class Form1

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim url As String = "http://www.facebook.com"
       Process.Start(url)
       Dim url2 As String = "https://www.google.es"
       Process.Start(url2)
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Interval = 30000
   End Sub
End Class

Maurice_Lupin

Esto deberia funcionar.
Código (vbnet) [Seleccionar]
    Public Class Form1
       Dim cambio As Boolean = false
       Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
           Dim url As String = ""
           If cambio Then
                url = "http://www.facebook.com"
           Else
                url = "https://www.google.es"
           End If
           cambio = Not cambio
           Process.Start(url)
       End Sub
     
       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
           Timer1.Interval = 30000
       End Sub
    End Class


Saludos.
Un error se comete al equivocarse.

dega1980

Cita de: Maurice_Lupin en 11 Abril 2014, 16:53 PM
Esto deberia funcionar.
Código (vbnet) [Seleccionar]
    Public Class Form1
       Dim cambio As Boolean = false
       Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
           Dim url As String = ""
           If cambio Then
                url = "http://www.facebook.com"
           Else
                url = "https://www.google.es"
           End If
           cambio = Not cambio
           Process.Start(url)
       End Sub
     
       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
           Timer1.Interval = 30000
       End Sub
    End Class


Saludos.

Va perfecto gracias
  ;-)