Mega Code Archive

 

Categories / VB.Net / WPF

 

Change Height

<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="0" Margin="10,0,0,0" TextWrapping="Wrap">Set the Rectangle Height:</TextBlock>     <ListBox Grid.Column="1" Grid.Row="1" Margin="10,0,0,0" Height="50" Width="50" SelectionChanged="changeHeight">       <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 changeHeight(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.Height = 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