Problema con los archivos resources

[Zeroql]

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:

Código (vb) [Seleccionar] Expandir


Dim Sonido As Byte
Sonido = LoadResData(101, "CUSTOM")
etc.
etc.

pero no me da.
alguien tiene alguna idea?

[seba123neo]

Hola,tenes que hacer asi:

Código [Seleccionar] Expandir

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.

[Zeroql]

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.

[seba123neo]

fijate que vos declaras a la variable como byte y es una matriz de bytes...

[Zeroql]

ahora si lo arregle muchas gracias seba123neo, ya me has ayudado como 3 veces, gracias.

[SKL (orignal)]

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