Access, voz y animaciones
Estimado experto, estoy haciendo un libro electrónico utilizando el access, pero necesito insertar animaciones o bien llamar a otro programa para que se vea en un cuadro independiente insertado en un formulario.
Te agradecería cualquier ayuda o sugerencia al respecto.
Ademas necesito agregar sonido, especialmente voz.
Te agradecería cualquier ayuda o sugerencia al respecto.
Ademas necesito agregar sonido, especialmente voz.
1 respuesta
Respuesta de cienti
1
Create un modulo con el siguiente código:
Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long
Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal IpstrCommand As String, ByVal IpstrReturnString As Any, ByVal uReturnLenght As Long, ByVal hwndCallback As Long) As Long
Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal ipszLongPath As String, ByVal ipszShortPath As String, ByValcchBuffer As Long) As Long
Function myPlaysound(fichero, tipo)
Dim I As Long, ipszShortPath As String, cchBuffer As Long, corto As Long
ipszShortPath = String(255, Chr(0)): cchBuffer = 255
corto = GetShortPathName(fichero & Chr(0), ipszShortPath, cchBuffer)
Select Case tipo
Case "wav"
I = sndPlaySound(fichero, 1)
Case "mid"
I = mciSendString("close mymid", "", 0, 0) 'detiene mymid si estaba en play
I = mciSendString("open" & Left(ipszShortPath, corto) & "type sequencer alias mymid" & Chr(0), "", 0, 0)
I = mciSendString("Play mymid", "", 0, 0)
End Select
End Function
No me acuerdo de donde lo conseguí pero funciona perfectamente. Luego vas al elemento que quieres adjudicarle el sonido, buscas el evento que te interese y escribes:
Dim x As Variant
x = myPlaysound("Ruta del sonido(C:\....)", "wav")
Respecto a las animaciones yo no he conseguido nada y hubo una temporada que lo mire mucho. Finalmente me di cuenta que para realizar un programa multimedia hay que usar otros programas más apropiados. Yo uso ahora el Macromedia Director 8.5 y es una maravilla. Si lo que quieres es hacer ese tipo de programas o un CD interactivo multimedia, hazlo con el Director.
Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long
Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal IpstrCommand As String, ByVal IpstrReturnString As Any, ByVal uReturnLenght As Long, ByVal hwndCallback As Long) As Long
Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal ipszLongPath As String, ByVal ipszShortPath As String, ByValcchBuffer As Long) As Long
Function myPlaysound(fichero, tipo)
Dim I As Long, ipszShortPath As String, cchBuffer As Long, corto As Long
ipszShortPath = String(255, Chr(0)): cchBuffer = 255
corto = GetShortPathName(fichero & Chr(0), ipszShortPath, cchBuffer)
Select Case tipo
Case "wav"
I = sndPlaySound(fichero, 1)
Case "mid"
I = mciSendString("close mymid", "", 0, 0) 'detiene mymid si estaba en play
I = mciSendString("open" & Left(ipszShortPath, corto) & "type sequencer alias mymid" & Chr(0), "", 0, 0)
I = mciSendString("Play mymid", "", 0, 0)
End Select
End Function
No me acuerdo de donde lo conseguí pero funciona perfectamente. Luego vas al elemento que quieres adjudicarle el sonido, buscas el evento que te interese y escribes:
Dim x As Variant
x = myPlaysound("Ruta del sonido(C:\....)", "wav")
Respecto a las animaciones yo no he conseguido nada y hubo una temporada que lo mire mucho. Finalmente me di cuenta que para realizar un programa multimedia hay que usar otros programas más apropiados. Yo uso ahora el Macromedia Director 8.5 y es una maravilla. Si lo que quieres es hacer ese tipo de programas o un CD interactivo multimedia, hazlo con el Director.
