Mega Code Archive

 

Categories / VB.Net Tutorial / WPF

 

Changing graphical elements

<Window x: Class="ChangeItem.MainWindow"     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     Title="Change Item">   <Canvas x:Name="mainCanvas">     <Ellipse Canvas.Left="10" Canvas.Top="30" Fill="Indigo" Width="40" Height="20" />     <Ellipse Canvas.Left="20" Canvas.Top="40" Fill="Blue" Width="40" Height="20" />     <Ellipse Canvas.Left="30" Canvas.Top="50" Fill="Cyan" Width="40" Height="20" />     <Ellipse Canvas.Left="40" Canvas.Top="60" Fill="LightGreen" Width="40" Height="20" />     <Ellipse Canvas.Left="50" Canvas.Top="70" Fill="Yellow" Width="40" Height="20" />   </Canvas> </Window> //File:Window.xaml.vb Imports System.Windows Imports System.Windows.Shapes Namespace ChangeItem   Public Partial Class MainWindow     Inherits Window     Public Sub New()       MyBase.New()       InitializeComponent()       AddHandler mainCanvas.MouseLeftButtonDown, AddressOf OnClick     End Sub     Private Sub OnClick(sender As Object, e As RoutedEventArgs)       Dim r As Ellipse = TryCast(e.Source, Ellipse)       If r IsNot Nothing Then         r.Width += 10       End If     End Sub   End Class End Namespace