Visual Basic

hier een set visual basic tutorials:

kennis maken met vb6 (1) hier leer je hoe je functies maakt

script's:
cd open/close:

button open:

Private Sub Command1_Click()
    mciSendString "Set CDAudio Door Open Wait", _
        0&, 0&, 0&
End Sub
button dicht:

Private Sub cmdClose_Click()
    mciSendString "Set CDAudio Door Closed Wait", _
        0&, 0&, 0&
End Sub












module:

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

 
Advertisement
 
 

=> Do you also want a homepage for free? Then click here! <=