Pregunta: | 3426 - COMO SACAR LA BANDEJA DE CD EN VISUAL BASIC |
Autor: | Mauricio Pardo |
ME GUSTARIA QUE ME AYUDARAS CON LA CODIFICACION DE SACAR LA BANDEJA DE ENTRADA EN VISUAL ES QUE ESTOY HACIENDO UN PROGRAMA REPRODUCTOR DE CD Y SOLO ME FALTARIA ESO GRACIAS |
Respuesta: | Oswaldo Monagas |
Aqui te envio el codigo que necesitas para eso:En un módulo declaramos : 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 ´Y luego para abrir la puerta : dim res as long, returnstring as string*127 res = mcisendstring("set CDAudio door open", returnstring, 127, 0) ´Y para cerrarla : dim res as long, returnstring as string*127 res = mcisendstring("set CDAudio door closed", returnstring, 127, 0) Acuerdate que el codigo de Declaraciones "Declare ....." debe estar escrito en una sola linea y leelo para que te des cuenta que debes tener en el directorio C:\Wimdows\System el archivo winmm.dll Saludos Oswaldo |