Change MaxHeight : Rectangle « Windows Presentation Foundation « VB.Net

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

Change MaxHeight

       

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    x:Class="Height_MinHeight_MaxHeight.Window1"
    Title="Height Properties Sample">
  <StackPanel Margin="10">
      <Canvas Height="200" MinWidth="200" Name="myCanvas">
           <Rectangle HorizontalAlignment="Center" Canvas.Top="50" Canvas.Left="50"  Name="rect1" Fill="#4682b4" Height="100" Width="100"/>
      </Canvas>
      <Button Name="Button1" Click="clipRect">Canvas.ClipToBounds="True"</Button>
      <Button Name="Button2" Margin="0,5,5,5" Click="unclipRect">Canvas.ClipToBounds="False"</Button>
     
    <TextBlock Grid.Row="1" Grid.Column="4" Margin="10,0,0,0" TextWrapping="Wrap">Set the Rectangle MaxHeight:</TextBlock>
    <ListBox Grid.Column="5" Grid.Row="1" Margin="10,0,0,0" Height="50" Width="50" SelectionChanged="changeMaxHeight">
      <ListBoxItem>25</ListBoxItem>
      <ListBoxItem>50</ListBoxItem>
      <ListBoxItem>75</ListBoxItem>
      <ListBoxItem>100</ListBoxItem>
      <ListBoxItem>125</ListBoxItem>
      <ListBoxItem>150</ListBoxItem>
      <ListBoxItem>175</ListBoxItem>
      <ListBoxItem>200</ListBoxItem> 
    </ListBox>
  

  </StackPanel>
</Window>

//File:Window.xaml.vb

Imports System
Imports System.Windows
Imports System.Windows.Media
Imports System.Windows.Controls
Imports System.Windows.Documents

Namespace Height_MinHeight_MaxHeight
  Public Partial Class Window1
    Inherits Window
    Public Sub changeMaxHeight(sender As Object, args As SelectionChangedEventArgs)
      Dim li As ListBoxItem = TryCast(TryCast(sender, ListBox).SelectedItem, ListBoxItem)
      Dim sz1 As [Double] = [Double].Parse(li.Content.ToString())
      rect1.MaxHeight = sz1
      rect1.UpdateLayout()
      Console.WriteLine("ActualHeight is set to " + rect1.ActualHeight)
      Console.WriteLine("Height is set to " + rect1.Height)
      Console.WriteLine("MinHeight is set to " + rect1.MinHeight)
      Console.WriteLine("MaxHeight is set to " + rect1.MaxHeight)
    End Sub


    Public Sub clipRect(sender As Object, args As RoutedEventArgs)
      myCanvas.ClipToBounds = True
      Console.WriteLine("Canvas.ClipToBounds is set to " + myCanvas.ClipToBounds)
    End Sub
    Public Sub unclipRect(sender As Object, args As RoutedEventArgs)
      myCanvas.ClipToBounds = False
      Console.WriteLine("Canvas.ClipToBounds is set to " + myCanvas.ClipToBounds)
    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.	Rectangle mouse down preview