Coders' Corner Search:
Programming
    C#
    C++ (5)
    Delphi (597)
    Java (8)
    JavaScript (40)
    perl (27)
    php (12)
    VBScript (1)
    Visual Basic (1)

 
Exchange Links
 

Links to us

 

 

 General :: Programming :: Visual Basic
General Visual Basic related information.

Articles:

Featured Article

Eject CD Tray code for VB

Question:

I need like to have an eject CD tray option in the Menu. Can you show me some Visual Basic code for that?

Answer:

The fairly universal function mciSendString will do this for you. 

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
 
 Private Sub cmdOpenCD_Click()
 Dim lRet As Long
     lRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
 End Sub
 
 Private Sub cmdCloseCD_Click()
 Dim lRet As Long
     lRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
 End Sub