11 Replies Latest reply on Jan 18, 2013 6:29 PM by SantaAndrew

    How do I frame seek playback of a flash video with visual basic.net i.e. with an inputbox?

    SantaAndrew Level 1

      How do I frame seek playback of a flash video with visual basic.net i.e. with an inputbox? So far I know how to play a single clip but not how to input a time and have the player, play from that point.My code so far is below.


          Imports System.IO

          Imports System.Net.Sockets

          Public Class Form1

              Friend WithEvents AxShockwaveFlash1 As New AxShockwaveFlashObjects.AxShockwaveFlash

              Dim PlayingFlash As Boolean = False

              Dim PlaylistHidden As Boolean = False

              Dim SettingUseJwPlayer3_16 As Boolean = True

              Sub OpenFLV(ByVal strFile As String, ByVal AxShockWaveFlash As AxShockwaveFlashObjects.AxShockwaveFlash)

                  Dim strPath As String

                  Dim PlayerPath As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\player.swf"

                  If File.Exists(PlayerPath) Then File.Delete(PlayerPath)

                  File.WriteAllBytes(PlayerPath, My.Resources.player)

                  strPath = "file:///" & PlayerPath & "?file="

                  strPath = strPath & strFile

                  strPath = Replace(strPath, "\", "/")

                  With AxShockWaveFlash


                      .Visible = True

                      .Menu = False

                      .FlashVars = "&showstop=true&showdownload=false&height=" & AxShockWaveFlash.Height.ToString & "&width=" & AxShockWaveFlash.Width.ToString & "&showplay=true&autoscroll=false&autostart=true&overstretch=true&show icons=1&searchbar=false&controlbar=0"

                      .LoadMovie(0, strPath)


                  End With

                  PlayingFlash = True

              End Sub

              Sub PlayJwPlayer3_16(ByVal Vid As String)

                  If Not AxShockwaveFlash1.IsDisposed Then AxShockwaveFlash1.Dispose()

                  AxShockwaveFlash1 = New AxShockwaveFlashObjects.AxShockwaveFlash


                  AxShockwaveFlash1.Name = "AxShockwaveFlash1"



                  AxShockwaveFlash1.Visible = True

                  AxShockwaveFlash1.Location = Panel1.Location


                  PlayingFlash = True

                  Panel1.Visible = False

                  OpenFLV(Vid, AxShockwaveFlash1)

              End Sub


              Private Sub Play_Click(sender As Object, e As EventArgs) Handles Play.Click

                  PlayJwPlayer3_16("https://dp-geography.wikispaces.com/file/view/World+Cup+in+South+Afric a+-+%28IB+Geography+Study+Sports%2C+Leisure+%26amp%3B+Tourism+%29.flv")

              End Sub

          End Class