vb程序问题。解释一下下面的语句!!谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/26 01:30:08
Private Sub HScroll1_Change()
Me.Text1.Height = Me.HScroll1.Value
Me.Text1.Width = Me.Text1.Height * 1.2
End Sub
Me在其中起的作用是什么？

Me.Text1.Height 当前窗体Text1的高
Me.HScroll1.Value 当前窗体HScroll1滚动条的value值
Me.Text1.Width 当前窗体Text1的宽
Me.Text1.Height * 1.2 当前窗体Text1的高乘1.2

作用：
当滚动条变化时，Text1文本框的高等于HScroll1滚动条value的值，而Text1文本框的宽等于Text1文本框的高的1.2倍

补充：

Me 就是自己，指你当前那个窗体，加.Text就是当前窗体内的Text

如果写成Form2.Text1就是From2那个窗体内的Text1

如果你的代码本来就是写在你所需要的窗体内，那你不要me.也可以。

这只是设置一个TextBox的大小

这段语句的意思是：当滚动条发生change事件时，当前窗体上的文本框的高度等于当前窗体上滚动条的value值，当前窗体上的文本框的宽度等于窗体高的1.2倍

设置Me.Text1的高为Me.HScroll1的值，Me.Text1的宽是高的1.2倍