enlarge and reduce a pictureview

[anallie0]

Hi
Use these two simple sub to enlarge and reduce a pictureview.
how can I use only imageistru_Click to manage both the size? I would like to first click and the second click zooms decreases. I tried everything but it does not work.
thanks

Sub imageistru_Click
imageistru.SetLayout(0%x, 0%y, 25%x, 15%y) 
End Sub

Sub imageistru_LongClick
imageistru.SetLayout(0%x, 0%y, 100%x, 60%y)
End Sub

 

[margret]

Maybe This:

Sub imageistru_Click
     If imageistru.Width < Activity.Width then     
          imageistru.SetLayout(0%x, 0%y, 100%x, 60%y)
     Else
          imageistru.SetLayout(0%x, 0%y, 25%x, 15%y) 
     End If
End Sub

 

[anallie0]

thanks margret
:signOops: