获取显示设备的名称及PNPDeviceID


程序代码:

    Imports System.Management
    Private Sub button1_Click(sender As Object, e As EventArgs)
        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_VideoController")
        For Each FlashDeviceObject As ManagementObject In searcher.[Get]()
            textBox1.Text = FlashDeviceObject("Name").ToString()
            textBox2.Text = FlashDeviceObject("PNPDeviceID").ToString()
        Next
    End Sub

注意:PNPDeviceID 不一定是固定的。



Change listview subitem fore color



欢迎关注微信公众账号ByCAD