![]() |
|
| |||||||
|
| | Seçenekler |
|
#1
| ||||||
| ||||||
Vbasicte Cdroom Açmak-Kapamak *Detaylı Anlatım :)*Vbasicte Cdroom Açmak-Kapamak *Detaylı Anlatım * Evet arkadaşlar Şimdi Visual basic ile cdroom-açma ve kapama programı yapacaz. Formumuza 2 tane CommandButton [ Command1, Command2 ] ekliyoruz ve formumuza aşağıdaki kodları aynen yapıştırıyoruz. Kodların yanında açıklamaları var onları kaldırmanıza gerek yok unuttukça bakarsınız Kod: Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long ' Cdroomu açıp kapayabilmeniz için gereken windows API si Private Sub Form_Load() ' Form_load() komutu ile formun yani programımımız ilk açılışında yapılacak işlemleri yazıyoruz. Command1.Caption = "Cdroomu Aç" ' Command1 Butonunun İsmini Cdroomu Aç olarak değiştiriyoruz Command2.Caption = "Cdroomu Kapat" ' Command2 Butonunun İsmini Cdroomu Kapat olarak değiştiriyoruz End Sub Private Sub Command1_Click() ' Command1_Click() Komutuyla Command1 Butonuna Tıklayınca Yapılacak İşlemleri Yazıyoruz mciExecute ("Set CDAudio door Open") ' Cdroomu açma kodumuz End Sub Private Sub Command2_Click() ' Command2_Click() Komutuyla Command2 Butonuna Tıklayınca Yapılacak İşlemleri Yazıyoruz mciExecute ("Set CDAudio door closed") ' Cdroomu kapatma kodumuz End Sub Private Sub Form_Unload(Cancel As Integer) ' Form_Unload() komutu ile formun yani programımımız kapatılırken yapılacak işlemleri yazıyoruz. msgbox () ' Bu Komutlada program kapatılırken kullanıcıya mesaj verdiriyoruz. End Sub |
![]() |
| Arama Etiketleri: acmakkapamak, anlatim, cdroom, detayli, vbasicte |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konu Açanlar | Forum | Cevaplar | Güncel Mesajlar |
| Google adsense Detaylı bilgi | Coemback | Google Adsense | 0 | 13-08-2008 08:31 |
| WebMaster Olmak İsteyenler En Detaylı Şekilde Anlatım | leonskennedy | Forum siteleri | 4 | 11-07-2008 01:34 |
| Google Adsense Üyelik - Detaylı Anlatım | cunobag | Google Adsense | 7 | 21-06-2008 04:39 |
| Full Top 10 -- Detaylı Anlatım -- | viper | SMF | 15 | 12-03-2008 10:34 |
| Antarktika’nın detaylı haritası çıkarıldı | kadınca | Haberler | 0 | 23-12-2007 01:48 |
![]() | ![]() |