Demonstrates how to open and close the CD ROM door - Visual Basic , VB.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

Demonstrates how to open and close the CD ROM door...
Author: Cheri Haines
Submitted: 3/26/2000
Version: VB5
Compatibility: VB5, VB6
Category: Windows API
Views: 11257
Demonstrates how to open and close the CD ROM door once a command button is pressed.
Declarations:
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
Code:
Private Sub Command1_Click() retvalue = mciSendString("set CD Audio door open", returnstring, 127, 0) End Sub Private Sub Command2_Click() retvalue = mciSendString("set CD Audio door closed",returnstring, 127, 0) End Sub