تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التعديل على الكود لإظهاره في ليست فيو
#1
السلام عليكم ..

أخواني بارك الله فيكم ..

هذا الكود يستخرج أسماء التعاريف في إدارة الأجهزة وتحديداً التعاريف اللي تواجه مشاكل إما معطلة أو لم تُعرف بالاصل

كود :
Public Shared Function GetNonWorkingDevices()
        Dim pc As String = "." 'local
        Dim wmi As Object = GetObject("winmgmts:\\" & pc & "\root\cimv2")
        Dim devices As Object = wmi.ExecQuery("Select * from Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
        For Each d As Object In devices
            d.name()

        Next
    End Function

طبعاً أبي أعدل على الكود عشان يظهر لي أسماء التعاريف في ليست فيو

وجزاكم الله خير ..
الرد }}}}
تم الشكر بواسطة:
#2
غير d.name إلى

كود :
ListView1.Items.Add(d.name())
الرد }}}}
تم الشكر بواسطة:
#3
أخوي أحمد الله يجزاك خير ..

جربت الكود وللأسف ما ضبط ..

وهذي بعض التغييرات في الكود ولاكن المشكلة كل ما اشغل السورس يجي خطأ : لم يتم تعيين مرجع كائن لمثيل كائن وهذا الكود

كود :
Public Shared Function GetNonWorkingDevices()
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")

            For Each queryObj As ManagementObject In searcher.Get()

                Dim list As ListViewItem

                list.ListView.Items.Add(queryObj("Name"))
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Function
الرد }}}}
تم الشكر بواسطة:
#4
كود :
Imports System.Management

Public Class Form1

    Public Sub GetNonWorkingDevices()
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
            For Each queryObj As ManagementObject In searcher.Get()
                Dim LVI As New ListViewItem(New String() {queryObj("Name")})
                ListView1.Items.Add(LVI)
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetNonWorkingDevices()
    End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#5
Aly El-Haddad كتب :
كود :
Imports System.Management

Public Class Form1

    Public Sub GetNonWorkingDevices()
        Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0")
            For Each queryObj As ManagementObject In searcher.Get()
                Dim LVI As New ListViewItem(New String() {queryObj("Name")})
                ListView1.Items.Add(LVI)
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetNonWorkingDevices()
    End Sub
End Class

بيض الله وجهك يا غالي وما قصرت والكود اشتغل

والشكر موصول لكن من ساهم بحل مشكلتي ..

بارك الله فيكم ..
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 51 21-02-17, 10:58 AM
آخر رد: boofa2015
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 115 20-02-17, 02:13 AM
آخر رد: khodor1985
  [كود] طلب التعديل على كود If Clipboard.GetText احمد مهران 8 154 18-02-17, 08:23 AM
آخر رد: أسامة السالمي
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 79 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 367 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 59 12-02-17, 08:06 PM
آخر رد: مساعدة
  منع المستخدم من التعديل على أكثر من معلومة في نفس الوقت اليوم مبتدئة وغداً محترفة 5 110 07-02-17, 08:35 PM
آخر رد: Amir_alzubidy
  [VB.NET] ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو الماجيك مسعد 10 227 31-01-17, 07:03 AM
آخر رد: الماجيك مسعد
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 74 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  [VB.NET] كيفية فلترة ليست فيو vb net Multiple Column Filter listview الماجيك مسعد 12 265 27-01-17, 05:34 AM
آخر رد: الماجيك مسعد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم