Visual basic ufak bi yardım

[zorbaa]

arkdaslar simdi formumda 2 tane buton var biri cikart biri tak isimli olmak üzere kodlar aşağidaki gibi
şimdi ben 2 buton degilde tek buton yardımı ile cikartip takmak istiyorum kendim yaptım ama sadece bikere cikartıp takıyo ondan sonra döngü duruyo.



1)Cd-Rom u açıp kapatmak

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

 

[silaz]

General-Declaration kısmında Public değimi ile bir sabit tanımla. bu tanıma ilk değer olarak örneğin 'kapalı' değerini ata. butona tıkladığında bu durumu kontrol ettir. kapalı ise cd yi aç ve açma kodunun sonunda (aynı şart bloğu içerisinde) tanımladığın değişkene 'açık' değerini ata. diğer durumdada tersi.

 

[zorbaa]

saol com tesekkur