VB 2005.net ile cd tray açıp kapama - Programlama- Zamansız Tartışma Platform

The.`KinG · 01-10-06, 22:48 Çevrimdışı

VB 2005.net ile cd tray açıp kapama
Merhabalar
Aşağıda cd tray i nasıl açılıp kapatılabileceğin göstermeye çalışacapım.
Öncelikle bir fonksiyon deklare ediyoruz long olarak. Class seviyesinde. Sonra da kodu nerede cd yi kapamak veya açmak istiyorsan oraya ekliyoruz.

Code:

Private setTrayStatus As Long
 
 
 
 
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
 (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
 
 
‘bu kodu cd tray i açmak için yazın
setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 1)
 
‘burayı da kapatmak için
setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 0)

ToutatiS · 01-10-06, 23:02 Çevrimdışı

Bilgilendirme için tşk.ler

JvX · 14-12-06, 01:06 Çevrimdışı

saol bilgi için..........

wolf_57 · 21-04-07, 18:08 Çevrimdışı

paylaşım için teşekkurler

01-10-06, 22:48 Çevrimdışı	#1
Doçent The.`KinG Genel Mesajlar: 3.399 Teşekkür etti: 1.599 Teşekkür edildi: 1.606 RepForum Gücü: 41 Forum Puanı:12169	VB 2005.net ile cd tray açıp kapama VB 2005.net ile cd tray açıp kapama Merhabalar Aşağıda cd tray i nasıl açılıp kapatılabileceğin göstermeye çalışacapım. Öncelikle bir fonksiyon deklare ediyoruz long olarak. Class seviyesinde. Sonra da kodu nerede cd yi kapamak veya açmak istiyorsan oraya ekliyoruz. Code: Private setTrayStatus As Long Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer ‘bu kodu cd tray i açmak için yazın setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 1) ‘burayı da kapatmak için setTrayStatus = mciSendString("Set CDAudio Door Open", CStr(0&), 0, 0) Gözlerim , Sende Kaldı Sevdalım , Hiçkimseleri Göremiyorum ... Konu The.`KinG tarafından (01-10-06 Saat 22:52 ) de değiştirilmiştir..

01-10-06, 23:02 Çevrimdışı	#2
Cezalı Üye ToutatiS Genel Mesajlar: 3.042 Teşekkür etti: 1.033 Teşekkür edildi: 1.371 RepForum Gücü: 0 Forum Puanı:8929	*Bilgilendirme için tşk.ler*

14-12-06, 01:06 Çevrimdışı	#3
Stajyer JvX Genel Mesajlar: 141 Teşekkür etti: 1 Teşekkür edildi: 14 RepForum Gücü: 5 Forum Puanı:12	saol bilgi için..........

21-04-07, 18:08 Çevrimdışı	#4
Rektör wolf_57 Genel Mesajlar: 6.578 Teşekkür etti: 5.390 Teşekkür edildi: 1.949 RepForum Gücü: 32 Forum Puanı:2939	paylaşım için teşekkurler

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder