Sub RotateViewAnimated(View As View, DurationMs As Int, Angle As Double)
Dim no As NativeObject = Me
no.RunMethod("rotateView:::", Array(View, DurationMs, Angle * cPI / 180))
End Sub
#If OBJC
- (void) rotateView:(UIView*)view :(int)DurationMs :(double)angle {
[UIView animateWithDuration:DurationMs / 1000.0 delay:0.0f
options:UIViewAnimationOptionCurveEaseOut animations:^{
view.transform = CGAffineTransformMakeRotation(angle);
} completion:^(BOOL finished) {
}];
}
#End If