UC知道有一个VB练习小程序,不明白有些语句的意思,想请教
来源：百度知道 编辑：UC知道 时间：2024/06/16 06:33:08
'小程序如下:
Private Sub Command1_Click()
Dim a As String, textW As Integer, textH As Integer
FontName = "宋体"
FontSize = 30
ForeColor = QBColor(15)
BackColor = QBColor(8)
a = "风光无限好"
textW = TextWidth(a) / 2
textH = (TextHeight(a) + Command1.Height) / 2
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
Print a
End Sub
程序结束.
疑问：
一、textH = (TextHeight(a) + Command1.Height) / 2 这句是指文本框的高度吧?文本框的高度=(文字的高度+命令按钮的高度)/2，是不是这个意思？如果是，那这文本和按钮不是摆不下了吗？如果不是，那是什么意思？
二、CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
这应该是弹出文本框的座标吧？这个位置的起点是哪里？止点是哪里？我也看不明白。
初学VB，开始做练习，书上都没有必要的解释，问题不少。望行家指点。谢谢！
Private Sub Command1_Click()
Dim a As String, textW As Integer, textH As Integer
FontName = "宋体"
FontSize = 30
ForeColor = QBColor(15)
BackColor = QBColor(8)
a = "风光无限好"
textW = TextWidth(a) / 2
textH = (TextHeight(a) + Command1.Height) / 2
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
Print a
End Sub
程序结束.
疑问：
一、textH = (TextHeight(a) + Command1.Height) / 2 这句是指文本框的高度吧?文本框的高度=(文字的高度+命令按钮的高度)/2，是不是这个意思？如果是，那这文本和按钮不是摆不下了吗？如果不是，那是什么意思？
二、CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
这应该是弹出文本框的座标吧？这个位置的起点是哪里？止点是哪里？我也看不明白。
初学VB，开始做练习，书上都没有必要的解释，问题不少。望行家指点。谢谢！
第一个问题textH不是表示文本框高度，它只是一个普通变量，这个变量的值是＝文本高+按钮的高度，再除2。文本和按钮摆不下？怎么会摆不下呢？按钮的位置可以放在窗体的任何位置，都不会影响本程序的结果，但是如果按钮在窗体正中间则可能覆盖住将要输出的文本！
第二个问题：
CurrentX = ScaleWidth / 2 - textW 这句表示输出文本的x位置在窗体正中
currenty这句表示就不一定表示输出的文本在y方向的正中，因为他的位置和按钮的高度有关的，你把按钮的高度调整大一点，那么在y方向输出的位置就靠近窗体上部一些！
第一个问题textH不是表示文本框高度，它只是一个普通变量，这个变量的值是＝文本高+按钮的高度，再除2。文本和按钮摆不下？怎么会摆不下呢？按钮的位置可以放在窗体的任何位置，都不会影响本程序的结果，但是如果按钮在窗体正中间则可能覆盖住将要输出的文本！
第二个问题：
CurrentX = ScaleWidth / 2 - textW 这句表示输出文本的x位置在窗体正中
currenty这句表示就不一定表示输出的文本在y方向的正中，因为他的位置和按钮的高度有关的，你把按钮的高度调整大一点，那么在y方向输出的位置就靠近窗体上部一些！
CurrentX = ScaleWidth / 2 - textW
CurrentY = ScaleHeight / 2 - textH
这个就是起始的坐标。。。。
是一个按钮的代码，只文本框中出现的文字及图片框中出现的图片！