Este código no funciona
Publicado por Fran (9 intervenciones) el 08/12/2013 14:48:25
Saludos a todos:
Tengo este código para que cuando toque la tecla A se reproduzca un sonido pero cuando inicio la aplicación no suena nada.
He consultado y me han dicho que tengo que llamar a la clase para que funcione, pero no sé como hacerlo.
Espero que puedan ayudarme.
Muchas gracias de antemano.
Saludos.
Tengo este código para que cuando toque la tecla A se reproduzca un sonido pero cuando inicio la aplicación no suena nada.
1
2
3
4
5
6
7
8
9
10
Public Class Form1
Dim iresult As Long
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form1_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)
If Chr(KeyCode) = "A" Or Chr(KeyCode) = "a" Then
iresult = mciExecute("Play A.wav")
End If
End Sub
End Class
He consultado y me han dicho que tengo que llamar a la clase para que funcione, pero no sé como hacerlo.
Espero que puedan ayudarme.
Muchas gracias de antemano.
Saludos.
Valora esta pregunta
0
