Mega Code Archive

 
Categories / VB.Net Tutorial / WPF
 

Window mouse up event

<Window     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"     x:Class="WpfApplication1.Window1"     Title="Routed Events" Height="400" Width="800"     MouseUp="Window_MouseUp">        <Grid Name="contentGrid" MouseDown="Generic_MouseDown" PreviewMouseDown="Generic_MouseDown" Background="Red">         <Rectangle Name="clickMeRectangle"                     Height="70"                     Width="70"                     Stroke="Black"                     Fill="CadetBlue" />         <Button Name="clickMeButton"                  Height="23"                  HorizontalAlignment="Right"                  VerticalAlignment="Top"                  Width="70"                  Click="clickMeButton_Click">Click Me</Button>         <TextBlock Name="outputText" />     </Grid> </Window> //File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Linq 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.Navigation Imports System.Windows.Shapes Namespace WpfApplication1   Public Partial Class Window1     Inherits Window     Private Sub Generic_MouseDown(sender As Object, e As MouseButtonEventArgs)       Console.WriteLine(outputText.Text)       Console.WriteLine(e.RoutedEvent.Name)       Console.WriteLine(sender.ToString())       Console.WriteLine(DirectCast(e.Source, FrameworkElement).Name)     End Sub     Private Sub Window_MouseUp(sender As Object, e As MouseButtonEventArgs)       outputText.Text = outputText.Text     End Sub     Private Sub clickMeButton_Click(sender As Object, e As RoutedEventArgs)       outputText.Text = "Button clicked:" + outputText.Text     End Sub   End Class End Namespace