Winforms .NET：如何在每个 screen/device 上显示固定大小（以英寸为单位）的内容

Question

我需要显示 5 英寸高的图像（例如，您应该能够用物理尺子测量它），无论您使用的显示器尺寸、分辨率或 DPI 是多少。

我想我需要显示器的物理尺寸..但我不确定你能在 winforms 上得到它

有什么想法吗？

Answer 1

我找到了解决办法！我将它张贴在这里以防有人遇到同样的问题...

dim PixelsPerMMofScreen as double 

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
    Dim monitorSizesMM As List(Of PointF) = GetDesktopMonitors()
    If monitorSizesMM.Count > 0 Then
        PixelsPerMMofScreen = Screen.PrimaryScreen.Bounds.Height / monitorSizesMM(0).Y
    end if    

    Label1.Width = mm2px(50)
    Label1.Height = mm2px(50)
End Sub

Function mm2px(mm As Integer) As Integer
    Return mm * pixelsPerMMofScreen
End Function


Public Shared Function GetDesktopMonitors() As List(Of PointF)
    Dim screenSizeList As New List(Of PointF)()

    '''///////////////////////////////////////////////////////////////////////

    Try
        Dim searcher As New System.Management.ManagementObjectSearcher("root\WMI", "SELECT * FROM WmiMonitorID")

        For Each queryObj As ManagementObject In searcher.[Get]()
            Debug.WriteLine("-----------------------------------------------")
            Debug.WriteLine("WmiMonitorID instance")
            Debug.WriteLine("----------------")
            '   Console.WriteLine("Active: {0}", queryObj["Active"]);
            Debug.WriteLine("InstanceName: {0}", queryObj("InstanceName"))
            '   dynamic snid = queryObj["SerialNumberID"];
            '   Debug.WriteLine("SerialNumberID: (length) {0}", snid.Length);
            Debug.WriteLine("YearOfManufacture: {0}", queryObj("YearOfManufacture"))

            '
            '                foreach (PropertyData data in queryObj.Properties)
            '                {
            '                    Debug.WriteLine(data.Value.ToString());
            '                }
            '                


            Dim code As Object = queryObj("ProductCodeID")
            Dim pcid As String = ""
            For i As Integer = 0 To code.Length - 1
                'pcid = pcid +code[i].ToString("X4");
                pcid = pcid & [Char].ConvertFromUtf32(code(i))
            Next
            Debug.WriteLine(Convert.ToString("ProductCodeID: ") & pcid)


            Dim xSize As Integer = 0
            Dim ySize As Integer = 0
            Dim PNP As String = queryObj("InstanceName").ToString()
            PNP = PNP.Substring(0, PNP.Length - 2)
            ' remove _0
            If PNP IsNot Nothing AndAlso PNP.Length > 0 Then
                Dim displayKey As String = "SYSTEM\CurrentControlSet\Enum\"
                Dim strSubDevice As String = (displayKey & PNP) + "\" + "Device Parameters\"
                ' e.g.
                ' SYSTEM\CurrentControlSet\Enum\DISPLAY\LEN40A0&1144c54c&0&UID67568640\Device Parameters
                ' SYSTEM\CurrentControlSet\Enum\DISPLAY\LGD0335&1144c54c&0&12345678&00&02\Device Parameters
                '
                Debug.WriteLine(Convert.ToString("Register Path: ") & strSubDevice)

                Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey(strSubDevice, False)
                If regKey IsNot Nothing Then
                    If regKey.GetValueKind("edid") = RegistryValueKind.Binary Then
                        Debug.WriteLine("read edid")

                        Dim edid As Byte() = DirectCast(regKey.GetValue("edid"), Byte())

                        Const edid_x_size_in_mm As Integer = 21
                        Const edid_y_size_in_mm As Integer = 22
                        xSize = (CInt(edid(edid_x_size_in_mm)) * 10)
                        ySize = (CInt(edid(edid_y_size_in_mm)) * 10)
                        Debug.WriteLine("Screen size cx=" + xSize.ToString() + ", cy=" + ySize.ToString())
                    End If
                    regKey.Close()
                End If
            End If

            Debug.WriteLine("-----------------------------------------------")

            Dim pt As New PointF()
            pt.X = CSng(xSize)
            pt.Y = CSng(ySize)

            screenSizeList.Add(pt)
        Next
    Catch e As ManagementException
        Console.WriteLine("An error occurred while querying for WMI data: " + e.Message)
    End Try

    Return screenSizeList
End Function

Winforms .NET：如何在每个 screen/device 上显示固定大小（以英寸为单位）的内容

Winforms .NET: How to show something of a fixed size (in inches) on every screen/device

c#

winforms

screen