---
title: "Pausa Timers.Timer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/114366-pausa-timers-timer"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "doggelito"
published: "2004-10-25T13:25:54.000Z"
updated: "2004-10-26T06:27:51.000Z"
replies: 2
views: 178
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/114366-pausa-timers-timer"
---

# Pausa Timers.Timer

## #1 — doggelito, 2004-10-25T13:25Z

finns det nått sätt att pausa en timer för att sedan sätta igång den igen, som koden nedan beskriver?

```
    Private tmr As Timers.Timer

    Protected Overrides Sub OnStart(ByVal args() As String)
        tmr = New Timers.Timer()
        tmr.Interval = 30000
        AddHandler tmr.Elapsed, AddressOf OnTimedEvent
        tmr.Enabled = True
    End Sub

    Public Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs)
	tmr.Stop
	'gör massa grejjer
	if klar med grejjorna then
	tmr.Start
	end if

    End Sub

    Protected Overrides Sub OnStop()
        tmr.Enabled = False
    End Sub
```

Permalänk: https://www.webforum.nu/p/114366

## #2 — Marcus E, 2004-10-25T21:47Z

Enabled finns. För att inte Timern ska börja om får du minska intervallet med den tid som passerat sen den sist körde OnTimedEvent.

Permalänk: https://www.webforum.nu/p/1468279

## #3 — doggelito, 2004-10-26T06:27Z

vet inte om det är rätt eller fel men jag löste det så här:

```
    Private tmr As Timers.Timer
    Private Shared Running As Boolean = False

    Protected Overrides Sub OnStart(ByVal args() As String)
        tmr = New Timers.Timer()
        tmr.Interval = 30000
        AddHandler tmr.Elapsed, AddressOf OnTimedEvent
        tmr.Enabled = True
    End Sub

    Public Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As System.Timers.ElapsedEventArgs)
        If Running Then Exit Sub
        Running = True
	'gör massa grejjer
        Running = False
    End Sub

    Protected Overrides Sub OnStop()
        tmr.Enabled = False
    End Sub
```

Permalänk: https://www.webforum.nu/p/1468361

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/114366-pausa-timers-timer