OpenNETCF AnimateCtl

  • Thread starter Thread starter anbeyon
  • Start date Start date
A

anbeyon

Hi all,

I am trying to use the OpenNETCF Animate control and am experiencing
some funnies.

Has anyone used it successfully ?

I am running on a TFT display whose native resolution is 240x320. I am
running with it rotated so 320x240.

Anyway I want to run an animation after N seconds of inactivity.

I have a GIF file that is made up as a film strip of 40 x 320x240
frames. ( horizontal running left to right so the overall bit mat is
12800x240)

I have the animation running but have something odd happening - the GIF
file I am running fills only around 85% of the screen vertically. I'm
not certain but I think something similar is also happening
horizontally.

Here's my code - can you see any errors

'& CODE &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

Public Class frmRainbow
Inherits System.Windows.Forms.Form
Friend WithEvents aniGif As OpenNETCF.Windows.Forms.AnimateCtl

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
MyBase.Dispose(disposing)
End Sub

'NOTE: The following procedure is required by the Windows Form
Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Dim resources As System.Resources.ResourceManager = New
System.Resources.ResourceManager(GetType(frmRainbow))
Me.aniGif = New OpenNETCF.Windows.Forms.AnimateCtl
'
'aniGif
'
Me.aniGif.AnimDrawDirection =
OpenNETCF.Windows.Forms.DrawDirection.Horizontal
Me.aniGif.BackColor = System.Drawing.Color.Silver
Me.aniGif.FrameWidth = 320
Me.aniGif.Image = CType(resources.GetObject("aniGif.Image"),
System.Drawing.Image)
Me.aniGif.Name = "aniGif"
Me.aniGif.Size = New System.Drawing.Size(320, 240)
Me.aniGif.Text = "AnimateCtl1"
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
'
'frmRainbow
'
Me.ClientSize = New System.Drawing.Size(320, 240)
Me.ControlBox = False
Me.Controls.Add(Me.aniGif)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Text = "frmRainbow"

End Sub

#End Region

Private Sub frmRainbow_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load

With aniGif
.Show()
.StartAnimation()
End With

End Sub

Private Sub aniGif_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles aniGif.Click
Close()
End Sub
End Class

'& CODE &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
 
Back
Top