+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-net-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Cd-Rom Açma Kapama[VB.NET] (/konu-cd-rom-acma-kapama-vb-net.html)
Cd-Rom Açma Kapama[VB.NET] - Mustafa Furkan yesil - 21/02/2015
KAYNAK KODLARI-PROGRAM açıklamada
İNDİRME LİNKİ : youtubede
Kod:
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mciExecute("Set CDAudio door Open")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
mciExecute("Set CDAudio door closed")
End Sub
End Class