string - VB6中的居中字体

如何确定Arial Bold字体的文本字符串的长度，然后在VB6中居中？

我们没有使用“标签”或“图片框”将文本打印到屏幕上。我们正在即时调整文本大小，并允许用户根据自己的喜好缩放应用程序的大小。我们使用代码将文本写到屏幕上。

最佳答案

一种方法是拥有一个隐藏的图片框，然后按照所需的方式设置该图片框的字体规格。

然后使用PictureBox的TextHeight和TextWidth方法进行测量。单位将处于Picture Box设置为任何比例模式。

如果您直接在打印机或表格上打印，则只需先设置字体，然后进行测量即可。

居中

MyText = "Hello World"
<displayarea>.FontName = "Arial"
<displayarea>.FontSize = 14
<displayarea>.FontBold = True
TextWidth = <displayarea>.TextWidth(MyText)
TextLeftCoordinate = <displayarea>.ScaleLeft+<displayarea>.ScaleWidth/2-TextWidth/2
<displayarea>.CurrentX = TextLeftCoordinate
<displayarea>.Print MyText

用您正在使用的任何对象替换displayarea。

根据更新后的答案说明，隐藏的图片框建议不用于打印。它只是获得文本度量。但是，您将直接打印到表单，因此只需要使用上面的代码示例。

关于string - VB6中的居中字体，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/400732/