Length1

Previous  Next

---

Returns the size of the loaded audio file.

Syntax: Length

Example:

In this example we combine Position and Length1 to show the music progress.

'Add an FMOD object named fmod first.

Sub Globals

End Sub

Sub App_Start

      form1.show

      fmod.New1

      Timer1.Interval = 1000

      if OpenDialog1.Show <> cCancel then

            fmod.Play(OpenDialog1.File)

            Timer1.Enabled = true

      end if

End Sub

      

Sub Timer1_Tick

      Form1.Text = Format(fmod.Position / fmod.Length1 * 100,"n0") & "%"

End Sub