Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Using a DispatcherTimer

<Window x: Class="DispatcherExamples2.MyWindow"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="DispatcherTimer" Height="300" Width="300">     <Grid>              </Grid> </Window> //File:Window.xaml.vb 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()       InitializeComponent()       AddHandler dt.Tick, AddressOf dt_Tick       dt.Interval = TimeSpan.FromSeconds(2)       dt.Start()     End Sub     Private Sub dt_Tick(sender As Object, e As EventArgs)       Dim rnd As New Random()       Dim vals As Byte() = New Byte(2) {}       rnd.NextBytes(vals)       Dim c As Color = Color.FromRgb(vals(0), vals(1), vals(2))       Me.Background = New SolidColorBrush(c)     End Sub   End Class End Namespace