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\system32\flash\swflash.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(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
AxShockwaveFlash1.Loop = False
AxShockwaveFlash1.Play()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
alarmcounter += 1
If alarmcounter > 5 Then
Me.Close()
End If
End Sub
HTH,
Bernie Yaeger
"Kurt" <ks*******@comcast.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
