在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

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

根据您更新的答案说明,隐藏的图片框建议不用于打印.它只能得到文本测量.但是,您直接打印到表单,所以您只需要使用上面的代码示例.