منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10

السلام عليكم

تم استخدام هذا الكود من أحد المبرمجين على فيجوال بيسك 10 إن لم يكن إصدار أقدم

وعندما حاولت اقتباس هذا الكود لاستخدامه ظهر لى أربعة أخطاء كما هو ظاهر فى الصورة

المطلوب تكرماً إيضاح ما هى المكتبات الناقصة أو المتغيرات المطلوبة لتختفى هذه الأخطاء

شكراً لسعة صدركم

PHP كود :

Imports System.Management

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    End Sub

    Public Shared Function GetVolumeSerial(ByVal ltr As Object) As String
        Dim obj2 As New ManagementObject($"win32_logicaldisk.deviceid="{ltr}:"")
        obj2.Get()
        Return obj2("VolumeSerialNumber").ToString
    End Function


End Class 

عليكم السلام ورحمة الله وبركاته

عليك أولا إضافة المكبة : System.Management

ثم استيرادها
-

كود :

Imports System.Management

- الكود بعد التصحيح :

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        MsgBox(GetVolumeSerial("C"))

    End Sub

    Public Shared Function GetVolumeSerial(ByVal ltr As String) As String

        Dim obj2 As ManagementObject = New ManagementObject("win32_logicaldisk.deviceid='" & ltr & ":'")

        obj2.Get()

        Return obj2("VolumeSerialNumber").ToString

    End Function

تمام أخى طه
لكن _ أنا _ لا أريد البديل أو التعديل على الكود
بل سؤالى : كيف تم استخدام هذا الكود دون أخطاء ؟ .. من المؤكد أن هناك روتينات فرعية تخدمه .

لغات برمجة الفيجول استديو ليست لغات ثابتة
بل متنطورة فكل اصدار له ميزاته واختصاراته
وهذا غير موجود في الاصدارات القديمة
فلا بد من تعديله ليناسب الاصدارات القديمة..

أقرأ الكود جيداً : هو نفسه ولم يختلف فيه شيء..
سوى طريقة الاختصار..

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

AmeenRashed

Taha Okla

AmeenRashed

Taha Okla