+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 (/showthread.php?tid=47820)
أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 - AmeenRashed - 18-01-24
السلام عليكم
تم استخدام هذا الكود من أحد المبرمجين على فيجوال بيسك 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
RE: أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 - Taha Okla - 18-01-24
عليكم السلام ورحمة الله وبركاته
عليك أولا إضافة المكبة : 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 FunctionRE: أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 - AmeenRashed - 19-01-24
تمام أخى طه
لكن _ أنا _ لا أريد البديل أو التعديل على الكود
بل سؤالى : كيف تم استخدام هذا الكود دون أخطاء ؟ .. من المؤكد أن هناك روتينات فرعية تخدمه .
RE: أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 - Taha Okla - 19-01-24
لغات برمجة الفيجول استديو ليست لغات ثابتة
بل متنطورة فكل اصدار له ميزاته واختصاراته
وهذا غير موجود في الاصدارات القديمة
فلا بد من تعديله ليناسب الاصدارات القديمة..
أقرأ الكود جيداً : هو نفسه ولم يختلف فيه شيء..
سوى طريقة الاختصار..