Código
'Api para incluir en un 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 'crear dos botones en un formulario Private Sub Command1_Click() 'Se abrirá el CD retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0) End Sub Private Sub Command2_Click() 'Se cerrará el CD retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0) End Sub
En Sub Command1_click(). Como se yo al utilizar una api (teniendo en cuenta que puede que nunca la haya utilizado) que si pongo "set Caudio door open" se va a abrir la pletina. Otra cosa en la misma linea porque al final asigna dos valores??? 127 y 0 que es lo que hacen????
Es a eso a lo que me refiero cunado veo una api. Os admiro de verdad por poder a llegar a entender esas estructuras pero no me entero de nada.
Salu2