بيرون آوردن سي دي

[Hamidguitarist]

سلام
نياز به كدي داشتم كه در دكمه ويژوال بيسيك با كليك روش سيدي درايو مشخص شده بيرون بياد و با يه دكمه ديگه بره داخل:لبخند:

با تشكر

[Slytherin]

سلام
نياز به كدي داشتم كه در دكمه ويژوال بيسيك با كليك روش سيدي درايو مشخص شده بيرون بياد و با يه دكمه ديگه بره داخل:لبخند:

با تشكر


'General
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()
'Open
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub

Private Sub Command2_Click()
'Close
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub

[Hamidguitarist]

دوست من مبتدي هستم خط 1 تا 5 رو در كجا وارد ميكنند؟

[ramzdar]

قبل از اینکه کدی رو وارد کنی اینا رو بزن

ضمیمه اول همین کده
ضمیمه دوم از طریق ماژوله

[Slytherin]

دوست من مبتدي هستم خط 1 تا 5 رو در كجا وارد ميكنند؟

در قسمت General و قبل از هر کدی آن ها را وارد کنید.