索引篇 共55页[1 2 3 4 5 6 7 >»<... 最后一页]

方法(T-T)

TextHeight

用以返回按 Form、PictureBox 或 Printer 的当前字体将被打印的文本字符串的高度。不支持命名参数。

语法：
object.TextHeight(string)

object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。
String 必需的。一个字符串表达式，它用以计算确定其高度的字符串。必须用括号包括该字符串表达式。

说明：
字符串高度是以对 object 有效的 ScaleMode 属性设置或通过 Scale 方法的坐标系统来表示的。使用 TextHeight 可以确定文本显示需要的垂直空间高度。返回的高度包括文本上下的正常前导空间，因此，可以使用该高度来计算和定位 object 内的多行文本。

如果 string 含有嵌入的回车返回符，TextHeight 将返回各行的累加高度，包括每行上下的前导空间。

例：TextHeight 方法被用来在一个窗体上使正文行垂直居中。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。

Private Sub Form_Click ()
Dim HalfWidth, HalfHeight, Msg ' 声明变量。
AutoRedraw = -1 ' 打开AutoRedraw。
BackColor = QBColor(4) ' 设置背景颜色。
ForeColor = QBColor(15) ' 设置前景颜色。
Msg = "Visual Basic" ' 创建信息。
FontSize = 48 ' 设置字体大小。
HalfWidth = TextWidth(Msg) / 2 ' 计算半宽。
HalfHeight = TextHeight(Msg) / 2 ' 计算半高。
CurrentX = ScaleWidth / 2 - HalfWidth ' 设置X。
CurrentY = ScaleHeight / 2 - HalfHeight ' 设置Y。
Print Msg ' 打印信息。
End Sub

TextWidth

用以返回按 Form，PictureBox 或 Printer 的当前字体被打印的文本字符串的宽度。不支持命名参数。

语法：
object.TextWidth(string)

object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。
String 必需的。一个字符串表达式，它用以计算确定其宽度的字符串。必须用括号包括该字符串表达式。

说明：
字符串宽度是以对 object 有效的 ScaleMode 属性设置或通过 Scale 方法的坐标系统来表示的。使用 TextWidth 可以确定文本显示需要的水平空间宽度。如果 string 含有嵌入的回车返回符，TextWidth 将返回最长行的宽度。

例：TextWidth 方法被用来在一个窗体上使正文行水平居中。要检验此示例，可将本例代码粘贴到一个窗体的声明部分，然后按 F5 键并单击该窗体。

Private Sub Form_Click ()
Dim HalfHeight, HalfWidth, Msg ' 声明变量。
AutoRedraw = -1 ' 打开AutoRedraw。
BackColor = QBColor(4) ' 设置背景颜色。
ForeColor = QBColor(15) ' 设置前景颜色。
Msg = "Visual Basic" ' 创建信息。
FontSize = 48 ' 设置字体大小。
HalfWidth = TextWidth(Msg) / 2 ' 计算半宽。
HalfHeight = TextHeight(Msg) / 2 ' 计算半高。
CurrentX = ScaleWidth / 2 - HalfWidth ' 设置 X。
CurrentY = ScaleHeight / 2 - HalfHeight ' 设置Y。
Print Msg ' 打印信息。
End Sub