Comentarios en: Abrir y Cerrar la puerta del CD-ROM

Por: Eduardo

Eduardo — Sun, 05 Jun 2011 04:16:10 +0000

gracias jrchico

Por: jrchico

jrchico — Sun, 12 Sep 2010 17:56:43 +0000

deben agregar 3 botones y label y una picture
a
c
Button1

boton a es para abrir el cdrom
boton c es para cerrar
button1 es para salir de la aplicacion
label es opcional
picture es opcional

Por: jrchico

jrchico — Sun, 12 Sep 2010 17:40:44 +0000

hola amigo yo utilizo este codigo me funciona a la perfeccion:

Public Class Form1
Private Declare Function mciSendString Lib “winmm.dll” Alias “mciSendStringA” (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a.Click
AbrirCDROM()
a.Enabled = False
c.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.Click
cerrarCDROM()
c.Enabled = False
a.Enabled = True
End Sub

Public Sub AbrirCDROM()
mciSendString(“set CDAudio door open”, “”, 0, 0)
End Sub

Public Sub cerrarCDROM()
mciSendString(“set CDAudio door closed”, “”, 0, 0)
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class

Por: Ismael

Ismael — Tue, 01 Jun 2010 16:39:28 +0000

Esta bueno el programita!

Por: cristian garcia

cristian garcia — Sat, 13 Feb 2010 20:35:51 +0000

al principio yo no lo entendia pero viendolo varias veses lo pude entender un poco. pero el que si lo entiende bien es otoniel

Por: gustavo

gustavo — Wed, 23 Sep 2009 16:55:56 +0000

a mi tambien me manda el mismo error que mustang, que es lo que sera?

Por: abc

abc — Sat, 19 Sep 2009 01:27:54 +0000

————-

Por: eFra

eFra — Sat, 19 Sep 2009 01:26:53 +0000

Pues lo probe en vb.net 2005 y todo funciona a la perfeccion… me gustaria participar con algunos ejemplos que yo tengo…

Por: mustang

mustang — Thu, 17 Sep 2009 14:29:31 +0000

una curiosidad lo probe en visual net 2005
no me tira error ni nada, pero al ejecutarlo en el boton de abrir, abre pero visual tira un mensaje que es el siguiente:

A call to PInvoke function ‘WindowsApplication1!WindowsApplication1.Form1::mciSendString’ has unbalanced the stack. This is likely because the managed

error de MDAs..¿que significa eso?

gracias

Por: Eliseo

Eliseo — Thu, 03 Sep 2009 11:23:48 +0000

hola:
puedes usar este mismo código en visual basic .net 2005.

Suerte