Sürücü kapağı açma kodları nasıl kullanırım

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

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

Böyle bir kod var. Visual basicde bunları nasıl kullanabilirim. eğer buton kullanmayı öğrenebilirsem basit programlar yapabilirim diye düşündüm böyle birşeyi kurcalamaya karar verdim. Yeni proje açıyorum. Hesap makinesinin çerçevesi kadar bir çerçeve ekliyor. Ama onun üstüne nasıl buton yerleştireceğimi bilmiyorum. açıklarsanız sevinirim.

Teşekkürler.

solda button var
onu ağ taraftaki boşluğa sürükle
eklediğin butonun üstüne 2 kere tıkla
açılan sayfaya kodları kopyalar

Peki hocam nasıl exe olarak kaydedebilirim. Butona kodları yazdım kaydederken template olarak kaydediyor. Birde debug deyip kodlarda hata buluyor sanırım. Export vs. yok anlamadım :(

project in içinde mace yada make project olması lazım onu kullanarak exe ye dönüştürebilirsin tam emin değilim project menüsünün içinde mi diye ama make diye ibare araman lazım

Zaten Exe Olarak Var...
Belgelerim/Visual Studio 2008/Projects/Projeİsmi/ProjeKlasörü/Bin/Debug/Projeismi.exe
Arkadaşım Böyle Takip Edersen Exe Bulursun...<

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

Üstteki kodu kod kısmında en üstteki "Public Class Form1" yazısının altına kopyalayacaksın. Sonra dizayn kısmına gelip eklediğin butona çift tıkladıktan sonra şu kodu yazıcaksın:
mciExecute ("Set CDAudio door Open")

Sonra bir tane daha buton ekle, çift tıklayıp şu kodu yaz:
mciExecute ("Set CDAudio door closed")

Böylece birinci buton cd kapağını açıcak, diğeride kapatıcak. Exe halinede corpixx in dediği yerden ulaşabilirsin.