<Window x:Class="_360Timer.Window1"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Concentric Rings" Width="910" Height="512">
<Canvas Name="MainCanvas" Background="#FFE0E0E0"/>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Data
Imports System.Windows.Documents
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports System.Windows.Media.Animation
Namespace _360Timer
Public Partial Class Window1
Inherits Window
Private frameTimer As System.Windows.Threading.DispatcherTimer
Private lastTick As Integer
Private rand As Random
Public Sub New()
InitializeComponent()
Me.WindowState = WindowState.Maximized
Me.WindowStyle = WindowStyle.None
Me.ResizeMode = ResizeMode.NoResize
End Sub
Private Sub Window1_KeyDown(sender As Object, e As System.Windows.Input.KeyEventArgs)
If e.Key = System.Windows.Input.Key.Escape Then
Me.Close()
End If
End Sub
End Class
End Namespace
|
