Erbaa Myo Öğrencisi

Bu site Erbaa Myo Bilgisayar Teknolojileri Programcılığı Bölümü Öğrencisi bye_Gökhan tarafından yapılmıştır...

Arama

En son konular

Cuma Kas. 07, 2008 1:28 am tarafından Birgül

» Listbox eklenti

Paz Kas. 02, 2008 3:34 pm tarafından Hacker

» Cd kapağını açıp kapamak

Paz Kas. 02, 2008 2:41 pm tarafından Hacker

» Boş Kodlara Son

Paz Kas. 02, 2008 2:36 pm tarafından Hacker

» Formu Ortalamak

Paz Kas. 02, 2008 2:33 pm tarafından Hacker

» Forma şifre

Paz Kas. 02, 2008 2:29 pm tarafından Hacker

Cd kapağını açıp kapamak

Yazar

Mesaj

Hacker
Admin

Mesaj Sayısı: 30
Yaş: 20
Kayıt tarihi: 17/10/08

Konu: Cd kapağını açıp kapamak Paz Kas. 02, 2008 3:17 pm

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() mciExecute ("Set CDAudio door Open") End Sub Private Sub Command2_Click() mciExecute ("Set CDAudio door closed") End Sub

1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:

Bu forumdaki mesajlara cevap veremezsiniz