Animations Sample (VB.NET)

This sample illustrates AVI animations with AVIPlay method.

The source code is located at C:\Program Files (x86)\Softelvdm\SftButton OCX 4.0\Samples\Visual Studio - VB.NET\Animations\Form1.vb or C:\Program Files\Softelvdm\SftButton OCX 4.0\Samples\Visual Studio - VB.NET\Animations\Form1.vb (on 32-bit Windows versions).

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
  Application.Exit()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' Define all animations at run-time using the AVIPlay method
    AxSftButtonSearch.AVIPlay(1, System.IO.Path.Combine(Application.StartupPath, "Search.avi"), 0, -1)
    AxSftButtonFind.AVIPlay(1, System.IO.Path.Combine(Application.StartupPath, "FindComp.avi"), 0, -1)
    AxSftButtonDownload.AVIPlay(1, System.IO.Path.Combine(Application.StartupPath, "Download.avi"), 0, -1)
End Sub