By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
455,290 Members | 1,303 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 455,290 IT Pros & Developers. It's quick & easy.

vb.net 2005 shockwave file not playing

P: n/a
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

Feb 16 '06 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.