VB6：如何切换到像素而不是缇

Question

我正在重构一个 VB6 应用程序。任何控件的测量值均以缇为单位。 VB6 中是否可以设置控件使用像素而不是缇？谢谢

Answer 1

我当时广泛使用了scalemode，我只能说不要打扰。它没有得到适当的普遍支持，这意味着无论如何您最终都会将某些东西转换回缇。

VB6 是基于缇的，不管你喜不喜欢，所以如果你尝试做基于像素的事情，你将一直与当前的情况作斗争。

幸运的是，VB.net 最终结束了这一切，并且完全基于像素，您仍然可以更改视口缩放，但 .net 似乎比 Vb6 处理得更好。

Answer 2

dim iInPixels as integer
dim iInTwips as integer

iInPixels = 200
iInTwips  = iInPixels * Screen.TwipsPerPixelX
iInPixels = iInTwips / Screen.TwipsPerPixelX

正如 @drventure 所说，您将全程逆流而行，但只要您可以将逻辑隔离到一个点，情况实际上并没有那么糟糕。

Answer 3

ScaleMode 属性有帮助吗？

返回或设置一个值，该值指示使用图形方法或定位控件时对象坐标的测量单位。

Answer 4

Microsoft 知识库文章：如何将缇转换为像素

上面的链接适用于 Access VBA，但可以使用也可以用VB6。我不知道本机 VB6 功能可以满足您的需要。据我所知，ScaleMode 不适用于您想要做的事情（尽管事实上它似乎是为了解决您的确切问题而存在的）。

编辑：正如我所想，ScaleMode 并没有解决我当时遇到的我问题。根据您想要做什么，它可能会很好地解决您的问题。我当然会首先尝试，因为它会生成更简单、更易于维护的代码。

Answer 5

我就是这样做的。
我从 Form1.Picture.Width 获得了缇，通过使用 Pixelize 进行除法，您可以在 VB6 脚本中的任何地方获得像素。
在一般声明中
Const Pixelize As Double = 26.45833333

Command3.Caption = "像素：" & Int(Form1.Picture.Width / 像素化) & “x”& Int(Form1.Picture.Height / Pixelize)

对我有用，也许你会有所帮助。