#61 - Cambiare la posizione alle immagini di Deep Zoom in Silverlight 3.0

For Each item As MultiScaleSubImage In SubImages 
  Dim i As Integer = SubImages.IndexOf(item) 
  Dim n As Integer = (i + 1) Mod SubImages.Count 
  Dim storyboard As New Storyboard() 
  Dim el As New ElasticEase() 
  el.EasingMode = EasingMode.EaseOut 
  Dim easy As New EasingPointKeyFrame() 
  easy.EasingFunction = el 
  easy.KeyTime = New TimeSpan(0, 0, 2) 
  'recupero il ViewportOrigin dell'immagine successiva 
  'e lo imposto come punto di destinazione dell'animazione 
  easy.Value = SubImages(n).ViewportOrigin 
  Dim k As New PointAnimationUsingKeyFrames() 
  k.KeyFrames.Add(easy) 
  storyboard.SetTarget(k, item) 
  storyboard.SetTargetProperty(k, New PropertyPath("ViewportOrigin")) 
  storyboard.Children.Add(k) 
  storyboard.Begin() 
Next

foreach (MultiScaleSubImage item in SubImages) 
{ 
  int i = SubImages.IndexOf(item); 
  int n = (i + 1) % SubImages.Count; 
  Storyboard storyboard = new Storyboard(); 
  ElasticEase el = new ElasticEase(); 
  el.EasingMode = EasingMode.EaseOut; 
  EasingPointKeyFrame easy = new EasingPointKeyFrame(); 
  easy.EasingFunction = el; 
  easy.KeyTime = new TimeSpan(0, 0, 2); 
  //recupero il ViewportOrigin dell'immagine successiva 
  //e lo imposto come punto di destinazione dell'animazione 
  easy.Value = SubImages[n].ViewportOrigin; 
  PointAnimationUsingKeyFrames k = new PointAnimationUsingKeyFrames(); 
  k.KeyFrames.Add(easy); 
  Storyboard.SetTarget(k, item); 
  Storyboard.SetTargetProperty(k, new PropertyPath("ViewportOrigin")); 
  storyboard.Children.Add(k); 
  storyboard.Begin(); 
}