Quote:
|
Originally Posted by nickman
Hi, Anyone know how to get an SWF in a VB Form to go to full screen?
Is there a way?
|
This should work:
Code:
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "\file.swf" 'Full Movie Path here
ShockwaveFlash1.ScaleMode = 0 'ShowAll
End Sub
Private Sub Form_Resize()
ShockwaveFlash1.Width = Me.ScaleWidth
ShockwaveFlash1.Height = Me.ScaleHeight
End Sub
It will scale the flash box to the form, but if its not the same aspect ratio, it will have "borders" around the top and bottom
OR if you want it without the title bar do this:
Set BorderStyle to 0 and and ControlBox = False:
Code:
Private Sub Form_Load()
ShockwaveFlash1.Movie = App.Path & "\file.swf" 'Full Movie Path here
ShockwaveFlash1.ScaleMode = 0 'ShowAll
Me.WindowState = vbMaximized
End Sub
Private Sub Form_Resize()
ShockwaveFlash1.Width = Me.ScaleWidth
ShockwaveFlash1.Height = Me.ScaleHeight
End Sub
|
Last edited by djanim8; 03-02-2005 at 02:19 PM.
|