[حسن الجلب]

السلام عليكم ورحمه الله وبركاته
انا لقيت علي الموقع موضوع بيتكلم عن كود فتح وغلق الدفيدي
https://vb4arb.com/vb/showthread.php?tid=4295
ولكن جيت اجربه عندي حصل ايررور
انا استخدم فيجوال بيسك 2013 لو ممكن تكتب لي كود جديد

   

[asemshahen5]

PHP كود :

Public Class Form1
    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
    Public Sub OpenCDDriveDoor(ByVal State As Boolean)
        If State = True Then
            mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
        Else
            mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenCDDriveDoor(True) ''فتح 
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        OpenCDDriveDoor(False) ''اغلاق 
    End Sub
End Class 


جربته و عمل معي بشكل جيد و الحمد الله رب العالمين .

[ابو روضة]

ضع هذا الكود فى التصريحات بدل االأخر

كود :

<DllImport("winmm.dll")> _
   Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
   End Function

---

الكود كامل بعد إذن الاستاذ عاصم

كود :

Imports System.Runtime.InteropServices
Public Class Form1
   <DllImport("winmm.dll")> _
   Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       mciSendString("set CDAudio door open", vbNullString, 0, IntPtr.Zero)
       Me.Text = "تم الفتح"
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       mciSendString("set CDAudio door closed", vbNullString, 0, IntPtr.Zero)
       Me.Text = "تم الغلق"
   End Sub
End Class

[حسن الجلب]

جربتهم والله الاول بيعطيني نفس الخطأ والآخر مش شغال خالص

[asemshahen5]

جرب الاكواد في مشروع جديد إذا لم يعطك خطأ فقد يكون عندك شيئ في برنامجك اي في نفس النافذة يتعارض مع الاكواد .

[حسن الجلب]

نفس الكلام طب ممكن تعملي مثال لو سمحت

[ابو روضة]

نفس الكلام طب ممكن تعملي مثال لو سمحت

بعد إذن أخى عاصم .

قمت بعمل مشروع لك أخى , تفضّل , بالمرفقات

[حسن الجلب]

شكرا لحضرتك