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

نسخة كاملة : كود فتح وغلق الدفيدي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمه الله وبركاته
انا لقيت علي الموقع موضوع بيتكلم عن كود فتح وغلق الدفيدي
http://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 StringByVal lpstrReturnString As String_
    ByVal uReturnLength 
As LongByVal 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 ObjectAs EventArgsHandles Button1.Click
        OpenCDDriveDoor
(True''فتح 
    End Sub
    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles 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)حسن الجلب كتب : [ -> ]نفس الكلام طب ممكن تعملي مثال لو سمحت

بعد إذن أخى عاصم .
قمت بعمل مشروع لك أخى , تفضّل , بالمرفقات

شكرا لحضرتك