Rectangle mouse down preview : Rectangle « Windows Presentation Foundation « VB.Net

1. VB.Net
2. Windows Presentation Foundation
3. Rectangle

Rectangle mouse down preview

      


<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">
  
    <Grid Name="contentGrid" Background="Red">
        <Rectangle Name="clickMeRectangle" 
                   Height="70" 
                   Width="70" 
                   Stroke="Black" 
                   PreviewMouseDown="Generic_MouseDown" 
                   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

   
    
    
    
    
    
  

Related examples in the same category

1.	Use Rectangle, TextBlock and Button as the VisualBrush
2.	Set Stroke, StrokeThickness for Rectangle
3.	Fill Rectangles with static ImageBrush resources
4.	Fill Rectangle with Bisque
5.	Rotating rectangles
6.	Rounded rectangle
7.	Rectangle with explicit size and position
8.	Rectangles with size and position controlled by parent
9.	Using ImageBrush to fill a Rectangle
10.	Draws a 100 by 50 rectangle with a solid blue fill
11.	Draws a 100 by 50 rectangle with a solid blue fill, a black outline, and rounded corners
12.	Rectangle StrokeThickness
13.	Rectangle.Stroke
14.	Use Customized LinearGradientBrush to paint a Rectangle
15.	Set RadiusX and RadiuxY for Rectangle
16.	Fill Rectangle with LinearGradientBrush static resource
17.	Using a DrawingBrush resource to draw Rectangle
18.	A rectangle with a linear fill
19.	A large rectangle built using an image brush
20.	Fill Rectangle with Resource
21.	Add Rectangle.Triggers collection into a style
22.	DashArray Stroke
23.	Dash patterns
24.	Put Rectangle into TextBlock
25.	Rectangle mouse down event
26.	Change MaxHeight