Hello Anne,
Thanks for the link.
I have gone through the link and It worked for me.
I am using the below code :
Private
Sub Grid_ManipulationDelta(sender
As
Object, e
As
ManipulationDeltaRoutedEventArgs)
Dim oGrid
As
Grid =
DirectCast(sender,
Grid)
Dim Tunisia =
DirectCast(oGrid.RenderTransform,
CompositeTransform)
Tunisia.TranslateX += e.Delta.Translation.X
Tunisia.TranslateY += e.Delta.Translation.Y
Tunisia.CenterX = oGrid.Width / 2
Tunisia.CenterY = oGrid.Height / 2
End
Sub
Private
Sub testellipse_ManipulationDelta(sender
As
Object, e
As
ManipulationDeltaRoutedEventArgs)
Dim oControl
As
Grid =
DirectCast(DirectCast(sender,
Ellipse).Parent,
Grid)
Dim oTrnasform
As
CompositeTransform =
DirectCast(oControl.RenderTransform,
CompositeTransform)
Dim x = oTrnasform.CenterX - e.Position.X
Dim y = oTrnasform.CenterY - e.Position.Y
Dim a1
As
Double =
Math.Atan(y / x)
Dim a2
As
Double =
Math.Atan((e.Delta.Translation.Y - y) / (x - e.Delta.Translation.X))
oTrnasform.Rotation += a1 - a2
End
Sub
Private
Sub testellipse_ManipulationStarted(sender
As
Object, e
As
ManipulationStartedRoutedEventArgs)
Handles testellipse.ManipulationStarted
RemoveHandler testGrid.ManipulationDelta,
AddressOf Grid_ManipulationDelta
End
Sub
Private
Sub testGrid_Loaded(sender
As
Object, e
As
RoutedEventArgs)
Handles testGrid.Loaded
Dim oControl
As
Grid =
DirectCast(sender,
Grid)
Dim oTrnasform
As
CompositeTransform =
DirectCast(oControl.RenderTransform,
CompositeTransform)
oTrnasform.CenterX = oControl.Width / 2
oTrnasform.CenterY = oControl.Height / 2
End
Sub
Private
Sub testGrid_ManipulationCompleted(sender
As
Object, e
As
ManipulationCompletedRoutedEventArgs)
Handles testGrid.ManipulationCompleted
AddHandler testGrid.ManipulationDelta,
AddressOf Grid_ManipulationDelta
End
Sub
XAML:
<Gridx:Name="testGrid"
Margin="626,151,0,0"
Grid.Row="1"
VerticalAlignment="Top"RenderTransformOrigin="0.5,0.5"
HorizontalAlignment="Left"ManipulationMode="TranslateX,TranslateY"
ManipulationDelta="Grid_ManipulationDelta">
<Grid.RenderTransform>
<CompositeTransform></CompositeTransform>
</Grid.RenderTransform>
<Ellipsex:Name="testellipse"
VerticalAlignment="Top"
HorizontalAlignment="Center"
Width="20"Fill="Blue"Height="20"
ManipulationMode="TranslateX,TranslateY,TranslateInertia"
ManipulationDelta="testellipse_ManipulationDelta"Margin="0,-79,0,0"></Ellipse>
<local:MyUserControl1HorizontalAlignment="Left"
VerticalAlignment="Top"
Width="258"
Height="40"
>
</local:MyUserControl1>
</Grid>
I need to translate the grid as well as rotate the same.
Do you have any idea how can we achieve this?
