Mostrando Codigo - Visual Basic
Abrir y cerrar reproductor de Cd
Tal y como el titulo indica con esta aplicacion controlamos el reproductor de Cd´s.
El ejemplo consta de dos botones, abrir y cerrar.
En principio debemos crear un modulo
Proyecto > Agregar modulo e introducir la primera parte del codigo.
Postriormente debemos introducir en nuestro formulario 2 botones, que en este caso lo hemos llamado command1 ( abrir cd )y command2 ( cerrar Cd )
Archivo descargable !!
CODIGO
// Codigo ofrecido por Tutores.org
' ----------- MODULO
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
' ----------- FORMULARIO
Private Sub Command1_Click()
retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0)
End Sub
Private Sub Command2_Click()
retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0)
End Sub
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Abrir y cerrar reproductor de Cd" href="http://www.tutores.org/codigo/1065/" target="_blank">Abrir y cerrar reproductor de Cd</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Abrir y cerrar reproductor de Cd" href="http://www.tutores.org/codigo/1065/" target="_blank">Abrir y cerrar reproductor de Cd</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
bartlo 27-03-2009 14:10:22
A mi me da problemas en la parte de codigo en los Command1 y Command2 falta declarar variables
INSERTAR COMENTARIO