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

يوجد خطأ فى كود التفعيل مش عارف احله ازاى
Error 1 Class 'randa1.managementobject' cannot be indexed because it has no default property. D:\randa1\randa1\Class3.vb 13 23 randa1

ايه معنى الرسالة دى وتتحل ازاى

Imports System.Management
Imports System.Text
Imports System.Security.Cryptography

Public Class Class3

    Public Shared Function sec() As String
        Dim val As String = ""
        Dim ma As New ManagementObjectSearcher(" select * from win32_Diskdrive")
        Try
            For Each mo As managementobject In ma.get()
                val = mo("serialnumber").ToString
                Return val
            Next
        Catch ex As ManagementException
            Return ""
        End Try
        Return val
    End Function


    Private Shared Function mo(ByVal p1 As String) As Object
        Throw New NotImplementedException
    End Function

End Class

فقط قم بحذف هذا الكود

وفقط اجعل الكلاس يحتوى على

الكود لم يعمل

(25-04-19, 11:56 AM)احمد خطاب كتب : [ -> ]الكود لم يعمل

بخصوص الكود التالى

هو بالفعل صديقى العزيز يعمل عندى على مشروع اخر اما هذا المشروع لايعمل

صديقى العزيز اشكرك جداااااااااااااااااااااااااا الكود نجح