Hola lic_dahool.
Te agradezco que me pusieras el ejemplo. Lamentablemente no sé qué es lo que pretenden hacer con él. Es decir, usando un textbox y dos botones (cuyo único cometido es llamar a las funciones del ejemplo) no sé qué hacen. Yo he puesto el código del ejemplo de esta manera:
Código:
Dim a, i As Long
Dim vol,tmp As String
a = waveOutGetVolume(0, i)
tmp = "&h" & Right(Hex$(i), 4)
vol = CLng(tmp)
tmp = Right((Hex$(vol + 65536)), 4)
vol = CLng("&H" & tmp & tmp)
a = waveOutSetVolume(0, vol)
Lo que hace es bajarme el sonido al mínimo y el balance se queda centrado, pero esto ya sucede siempre que pongo el sonido al mínimo, es decir, con valor 0. He omitido el text porque no parece servir para nada más que para mostrar el valor del sonido... no entiendo la manera en la que esto funciona, la verdad.
Si puede alguien explicarme de qué depende el balance del wave, lo agradecería.