Visual Studio 2010'da Kodlanmıstır.
2adet Button Ekleyin.Text'Lerin Adını "AC" "KAPA" yapabılırısınız Yaptıktan sonra Kod Bolumune Yapıstırın.önce form'da yazılı olan kodları sılın.
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
2adet Button Ekleyin.Text'Lerin Adını "AC" "KAPA" yapabılırısınız Yaptıktan sonra Kod Bolumune Yapıstırın.önce form'da yazılı olan kodları sılın.
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