Bueno, creando una tool me dio este error, basicamentes si pongo musica , al darle al boton no va a el link k kiero,
i si le doi que al darle funcione, no va la musica
aqui os dejo los codigos i los errores:
declaración de abrir url
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
Const SW_NORMAL = 1
codigo boton:
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.url.com", &O0, &O0, SW_NORMAL)
----------------------------------------------------------------------------------------------------------------------------------------------
Modulo musica: Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Para reproducirlo: iRESULT = mciExecute("Play C:\Chiquita.mp3")
Para detener la reproducción: iRESULT = mciExecute("stop C:\Chiquita.mp3")
Pantallazo error:
(http://netpoison.nixiweb.com/uploader/imagenes/98885229131476098.jpg)
Estoy de viaje ahora mismo hacia leon y no tendre pc hasta el lunes pero creo que el error es mas que visible.
El "modulo" de musica no es un modulo sino una api xd , asi que quitalo del modulo y metelo en el form principal debajo del option explicit y ahora prueba xd.
No me hagas mucho caso ya que no lo veo muy bien desde el coche pero a primera vista creo que es ese el error.
No puedes poner una api como modulo y no indicar las funciones de iresult porque en el form hay que llamar a la funcion del modulo etc...
Asi que hazme caso y pon eso debajo del option explicit y cuentame
No tienes permitido ver enlaces.
Registrate o Entra a tu cuenta
Estoy de viaje ahora mismo hacia leon y no tendre pc hasta el lunes pero creo que el error es mas que visible.
El "modulo" de musica no es un modulo sino una api xd , asi que quitalo del modulo y metelo en el form principal debajo del option explicit y ahora prueba xd.
No me hagas mucho caso ya que no lo veo muy bien desde el coche pero a primera vista creo que es ese el error.
No puedes poner una api como modulo y no indicar las funciones de iresult porque en el form hay que llamar a la funcion del modulo etc...
Asi que hazme caso y pon eso debajo del option explicit y cuentame
Ok, pero antes ponia
el modulo la api como modulo i la musica se escuchava.
Probe a ponerlo debajo del option como dijistes i me sale esto , no se si es aqui donde decías pero te dejo panta xD
(http://netpoison.nixiweb.com/uploader/imagenes/81149954115003777.jpg)
No quites las apis del shellexecute , ponlas juntas.
Si te fijas las apis suelen llevar private declare , añadele un private a lo de la musica.
Siento ni poder ayudarte de mas pero estoy desde el telefono y no puedo comprobar lo que digo en el vb
No tienes permitido ver enlaces.
Registrate o Entra a tu cuenta
No quites las apis del shellexecute , ponlas juntas.
Si te fijas las apis suelen llevar private declare , añadele un private a lo de la musica.
Siento ni poder ayudarte de mas pero estoy desde el telefono y no puedo comprobar lo que digo en el vb
Ya esta solucionado, era tan facil como
Dim iRESULT As Long
jaja, gracias por todo tio ;), podeis cerrar tema si kereis.