<Canvas xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="Thumb_wcp.Pane1">
<Canvas Width="100" Height="100" Name="myCanvasStretch">
<TextBox Name="changes"
Width="{Binding ElementName=myCanvasStretch,Path=Width}"
Height="{Binding ElementName=myCanvasStretch,Path=Height}"
Text="Size: 100, 100"/>
<Thumb Name="myThumb" Canvas.Left="80" Canvas.Top="80" Background="Blue"
Width="20" Height="20" DragDelta="onDragDelta"/>
</Canvas>
</Canvas>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Controls.Primitives
Imports System.Windows.Documents
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports System.Windows.Data
Imports System.Windows.Media
Namespace Thumb_wcp
Public Partial Class Pane1
Inherits Canvas
Private Sub onDragDelta(sender As Object, e As DragDeltaEventArgs)
Dim yadjust As Double = myCanvasStretch.Height + e.VerticalChange
Dim xadjust As Double = myCanvasStretch.Width + e.HorizontalChange
If (xadjust >= 0) AndAlso (yadjust >= 0) Then
myCanvasStretch.Width = xadjust
myCanvasStretch.Height = yadjust
Canvas.SetLeft(myThumb, Canvas.GetLeft(myThumb) + e.HorizontalChange)
Canvas.SetTop(myThumb, Canvas.GetTop(myThumb) + e.VerticalChange)
Console.WriteLine(myCanvasStretch.Width)
Console.WriteLine(myCanvasStretch.Height)
End If
End Sub
End Class
End Namespace
|
