- 7 Şub 2012
- 3
- 0
meraba arkadaşlar bu benim ilk vb 6 kod paylaşımım umarım beğenirsiniz
CD rom açıp kapatmak için 2 tane button yapmak yeterlidir
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click() ' Açmak
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub Command2_Click() ' Kapatmak
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
ve Bukadar yeterlidir
uah
CD rom açıp kapatmak için 2 tane button yapmak yeterlidir
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click() ' Açmak
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub Command2_Click() ' Kapatmak
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub
ve Bukadar yeterlidir
uah
Son düzenleme: