Imports Leadtools.WinForms
Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.Drawing
Private Sub viewer_AnimationModeChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim viewer As RasterPictureBox = CType(IIf(TypeOf sender Is RasterPictureBox, sender, Nothing), RasterPictureBox)
Dim s As String = String.Format("AnimationModeChanged Event: {0}", viewer.AnimationMode.ToString())
MessageBox.Show(s)
End Sub
Public Sub RasterPictureBox_AnimationModeChanged(ByVal viewer As RasterPictureBox)
AddHandler viewer.AnimationModeChanged, AddressOf viewer_AnimationModeChanged
Select Case viewer.AnimationMode
Case RasterPictureBoxAnimationMode.Infinite
viewer.AnimationMode = RasterPictureBoxAnimationMode.UseImageGlobalLoop
Case RasterPictureBoxAnimationMode.UseImageGlobalLoop
viewer.AnimationMode = RasterPictureBoxAnimationMode.Infinite
End Select
viewer.PlayAnimation()
RemoveHandler viewer.AnimationModeChanged, AddressOf viewer_AnimationModeChanged
End Sub
using Leadtools.WinForms;
using Leadtools;
using Leadtools.Codecs;
using Leadtools.Drawing;
private void viewer_AnimationModeChanged(object sender, EventArgs e)
{
RasterPictureBox viewer = sender as RasterPictureBox;
string s = string.Format("AnimationModeChanged Event: {0}", viewer.AnimationMode.ToString());
MessageBox.Show(s);
}
public void RasterPictureBox_AnimationModeChanged(RasterPictureBox viewer)
{
viewer.AnimationModeChanged += new EventHandler(viewer_AnimationModeChanged);
switch (viewer.AnimationMode)
{
case RasterPictureBoxAnimationMode.Infinite:
viewer.AnimationMode = RasterPictureBoxAnimationMode.UseImageGlobalLoop;
break;
case RasterPictureBoxAnimationMode.UseImageGlobalLoop:
viewer.AnimationMode = RasterPictureBoxAnimationMode.Infinite;
break;
}
viewer.PlayAnimation();
viewer.AnimationModeChanged-= new EventHandler(viewer_AnimationModeChanged);
}