Uploaded with ImageShack.us
Crie um formulário com dois botões como mostra a figura abaixo::
No botão Abrir insira o código:
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
No botão fechar Insira o código:
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
Agora insira essa declaração no seu código:
Private 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
Alias "mciSendStringA" (ByVal lpstrCommand As _
String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback _
As Long) As Long
Veja o código do projeto completo:
Private 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
Alias "mciSendStringA" (ByVal lpstrCommand As _
String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback _
As Long) As Long
Private Sub Command1_Click()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub
Private Sub Command2_Click()
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End Sub
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End Sub
Para baixar o Projeto Clique Aqui
Fonte: Tornado Digital
Assinar:
Postar comentários
0 comentários:
Postar um comentário