有一个VB练习小程序,不明白有些语句的意思,想请教

来源:百度知道 编辑:UC知道 时间:2024/06/16 01:03:15
'小程序如下:
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
这个就是起始的坐标。。。。

是一个按钮的代码,只文本框中出现的文字及图片框中出现的图片!