CD-rom Aç-Kapa Yapımı

CD-rom Aç-Kapa Yapımı

Bu yayında CD-ROOM Aç-kapa yaptık.

bir de videosunu çektik yapamayan olmasın diye :)

Cd rom aç kapa yapımı

Form Eklenecekler

2 Button

Public Class Form1
    'visualbasicdersleri.com
    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") 'AÇAR
    End Sub 'visualbasicdersleri.com

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        mciExecute("Set CDAudio door closed") 'KAPAR
    End Sub 'visualbasicdersleri.com
End Class'visualbasicdersleri.com

Paylaş :