Programlama Rehberi


Arama

cd kapağı açıp kapatma



Kod1.vb

 

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

 

mciExecute(

 

Private Sub Command1_Click()"Set CDAudio door Open")End Sub

 

mciExecute(

 

Private Sub Command2_Click()"Set CDAudio door closed")End Sub

 

mciExecute(

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click"Set CDAudio door Open")End Sub

 

mciExecute(

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click"Set CDAudio door closed")End Sub

 

 

End

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd Sub Class
Yazar: digor
Kategori: BASIC / Visual BASIC
Düzey: Düzey
Eklenme Tarihi: 2009-03-21
Okunma: 589
Puan: 0
Yorum sayisi: 0

Yorumlarınız(0)




ÖSS Puan Hesaplama | Bize Ulaşın | Tavsiye Edin | Sitenin Teknik Bilgileri | Kullanıcı Sözleşmesi | Bizi Destekleyin
2004-2009 © Programlama Rehberi, tüm hakları saklıdır.