如何求窗体的物理尺寸，长多少mm，宽多少mm？

无精度超级高的办法

一般来说，系统 还是 比较准确的，按缇计算吧， 1厘米=567缇

缇是屏幕的一种量度单位，等于 1/20 磅。缇是独立于屏幕的单位，可确保在所有显示系统中，屏幕应用程序中的屏幕元素的位置和比例都相同。逻辑上一英寸约为 1440 缇，一厘米为 567 缇 ( 在显示时，屏幕项目的长度是用英寸或厘米测量的 )。

好像都不对

Private Sub Form_Load()
Debug.Print Form1.Width / Screen.TwipsPerPixelX / 567
Debug.Print Form1.Height / Screen.TwipsPerPixelY / 567
Debug.Print Form1.Width * Screen.TwipsPerPixelX / 567
Debug.Print Form1.Height * Screen.TwipsPerPixelY / 567
Debug.Print Form1.Width / 567
Debug.Print Form1.Height / 567
End Sub

我试了一下，我这个显示器上的最后二个是正确的，
误差。。。。。。
计算出来的是 8.46，量出来的约 8.6

产生误差的原因
一般来说，24的显示器是 1920 的分辨率，但现在23.5 的也做成这个分辨率，导致 像素变小了。产生了这个误差。

而这个 TwipsPerPixelX  属性，是 缇转像素 用的。
windows 标准分辨率，不缩放的情况，这个属性值是 15 。

拿尺子直接在屏幕上量大约是5X7的。差的有点多。
放在WORD中看了一下尺寸数值差不多。

[此贴子已经被作者于2022-9-2 13:17编辑过]

试试API GetDeviceCaps 有无效，用电视显示好象无效。
GetDeviceCaps(hdc,LOGPIXELSX);//每英寸水平逻辑像素数
GetDeviceCaps(hdc,LOGPIXELSY);//每英寸垂直逻辑像素数
GetDeviceCaps(hdc,HORZRES);//水平像素总数
GetDeviceCaps(hdc,VERTRES);//垂直像素总数
GetDeviceCaps(hdc,HORZSIZE);//物理屏幕的宽度，以毫米为单位
GetDeviceCaps(hdc,VERTSIZE);//物理屏幕的高度，以毫米为单位

三者的关系通常满足：
HORZSIZE = 25.4 * HORZRES/LOGPIXELSX
VERTSIZE = 25.4 * VERTRES/LOGPIXELSY

这种按 缇，像素，在 系统 和 WORD 里，都是按标准像素大小的尺寸 进行换算，
如 19寸宽，1440*900
   22寸宽，1600*1050
   24寸宽，1920*1080

但现在很多显示器
    20寸宽，1600*900
    21.5寸的，也做 1600*1050
    23.5 就做到 1920*1080
    27寸的，有做 1920*1080 ，也有做2K 的，
像素大小都不一样，但系统还是按每个像素 15缇去计算，自然不准了。

现在搞不懂哪个是标准像素大小了。

WORD里也是按像素大小进行换算，自然与VB里换算出来的是一样的。

像素点越高，量出来的数值就越偏小，反之就越偏大

对于印刷来说，每种机子有一个DPI，这个直接告诉系统的，系统按这个DPI去计算每个点的大小，然后就印出来比较准了。
显示器却不告诉系统 DPI ，系统只能按默认值 去用。显示器默认是 DPI 是 96 。但每种显示器的DPI不相同。
记错了，针式打印机是 72

[此贴子已经被作者于2022-9-2 18:59编辑过]

不管是
hdc
me.hdc
form1.hdc
都是整个屏幕的hdc，无法得到窗体form1的hdc，获取不到窗体form1的物理尺寸。

[此贴子已经被作者于2022-9-2 18:16编辑过]

Me.ScaleX(Me.Width, vbTwips, vbMillimeters)
Me.ScaleY(Me.Height, vbTwips, vbMillimeters)

这样不行吗？还是我把问题想简单了？

结果有点区别。
这下好了，不知哪个更准一些了？