UC知道VB问题？print方法的精确定位的问题？
来源：百度知道 编辑：UC知道 时间：2024/05/07 12:04:51
请帮我解析一下面的步骤。我知道这些代码的结果是把文本输出到窗体的中间，但不明白语句的意思及作用。如$号，
CurrentX = ScaleWidth / 2 - textW里的Scale和 - 号什么作用。
Private Sub Form_Click()
Dim textW As Integer, textH As Integer
Print
Text$ = "计算机等级考试"
textW = TextWidth(Text) / 2
textH = TextHeight(Text) / 2
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
Print Text
End Sub
CurrentX = ScaleWidth / 2 - textW里的Scale和 - 号什么作用。
Private Sub Form_Click()
Dim textW As Integer, textH As Integer
Text$ = "计算机等级考试"
textW = TextWidth(Text) / 2
textH = TextHeight(Text) / 2
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
Print Text
End Sub
代码很简单,就是把输出的起始位置定位在,窗体的宽度的一半减去字符宽度的一半处,高度也是这样,这样输出的字符串就在窗体中间了
Private Sub Form_Click()
Dim textW As Integer, textH As Integer
Print
Text$ = "计算机等级考试"
textW = TextWidth(Text) / 2 '字符宽度一半
textH = TextHeight(Text) / 2 '字符高度的一半
CurrentX = ScaleWidth / 2 - textW '输出位置x轴
CurrentY = ScaleHeight / 2 - textH ,输出位置Y轴
Print Text'输出
End Sub