Flash Integration?

[Kurt]

Can anyone point me to an example of embedding a
Macromedia Flash .swf into a vb.net form?

tia

kurt

[Bernie Yaeger]

Hi Kurt,

Here are notes I wrote to myself when I finally figured out how to do this:

make a reference to the proper control by browsing for
c:\windows\syst em32\flash\swfl ash.ocx; once selected, it will immediately
check the Flash Factory Object; select it and it will become actually two
controls; drag the one called 'Shockwave' to the form (I actually have these
now as part of the Components tab in the toolbox); right click and set as
appropriate; I'm having a little trouble getting it to play, as the play
selection seems to continually drop, but I finally got it to lock in - some
of the other settings may have been interfering with it; finally, remember
that the timer in the splash screen may have to change if the movie runs
longer than you might expect; UPDATE: it's a flacky control, because
elements of it tend to disappear even after using 'apply', but be persistent
and it eventually will stick; also, the code doesn't even have the .swf
filename

Here's the timer code I use to autoclose the form:

Private Sub splash_Load(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
AxShockwaveFlas h1.Loop = False

AxShockwaveFlas h1.Play()

Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e As
System.EventArg s) Handles Timer1.Tick

alarmcounter += 1

If alarmcounter > 5 Then

Me.Close()

End If

End Sub

HTH,

Bernie Yaeger

"Kurt" <ks*******@comc ast.net> wrote in message
news:08******** *************** *****@phx.gbl.. .

Can anyone point me to an example of embedding a
Macromedia Flash .swf into a vb.net form?

tia

kurt

[Kurt]

-----Original Message-----
Hi Kurt,

Here are notes I wrote to myself when I finally figured out how to do this:
make a reference to the proper control by browsing for
c:\windows\sys tem32\flash\swf lash.ocx; once selected, it will immediatelycheck the Flash Factory Object; select it and it will become actually twocontrols; drag the one called 'Shockwave' to the form (I actually have thesenow as part of the Components tab in the toolbox); right click and set asappropriate; I'm having a little trouble getting it to play, as the playselection seems to continually drop, but I finally got it to lock in - someof the other settings may have been interfering with it; finally, rememberthat the timer in the splash screen may have to change if the movie runslonger than you might expect; UPDATE: it's a flacky control, becauseelements of it tend to disappear even after using 'apply', but be persistentand it eventually will stick; also, the code doesn't even have the .swffilename

Here's the timer code I use to autoclose the form:

Private Sub splash_Load(ByV al sender As System.Object, ByVal e AsSystem.EventAr gs) Handles MyBase.Load
AxShockwaveFla sh1.Loop = False

AxShockwaveFla sh1.Play()

Timer1.Start ()

End Sub

Private Sub Timer1_Tick(ByV al sender As System.Object, ByVal e AsSystem.EventAr gs) Handles Timer1.Tick

alarmcounter += 1

If alarmcounter > 5 Then

Me.Close()

End If

End Sub

HTH,

Bernie Yaeger

"Kurt" <ks*******@comc ast.net> wrote in message
news:08******* *************** ******@phx.gbl. ..

Can anyone point me to an example of embedding a
Macromedia Flash .swf into a vb.net form?

tia

kurt

.

Thanks Bernie, I'll give it a whirl :-)