can someone shed some light on this

Right what it is I have been tryin to run an swf file from a command button. I had no luck with this so made it an exe file but although it loads now It is an mp3 player that runs off an xml doc. It will not play anything when ran from my command button. If it is run itself it plays no problem.

heres the code Im using.

Private Sub Command6_Click()
Shell "C:\dir\app.exe", 1
End Sub

Hope someone can help because this is just the only thing stoppin my project bieng complete.

thanks in advance
R

Just open it in IE, as long as it has Flash installed. I tried to open a swf file, and could't unless I was using IE or FireFox. That's what I would do.

not sure how to do that and will it open in a large window?
or can I set the size to the size of the app
thanks
Rob

another thing is that its almost as if it will not see the xml file when opened from vb

cheers
R

I have been reading around a bit am I right in thinking that I need to add a webbrowser to a form and then point it to th html file that flash generates.

hope I am right lol
thanks
R

IE wil open a VALID XML file. That's why I wanted you to pay attention to the format.

As for the FLASH file:

You can open it on it's own, or you can open IE in a window on your form.
First, you should make sure that you can call the file, and open IE. Next, worry about opening it in your form. This is the shell execute command that will open the default program. First try just the swf file to see if it is associated with IE. Next supply the path of IE, and add the flash file as a parameter. If this works, then you can put it in your form.

Replace thie:

"mailto:[email protected]?subject=something&body=this is the body"

with this:

"\flashpath\myflash.swf"

"\addyourpath\iexplore.exe \flashpath\myflash.swf"

VB Code:

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_HIDE As Long = 0
Private Const SW_SHOWNORMAL As Long = 1
 
Private Sub Command1_Click()
    ShellExecute 0&, "OPEN", "mailto:[email protected]?subject=something&body=this is the body", vbNullString, "C:\", SW_SHOWNORMAL
 
 ' c:\ = Destination Folder
End Sub

Hope it works out for you. :wave:

sorry, I'm not sure how you mean put the path in for IE, I put this and it opens but again it wont play anything.

VB Code:

Private Sub Command6_Click()
    ShellExecute 0&, "OPEN", "c:\mgamerz\test.swf", vbNullString, "C:\", SW_SHOWNORMAL
 
 ' c:\ = Destination Folder
 
 
End Sub

sorry to keep bothering you with this

thanks for replying
R

what I meant about the IE path - will it not change on different machines.

R

yes, but deal with that as it comes. first see if it wil open with IE programmatically. in my system its windows\servicepackfiles\i386 for example

first open it with ie, then open it without ie, then open it in your program, or you won't know what isn't working.

I can open IE but not the swf in it but I think Ive done something wrong

VB Code:

Private Sub Command6_Click()
    ShellExecute 0&, "OPEN", "c:\program files\internet explorer\iexplore.exe \c:\mgamerz\test.swf", vbNullString, "C:\", SW_SHOWNORMAL
 
 ' c:\ = Destination Folder
 
 
End Sub

thnks
R

You have an extra slash

\c:\mgamerz

should be

c:\mgamerz



if that works, just try the flash

(I'll help more tomorrow)

I currently have this code on my button and whe its clicked absolutely nothing happens.

VB Code:

Private Sub Command6_Click()
    ShellExecute 0&, "OPEN", "c:\program files\internet explorer\iexplore.exe c:\mgamerz\test.swf", vbNullString, "C:\", SW_SHOWNORMAL
 
 ' c:\ = Destination Folder
 
 
End Sub

I was in the college library and must have looked at every vb book and none of them mentioned flash or swf. This is drivin me nuts!!

R

hmmm. I just tried all 3 ways, and i can open ie, but trying to open a swf file produces a 404 not found error. I don't know how to open it. I have a file called splash.swf that won't open.

I'll look around for something.

thanks

I read that Windows Media Player opens them if you have version 6.0 or greater.
I ran into a secrutiy issue when I tried to open with the swf. If you can get around that, you may be able to run the flash in media player.
I thought the flash.ocx would play it.

So I could use media player to open an swf movie?

i tried. security settings prevented it. click on the flash and select open with.
both shockwave and wmp have sdk's that you can download. they might shed light on what you are trying to do.

There is a standalone flash viewer available which *might* solve your problem but there might also be another approach...

Use the createobject("internetexplorer.application") method and then .navigate to the file...I havn't actually tried it (been meaning to get around to that as I've had some problems reliably opening localhost files in IE myself) but I'm pretty sure it will work - I've done it with VBScript previously for parsing links, etc, out of pages...

Use the "shockwave flash" control on your form. Its in components :)

I can get the flash ito vb but the swf reads an XML file but it aint seeing the file.

Strange

Ensure your paths are correct for the xml file. You cant fix them in flash because you are obviously installing to different folders.

I know you can do it because we do it here but I cant use Flash so I cant help on that bit sorry :)

The path to the xml must be correct because the player reads the xml and plays when just run on its own. but if I try to run it from a command button - nothing

Check you have the correct flash version in the ocx. Run the program and right click the flash window to show the version. Then check its the same. because VB uses an ocx it isnt necessarily the one used by IE :)

Hi all,
Right this is really strange I have my swf loading from my command button that reads from an xml file. This works fine until I add a file to be added to the xml. After doing this it will do nothing until I close it and run again.

Any ideas
thanks
R

Post some code, and we'll take a look.

Thanks for reply,

I actually got it workin in the end with this simple code.

Private Sub Command6_Click()
Shell "C:\player\playa.exe", 1
End Sub

now I think I tried this before but because it wasnt playing didnt think it was working. I will only play anything if I close the program then restart it. I was wondering if theres someway of doing like a refresh. I am probably totally wrong lol - It was just a though.

Thanks
R

can you stop the player? otherwise, maybe you could terminate the exe and then initialize it again?

I the controls on the player stop and start it etc and to terminate it I just close it from the top right corner

Sorry I forgot to mention this, I want to be able to close the player add another track/s and the update and launch the player again but to do this I have to close the whole program and restart it.

would it need a pause maybe somewhere?

Use an API to kill it by name.

will I need to add that to my existing project somwhere?

Just add Terminate.bas (a module) to your app, and then include the line from the form load into your program when you want to teminate it.

I want it to end when I close the swf so will i need to put the swf on a form?

Put the flash in a form, and execute it when you close the form. That seems like a good way to me. You might be able to use an API if the process ends, but I'm thinking it doesn't end. If it were the MM control, you could send it a STOP command. I'm not sure. Why don't you get the Flash SDK ?

whats the best way do you think add the flash to a separate form and then load it from my main form with a button?

Use the vb reference to Macromedia Flash. I saw a post on it a few days ago.

Still no joy with this I can get the flash into a form but as soon as its running nothing happens again as if it aint seeing the XML file.

Post some code.

One thing that may work but I'm not sure how to di is to add a shorcut on the desktop to the player. I can get a shortcut to my app on the desktop but I think it would work if I could add another shortcut to the swf file. Any ideas I'll post my code in a min.

thanks
R