buenas a todos.
tengo un problema con el archivo derecursos al llamar a uno personalizado, les explico mejor
tengo un sonido guardado dentro de un archivo de rescusrsos normalmente para llamarlo se usa la expresion loadresdata(id,tipo), y asi lo hago:
Dim Sonido As Byte
Sonido = LoadResData(101, "CUSTOM")
etc.
etc.
pero no me da.
alguien tiene alguna idea?
Hola,tenes que hacer asi:
Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_SYNC = &H0
Private Const SND_NODEFAULT = &H2
Private Const SND_MEMORY = &H4
Dim Sonido1() As Byte
Private Sub Command1_Click()
Call sndPlaySound(Sonido1(0), SND_SYNC Or SND_MEMORY)
End Sub
Private Sub Form_Load()
Sonido1 = LoadResData(101, "CUSTOM")
End Sub
saludos.
asi lo tengo yo llamo la api para ejecutar el sonido.
pero el error esta cuando a la variable sonido le llevo el archivo que esta en los resources. no me da.
fijate que vos declaras a la variable como byte y es una matriz de bytes...
ahora si lo arregle muchas gracias seba123neo, ya me has ayudado como 3 veces, gracias.
por las dudas aca te dejo un programita que hice con cobein hace algun tiempo, que reproduce sonidos asincronicos desde un recurso... aparte tiene un hook para que cuando aprete x boton salga ese sonido en especial...
Tecladito OLIVETI.rar - Descargalo en UpSourceCode.com.ar (http://www.uploadsourcecode.com.ar/d/Hz7oR3Q9yHlfu7Q91ab1vUbbbYeFq6EI)