MeasureText()-尺寸F到英寸



我想我不知道该使用什么搜索词,这应该很简单。。。我用什么来确定绳子的宽度(英寸)。

        Dim sSize As System.Drawing.SizeF
        Dim fFont As New Font("Arial", 12)
        sSize = Me.CreateGraphics().MeasureString(txtAddr.Text, fFont)

这里的单位是IDE使用的任何单位。我不确定这是一个常数值,如果是的话,转换应该很简单。

无论如何,当使用指定字体以100%打印文本时,我想将返回的单位转换为英寸。我该怎么做?


谢谢汉斯!

        Dim boxGraphics As Graphics = txtAddr.CreateGraphics()
        Dim sSize As System.Drawing.SizeF = boxGraphics.MeasureString(txtAddr.Text, New Font("Arial", 12))
        Dim iInches As Single = sSize.Width / boxGraphics.DpiX

DYMO LabelWriter 450代码的开始为那些可能感兴趣的人:

        ' project ref to DYMO.Label.Framework .net 3.5/4
        ' Imports DYMO.Label.Framework
        Dim olabel As Label
        olabel = Label.Open("H:INFOFormsADMINDymo LabelsAPCDAddress.label")
        olabel.SetObjectText("ADDRESS", txtAddr.Text) ' case sensitive
        olabel.Print("\PC3090-117DYMO LabelWriter 450 Twin Turbo")
        MsgBox("Printed")

我将添加代码来处理可能对标签来说太大的地址文本,因此产生了OP。DYMO布局可以设置为缩小以适应文本,但在制作地址标签时这有实际限制。

From@HansPassant:除以图形.DpiX

   Dim boxGraphics As Graphics = txtAddr.CreateGraphics()
    Dim sSize As System.Drawing.SizeF = boxGraphics.MeasureString(txtAddr.Text, New Font("Arial", 12))
    Dim iInches As Single = sSize.Width / boxGraphics.DpiX

相关内容

  • 没有找到相关文章

最新更新