- 12 Eyl 2010
- 655
- 0
KONU;
VB.NET de CD-Sürücüyü Açıp Kapamak
VB.NET de CD-Sürücüyü Açıp Kapamak
KODLAR;
FORMUN GÖRÜNÜMÜ;
BUTONLARIN İSMİNİ ButnAc ve BtnKapa Olarak değiştirmeyi unutmayın..
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'üstdeki yazmak zorundasınız yok sa hata verir..
Private Sub BtnAc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAc.Click
mciExecute("set cdaudio doo openr")
'cd sürücüyü açmak
End Sub
Private Sub BtnKapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKapa.Click
mciExecute("set cdaudio door closed")
'cd sürücüyü kapamak
End Sub
End Class
KOLAY GELSİN...
VB.NET de CD-Sürücüyü Açıp Kapamak
VB.NET de CD-Sürücüyü Açıp Kapamak
KODLAR;
FORMUN GÖRÜNÜMÜ;
BUTONLARIN İSMİNİ ButnAc ve BtnKapa Olarak değiştirmeyi unutmayın..
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'üstdeki yazmak zorundasınız yok sa hata verir..
Private Sub BtnAc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAc.Click
mciExecute("set cdaudio doo openr")
'cd sürücüyü açmak
End Sub
Private Sub BtnKapa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKapa.Click
mciExecute("set cdaudio door closed")
'cd sürücüyü kapamak
End Sub
End Class
KOLAY GELSİN...