Hi,
I'm trying to create a class (see code below) that will give me direct
control over a flash component, and still have it as a form control. To
do this I'm retrieving data from the database that tells me which file
to load etc.
However, whilst I get no errors, the flash movie won't play. I've tried
inheriting form various controls, but they all exhibit the same
behaviour. I've tried looking at the variables of SWF and I get the
following...
Playing = true
CurrentFrame = -1 - It is always -1
ReadyState = 3
TotalFrames = [Data not yet available]
Any help would be greatfully recieved.
TIA
Rich
Imports System.Collections
Public Class iQ_Flash
Inherits ContainerControl
Private SWF As New ShockwaveFlashObjects.ShockwaveFlash
Public objectID As Integer
Public mediaPath As String
Public connStr As String
Public pVisable As Boolean
Public Sub New(ByVal debug As Integer, ByVal mediaPath As String,
ByVal connstr As String, ByVal objectID As Integer, ByVal pVisable As
Boolean, ByVal pTop As Integer, ByVal pLeft As Integer, ByVal pHeight
As Integer, ByVal pWidth As Integer)
Me.mediaPath = mediaPath
Me.connStr = connstr
Me.objectID = objectID
Me.pVisable = pVisable
Me.Top = pTop
Me.Left = pLeft
Me.Height = pHeight
Me.Width = pWidth
loadFLASH(objectID, connstr)
End Sub
Sub loadFLASH(ByVal objectid, ByVal connstr)
Dim sqlConn As New SqlConnection(connstr)
Dim sql As String = "select * from pageObjectFLASH where
objectid=" + objectid.ToString
Dim adapter As SqlDataAdapter = New SqlDataAdapter(sql,
sqlConn)
Dim pageObjectFLASH As DataSet = New DataSet
adapter.Fill(pageObjectFLASH, "pageObjectFLASH")
Dim pRow As DataRow
For Each pRow In pageObjectFLASH.Tables("pageObjectFLASH").Rows
SWF.Movie = mediaPath + "\" + pRow(1)
SWF.Play()
Next
MsgBox(SWF.Movie + "-" + SWF.TotalFrames.ToString)
SWF.Play()
sqlConn.Close()
End Sub
Sub myShow()
SWF.StopPlay()
SWF.Play()
Me.Show()
End Sub
End Class
