Using a DispatcherTimer : Timer « Windows Presentation Foundation « VB.Net

Using a DispatcherTimer

Using a DispatcherTimer

<Window x:Class="DispatcherExamples2.MyWindow"
    Title="DispatcherTimer" Height="300" Width="300">
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Media.Imaging
Imports System.Windows.Shapes
Imports System.Windows.Threading

Namespace DispatcherExamples2
  Partial Class MyWindow
    Inherits Window
    Private dt As New DispatcherTimer()
    Public Sub New()
      AddHandler dt.Tick, AddressOf dt_Tick
      dt.Interval = TimeSpan.FromSeconds(2)
    End Sub
    Private Sub dt_Tick(sender As Object, e As EventArgs)
      Dim rnd As New Random()
      Dim vals As Byte() = New Byte(2) {}
      Dim c As Color = Color.FromRgb(vals(0), vals(1), vals(2))
      Me.Background = New SolidColorBrush(c)
    End Sub
  End Class
End Namespace


Related examples in the same category

1.Update the UI Asynchronously on a TimerUpdate the UI Asynchronously on a Timer
2.DispatcherTimer set upDispatcherTimer set up