(General)(Declaration) bu bölüme şunu yazın:
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
2 tane Command butonu koyun
=
Ac - Kapa
Private Sub Ac_Click()
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub Kapa_Click()
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
eve bu kadar Ac butonu ile cd-rom açılır kapa butonu ile kapanır
+yorum
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
2 tane Command butonu koyun
=
Ac - Kapa
Private Sub Ac_Click()
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub Kapa_Click()
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
eve bu kadar Ac butonu ile cd-rom açılır kapa butonu ile kapanır
+yorum
