VB中利用API获取屏幕DPI值和1像素等于多少缇

Question

如题所述

Answer 1

无须API，VB本身的功能就能完成：

Private Sub Form_Click() '点击窗体运行
Dim dpi_x As Single, dpi_y As Single, px_twip As Single
dpi_x = Me.ScaleX(Screen.Width, 1, 3) / Me.ScaleX(Screen.Width, 1, 5)
dpi_y = Me.ScaleY(Screen.Height, 1, 3) / Me.ScaleY(Screen.Height, 1, 5)
px_twip = Me.ScaleX(1, 3, 1)
Print "DPI_X = " & dpi_x
Print "DPI_Y = " & dpi_y
Print "1像素 = " & px_twip & "缇"
End Sub