vb6中的文本宽度

要检查文本宽度，如何设置缩放模式

是吗-

或

哪一个有效

我用下面的代码测试它

Private Sub Command1_Click()
Dim xStr As String
    xStr = "W"
    With frmLabel
        .Font.Name = "Arial"
        .Font.Size = 10
        'Debug.Print .ScaleMode = 1

        '0 to 7
        Me.ScaleMode = 7
        Debug.Print .TextWidth(xStr) ' TextWidth = 435
        .Font.Size = 14
        Debug.Print .TextWidth(xStr) ' TextWidth = 645
    End With
End Sub

我如何定义度量或单位的类型？我在找英寸

---

谢谢。

在表单上下文中，UserControl或UserDocument“Me”已经是名称空间的一部分，因此只需使用如下内容：

ScaleMode = vbInches

如果愿意，您可以使用冗余的过度限定，如：

Me.ScaleMode = vbInches

由于您无法在PictureBox中编写代码（因此没有本地“我”），因此您是在其容器的上下文中编写的，因此要设置

picScrollbox的属性，您需要编写：

picScrollbox.ScaleMode = vbInches

打印机对象也是如此

但是请避免使用幻数，并使用内在的Enum
ScaleModeConstants
，它可以为下一个人提供更易于阅读的符号名称。
在表单、用户控件或用户文档的上下文中，“Me”已经是名称空间的一部分，因此只需使用以下内容：

ScaleMode = vbInches

Me.Font.Name = "Arial"
Me.Font.Size = 10
Me.ScaleMode = vbInch ' 5

如果愿意，您可以使用冗余的过度限定，如：

Me.ScaleMode = vbInches

由于您无法在PictureBox中编写代码（因此没有本地“我”），因此您是在其容器的上下文中编写的，因此要设置
picScrollbox的属性，您需要编写：

picScrollbox.ScaleMode = vbInches

打印机对象也是如此

但请避免使用神奇的数字，并使用内在的Enum
ScaleModeConstants
，它为下一位读者提供了更容易阅读的符号名称

Me.Font.Name = "Arial"
Me.Font.Size = 10
Me.ScaleMode = vbInch ' 5

TextWidth返回使用表单当前字体打印文本时的宽度。您没有在问题的代码中设置表单的字体。设置Me.Font

该值以表单的ScaleMode属性确定的单位返回。ScaleMode的可能值在文档中

下次为什么不试试上下文相关的帮助呢？在VB6 IDE代码视图中，将光标放在ScaleMode中，然后按F1键直接转到文档中的ScaleMode主题

TextWidth返回使用表单当前字体打印文本时的宽度。您没有在问题的代码中设置表单的字体。设置Me.Font

该值以表单的ScaleMode属性确定的单位返回。ScaleMode的可能值在文档中

下次为什么不试试上下文相关的帮助呢？在VB6 IDE代码视图中，将光标放在ScaleMode中，然后按F1键直接转到文档中的ScaleMode主题。
这是吗？这是吗？