منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

[attachment=26942]

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

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

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

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

(27-08-21, 03:38 AM)حسن الجلب كتب : [ -> ]نفس الكلام طب ممكن تعملي مثال لو سمحت

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

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

شكرا لحضرتك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حسن الجلب

asemshahen5

ابو روضة

حسن الجلب

asemshahen5

حسن الجلب

ابو روضة

حسن الجلب