Visual Basic - ayuda para ejecutar archivos

Life is soft - evento anual de software empresarial
 
Vista:

ayuda para ejecutar archivos

Publicado por javi (5 intervenciones) el 29/06/2001 00:07:09
¿Como puedo ejecutar archivos de sonido desde una aplicacion? He probado de la misma forma que con documentos de word,excell.. pero nada. Sobre todo me gustaria saber como se ejecutan archivos en mp3 con winamp
Hasta luego y gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

WAV

Publicado por Ariel (165 intervenciones) el 29/06/2001 17:30:06
Ejecutar Wavs es muy facil utilizando la API playsound
para ejecurat MP3 deberias usar una referencia al windows media player.. con winamp no lo he hecho nunca. Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Posible solución

Publicado por Guacho (4 intervenciones) el 29/06/2001 17:35:40
Con este codigo puedes ejecutar cualquier archivo, incluso accesos directos (LNK), y no sólo accesos directos, sino TODO lo que le eches: archivos de cualquier extensión; el START se encarga de llamar a la aplicación correspondiente... lo que uno se ha complicado haciendo DDE y todo el rollo para esta tarea tan fácil!

¿Cómo se hace?, Pues aqui esta el codigo...

Dim ret As Long
ret = Shell("start " & sFile)
'Si Quieres que no se muestre la ventana:
ret = Shell("start " & sFile,

sFile será "lo que queramos" ejecutar. CUALQUIER COSA!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Para los archivos WAV

Publicado por Guacho (4 intervenciones) el 29/06/2001 17:57:57
'Esto va en un modulo (Api Functions declarations)

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Const SND_ALIAS = &H10000
Public Const SND_ASYNC = &H1
Public Const SND_LOOP = &H8
Public Const SND_NOWAIT = &H2000
Public Const SND_SYNC = &H0

'Esto lo pones en el Form
public sub cmdPlaysoundClick()

dim ret as long
ret=sndplaysound("c:\windows\bee.wav",SND_SYNC)

End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Mas opciones

Publicado por Miguel (243 intervenciones) el 29/06/2001 18:08:15
Esto ejecuta cualuier tipo de archivo.

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 Sub Command1_Click()
Dim lValDev As Long
lValDev = ShellExecute(Me.hwnd, "Open", "C:\Espacio-Bip.wav","", "", 6)

End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

gracias

Publicado por javi (5 intervenciones) el 30/06/2001 19:31:22
Gracias por solucionarme el problema. Al final he utilizado la opcion de miguel y realmente me ejecuta cualquier archivo.
En cuanto a las soluciones de gaucho he utilizado la primera (que parecia la mas sencilla) y no me ha funcionado me daba problemas con el sFile(me salia en el winamp el nombre que ponia en el sFile, si puedes mandame un ejemplo completo). En cuanto a la solucion de los archivos wav no la he probado. Tampoco he probado la opcion de Ariel.

Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar