Yo tambien pense lo mismo que dandole otra vez al boton se cerraria, pero por mas que le doy no hace nada.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: .··:::A·L·W·A·R:::··. en 8 Septiembre 2005, 14:20 PM
Public res As Long, returnstring As String * 127
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
Public Sub Cerrar()
res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
Public Sub Abrir()
res = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Cita de: TaN€R en 22 Abril 2005, 18:55 PM
CitarUn gran doc unravel
Un gran doc , y ahora un mejor "pdf".
http://www.iespana.es/telefoniafacil/RSA_Novatos.pdf
saludos