歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using g As Graphics = Graphics.FromHwnd(Me.Handle)
            Dim xv = PhysicalToPixels(1, g.DpiX)
        End Using
    End Sub
    Private Function PhysicalToPixels(ByVal physicalSize As Single, ByVal dpi As Single) As Single
        Return physicalSize / 25.4 * dpi
    End Function
調用方式：
如果PictureBox的圖元大小為800,600

那轉換成毫米
x   =   PhysicalToPixels(800,g.DpiX)
y   =   PhysicalToPixels(600,g.Dpiy)