string - VB6 中的字体居中

Question

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

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

Answer 1

一种方法是拥有一个隐藏的图片框并按照您想要的方式设置该图片框的字体规范。

然后使用 PictureBox 的 TextHeight 和 TextWidth 方法进行测量。单位将采用图片框设置的任何比例模式。

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

将其居中

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

用您正在使用的任何对象替换显示区域。

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