モニタ名取得

Monitor.vb

Imports ServiceLibrary

Module Module1

    Sub Main()

        Dim objPenent As New CEDID

        For i As UShort = 0 To 32
            Dim objChild As New CEDID.CEDID_V1_Block
            Dim tmp As uint32 = 1
            objChild.DsiplayDev.U32DeviceID = tmp << i

            If objPenent.GetEDIDBlock(objChild) Then
                Dim s As String = objChild.GetName
                MsgBox(s)
            End If
        Next

    End Sub

End Module