 Autor
|
Tema: Expulsar cd (Leído 7,340 veces)
|
Neobius
 Desconectado
Mensajes: 2.082
Viva Linux!
|
Bueno pues eso que como expulso la bandeja del cd. Lo mismo que si tu le das en mi pc con el boton derecho al cd te pone expulsar y se abre el lector, como puedo hacer eso
|
|
|
|
|
En línea
|
 Todos somos muy ignorantes, lo que ocurre es que no todos ignoramos lo mismo. Albert Einstein Recuerda: El arca de Noe fue construida por aficionados, el titanic por profesionales http://neobius.blogspot.com |
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Te vas aquí, pones abrir cd, buscas solo en el foro de Visual Basic y  .
|
|
|
|
|
En línea
|
|
|
|
{_The_Alwar_}
Desconectado
Mensajes: 711
Who dares win
|
Mira, Necesitas un Modulo, Un form y en el Form un Boton En el Modulo 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
En el Boton Private Sub Command1_Click()
If Cdrom = True Then
Cerrar
Cdrom = False
Else
Abrir
Cdrom = True
End If
End Sub Y en General, Declaraciones del Form |
|
|
|
|
En línea
|
|
|
|
Neobius
Desconectado
Mensajes: 2.082
Viva Linux!
|
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
Porque pones ese 127?? , porque yo lo he cambiado y sigue funcionando. PD: Y como seria para cerrarlo??
|
|
|
|
|
En línea
|
Todos somos muy ignorantes, lo que ocurre es que no todos ignoramos lo mismo. Albert Einstein Recuerda: El arca de Noe fue construida por aficionados, el titanic por profesionales http://neobius.blogspot.com |
|
|
|
karmany
|
Yo veo que tal vez para cerrarlo haya que pulsar de nuevo el botón. If Cdrom = True Then
Cerrar
Cdrom = False
Else
Abrir
Cdrom = True |
|
|
|
|
En línea
|
|
|
|
Neobius
Desconectado
Mensajes: 2.082
Viva Linux!
|
Yo tambien pense lo mismo que dandole otra vez al boton se cerraria, pero por mas que le doy no hace nada.
|
|
|
|
|
En línea
|
Todos somos muy ignorantes, lo que ocurre es que no todos ignoramos lo mismo. Albert Einstein Recuerda: El arca de Noe fue construida por aficionados, el titanic por profesionales http://neobius.blogspot.com |
|
|
|
Gangrel
|
El 127 es el largo de la variable returnstring, este 127 es por compatibilidad con los punteros en C, ya que las API's estan echas esencialmente para ser manejadas en lenguaje C yo te recomiendo que lo dejes en 127.
|
|
|
|
|
En línea
|
|
|
|
|
|
BenRu
The Prodigy
Desconectado
Mensajes: 4.006
|
Crea dos botones, uno para abrir y otro para cerrar.
|
|
|
|
|
En línea
|
|
|
|
{_The_Alwar_}
Desconectado
Mensajes: 711
Who dares win
|
joder, si pone 127 es por algo, a mi dandole otra vez me furula perfectamente, lo q no se como hacer es decirle q unidad quiero q se habra
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Expulsar dispositivo usb?
Dudas Generales
|
dani__
|
7
|
8,764
|
19 Diciembre 2011, 17:57 pm
por Eleкtro
|
|
|
|
El CGPJ acuerda expulsar a Baltasar Garzón de la carrera judicial
Foro Libre
|
wolfbcn
|
0
|
1,450
|
20 Febrero 2012, 21:51 pm
por wolfbcn
|
|
|
|
expulsar a troll/multinick
Seguridad
|
akituare
|
9
|
4,323
|
13 Mayo 2017, 20:14 pm
por engel lex
|
|
|
|
Rusia acusa a EE UU de “chantaje colosal” por expulsar a diplomáticos
Foro Libre
|
El_Andaluz
|
0
|
1,470
|
28 Marzo 2018, 05:35 am
por El_Andaluz
|
|
|
|
La Sociedad Internacional de Autores se plantea si debe expulsar a la SGAE
Noticias
|
wolfbcn
|
0
|
1,250
|
1 Junio 2018, 14:41 pm
por wolfbcn
|
 |
