()
Newbie
Messaggi:
Iscritto:
|
inserisci questo in un modulo:
Codice sorgente - presumibilmente VB.NET |
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
|
e poi nel codice del command button inserisci:
Codice sorgente - presumibilmente Visual Basic 6 |
Dim lRet As Long
lRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
|
per aprire e quest'altro per chiudere:
Codice sorgente - presumibilmente Visual Basic 6 |
Dim lRet As Long
lRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
|
|