VB.NET

VB.NET RSS

VB .NET flash

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Apr 2008

Posts: 3

Reputation: kyriakos70 is an unknown quantity at this point

Solved Threads: 0

kyriakos70 kyriakos70 is offline

Offline

Newbie Poster

VB .NET flash

Apr 20th, 2008

Hi,
I have a project in VB 2005 and I have inserted a flash movie (.swf), the item from the vb toolbox ax shockwave flash active x object returned an error "error activex make sure it is properly registered" so I create one through code :

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Imports AxShockwaveFlashObjects.AxShockwaveFlash
Public Class Form3
    Dim webAddress As String = "http://www.vbforfree.com"
    Dim flash As New AxShockwaveFlash
Imports AxShockwaveFlashObjects.AxShockwaveFlash
Public Class Form3
    Dim webAddress As String = "http://www.vbforfree.com"
    Dim flash As New AxShockwaveFlash

Now I loaded the flash movie and send a variable to flash through Visual Basic
code :

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub Form3_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Me.Focus()
        If e.KeyCode = Keys.D6 Then
            a = a + 10
flash.SetVariable("/:playerbalance", a)
Private Sub Form3_keydown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Me.Focus()
        If e.KeyCode = Keys.D6 Then
            a = a + 10
flash.SetVariable("/:playerbalance", a)

Everything OK but when I try to send from flash to VB I get nothing
flash code :

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
on (press)
{
    	fscommand("flashMessage", "Hi C-Sharp");
	}
on (press)
{
    	fscommand("flashMessage", "Hi C-Sharp");
	}

VB code to receive variable code :

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub flash_FSCommand(ByVal sender As Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent)
        If (e.command = "flashMessage") Then
            RichTextBox1.AppendText(e.args + "\n")
        End If
 
    End Sub
Private Sub flash_FSCommand(ByVal sender As Object, ByVal e As AxShockwaveFlashObjects._IShockwaveFlashEvents_FSCommandEvent)
        If (e.command = "flashMessage") Then
            RichTextBox1.AppendText(e.args + "\n")
        End If

    End Sub

flash is the dim for the shockwaveflash activex object.
When I managed once to drag a shockwaveflash from toolbox once I succed it worked but now I don't know if there is a special property to add to the code created flash object to make it receive vars. Help please.

Kyriakos

•

Join Date: Jul 2007

Posts: 11

Reputation: Byaptia is an unknown quantity at this point

Solved Threads: 0

Byaptia

Offline

Newbie Poster

Re: VB .NET flash

Apr 23rd, 2008

Hi,

I think the Flash/VB article on http://www.adobe.com/devnet/flash/articles/flash_vb.pdf may be helpful in this discussion.

This popular white paper is written by some engineering folks from our organization Mindfire Solutions (http://www.mindfiresolutions.com).

I hope you find it useful!

Cheers,
Byapti