[عبدالله الدوسري]

Visual Basic 2010 
لا يدعم خاصية  ( Interpolated Strings ) وهي علامة الدولار


هذة الميزة ، تسمى ( Interpolated Strings ) ، بالعربي يعني ميزة تسمح للنص أن يكون مجزء على عدة اسطر، وتسمح بكتابة المتغيرات داخل النص بوضع متغيرات داخل قوسين من هذا النوع {}، مثل المتغير {ltr} كتب داخل قوسين ضمن السلسلة النصية

متوفرة فقط في Visual Basic 2015 فما فوق


إذا كنت لا تستطيع إستخدام هذة الخاصية ، استبل الكود التالي : ( الموجود لديك )

كود :

        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 

بهذا الكود : طريقة 1

كود :

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

طريقة 2

كود :

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