VB.NET 偵測字型的方法

當使用者在顯示中選取標準字型、大型字型與超大型字型時

導致我們的控制項字型也跟者變化

這時需要靠判斷來對字型調整判斷如下

Dim dpi As Integer = CType(Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop\WindowMetrics").GetValue("AppliedDPI"), Integer)

dpi 為取得該字型的解析度 96為標準字型往上就推算