23-07-13, 04:29 PM
الصفحات : 1 2
23-07-13, 04:56 PM
[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
ضع زرين بوتون واحد لفتح السي دي والثاني لغلقه[/COLOR]
ضع زرين بوتون واحد لفتح السي دي والثاني لغلقه[/COLOR]
كود :
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 OpenCD()
Dim lRet As Long
lRet = mciSendString("set CDAudio door open", "returnstring", 127, 0)
End Sub
Private Sub CloseCD()
Dim lRet As Long
lRet = mciSendString("set CDAudio door closed", "returnstring", 127, 0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenCD()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CloseCD()
End Sub23-07-13, 04:58 PM
شكراً لك ....
23-07-13, 04:59 PM
PHP كود :
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 cmdOpen_Click()
'Open the CD Drive
mciSendString("set CDAudio door open", 0, 127, 0)
End Sub
23-07-13, 05:00 PM
لاكن اتمنا ان تفصل الكودات للني لم افهمه
23-07-13, 05:04 PM
اخي ابراهيم الكود لم يعمل معي
23-07-13, 05:08 PM
اخي الطريقة بسيطه أولآ ضع هذه الدالة
ولفتح السي دي ضع هذا الكود في زر بوتون
كود :
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ولفتح السي دي ضع هذا الكود في زر بوتون
كود :
Dim o As Long = mciSendString("set CDAudio door open", "sting", 127, 0)23-07-13, 05:37 PM
[ATTACH=CONFIG]3449[/ATTACH]
عندم اريد اجرب البرنامج
عندم اريد اجرب البرنامج
23-07-13, 07:24 PM
اخي هنا قسم فيجول بيسك دوت نت vb.net وليس فيجول 6 !! مثالي على الدوت نت :confused:
23-07-13, 07:35 PM
اترك عندك الفيجوال 6 وتعال للدوت نت
الناس تطورو وانتون للحين
الناس تطورو وانتون للحين
الصفحات : 1 2