Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo lograr el efecto de onda de mp3 en vb

Cómo lograr el efecto de onda de mp3 en vb

Contiene el DMC de control, el código fuente se puede descargar en la siguiente dirección:

http://afei.name/upload/dmc.rar

El código fuente es el siguiente:

Opción explícita

Atenuar o_AD como IBasicAudio

Atenuar o _VW como IVideoWindow

Atenuar o_FM como FilgraphManager

Dim o_Pos como IMediaPosition

Dimo_Event como IMediaEvent

Dim o_Filter como IFilterInfo

Dim Url como cadena

Private Sub DMC1_ErrorOccurred(ByVal donde como Cadena, información de ByVal como cadena)

Debug.Print donde & amp "," & info

End Sub

Sub privado DMC1_URLStreamStoped(ByVal en pausa como booleano )

Debug.Print "URL-" & pausado

End Sub

Sub privado Form_Load()

DMC1.DeviceToUse = 1

DMC1.InitBASS Me.hWnd, 44100, Verdadero, Falso

DMC1.InitBASS Me.hWnd, 44100, Verdadero, Falso

DMC1.InitBASS Me. hWnd, 44100BufferLenInSeconds = 1

DMC1.StreamPan = 0

DMC1.OpenURLStream "http://afei.name/media/california.mp3" 'Reproducir canciones de Internet

DMC1.OpenURLStream " http://afei.name/media/california.mp3" 'Reproducir canciones de Internet

DMC1.OpenURLStream "http://afei.name/media/california.mp3PlayURLStream

End Sub

Sub privado Form_Unload(Cancelar como entero)

Si DMC1.URLStreamIsActive = True Entonces

DMC1.URLStreamIsActive = True Entonces

DMC1.URLStreamIsActive = True Si DMC1.URLStreamIsActive = True Entonces

DMC1.URLStreamIsActive = TrueDMC1.StreamLenInSeconds & "/" & DMC1.StreamLenInSeconds

DMC1.StreamData intData, 1000

Finalizar si

picBox.Cls

Para i = 0 a 500 Paso 2

h = ((int

Datos(i) + 32768) / 65535 * picBox.Height)