Visual Basic - Abrir y cerrar reproductor de Cd

Códigos Visual Basic

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 !!

Tutores.org

Inicio > Visual Basic

Visitas: 26,297 - 08/05/2004 23:14:15

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

<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>

COMENTARIOS

Comentario usuario

bartlo 27-03-2009 14:10:22

5 5

A mi me da problemas en la parte de codigo en los Command1 y Command2 falta declarar variables

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.