Timer y mostrar mensajes

[phamezeth]

Doy las gracias que alguien paso este codigo hace un tiempo...me a servido mucho, pero el problema es que en este caso en un label muestro hh:mm:ss, pero no se como validar un intervalo para hacer que se despliegue un mensaje cada cierta cantidad de minutos sin que dejen de andar los segundos.

Private Sub tmrTiempo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTiempo.Tick
Dim vh1 As DateTime = "01:03:30"
Dim vh2 As DateTime = "02:04:30"
Dim Tiempo As TimeSpan
Dim g_seconds As Integer
Tiempo = Now.Subtract(FechaInicio).Duration
Tiempo += TiempoActivo

lblTiempo.Text = Microsoft.VisualBasic.Right("00" & Tiempo.Hours, 2) & ":" & _
Microsoft.VisualBasic.Right("00" & Tiempo.Minutes, 2) & ":" & _
Microsoft.VisualBasic.Right("00" & Tiempo.Seconds, 2)
'Microsoft.VisualBasic.Right("000" & Tiempo.Milliseconds, 3)

Me.Refresh()



tmrTiempo.Interval = 60000
MsgBox("hola")


Label1.Text = sumaHoras(vh1, lblTiempo.Text)



End Sub

El programa funciona excelente para este caso que al minuto muestre un mensaje, pero los segunderos se quedan en 00 :(....agradesco una mano. :D

[Avellaneda]

Iniciado por phamezeth

Doy las gracias que alguien paso este codigo hace un tiempo...me a servido mucho, pero el problema es que en este caso en un label muestro hh:mm:ss, pero no se como validar un intervalo para hacer que se despliegue un mensaje cada cierta cantidad de minutos sin que dejen de andar los segundos.

....


El programa funciona excelente para este caso que al minuto muestre un mensaje, pero los segunderos se quedan en 00 :(....agradesco una mano. :D

Hola, en la propiedad Interval del Timer le pones 1000 y Enabled a True:

Código:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeString
        Static lTiempo As Long
        If lTiempo = 60 Then
            lTiempo = 0
            MsgBox("Ya pasó un minuto")
        End If
        lTiempo += 1

    End Sub

"Label1" es la etiqueta donde quieres mostrar la hora y "Timer1" el nombre del control Timer.

[phamezeth]

Gracias Avellaneda!!, funciono bien el evento, que simple y uno se come la cabeza x 1000...como se aprende ....saludos.