Probar si programa abre y cierra bandeja de CD.

Hola:

Me funciona. Muchs gracias mi muy distinguido amigo.

Ver el archivo adjunto 161586

Código:
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 Command_Abrir_Click()
Label_Mensaje.Caption = "Abriendo..."
DoEvents
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
Label_Mensaje.Caption = "Abierto."
End Sub

Private Sub Command_Cerrar_Click()
Label_Mensaje.Caption = "Cerrando..."
DoEvents
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
Label_Mensaje.Caption = "Cerrado."
End Sub

Saludos.
 

Adjuntos

  • VB6 Bandeja.PNG
    VB6 Bandeja.PNG
    2.6 KB · Visitas: 1
Atrás
Arriba