Question

在VB中如何让文本框大小与窗体大小一样大

Answer 1

1、首先我们打开vb6.0软件进入到标准”工程1“界面，这些比较简单，就不一一上图了，在”form1“窗口上加载一个文本框”text1”如图。

2、文本框加载好以后，需要在右边属性界面设置它的高度和宽度。

3、点击属性界面的“height”设置文本框“text1”的高度为2000，再点击“width”设置文本框“text1”的宽度为2500如图。

4、然后再在文本框“text1”下面加载一个水平滚动条，然后设置水平滚动条的属性最大值“max“为2500”value“的值也为2500，最后更改水平滚动条的名称为”h1“如图。

5、然后把水平滚动条的最大位移量（largechange）设置为20最小位移量（smallchange）设置为2如图。

6、按照上面的方法，我们再把垂直滚动条加上，设置它的属性最大值为2000"value"值为2000，更改垂直水平条名称为v1，再设置垂直水平条最大位移量为20最小位移量为2如图。

7、然后是给这个工程编写程序：

PrivateSubh1_Change()

Text1.Width=h1.Value（文本框的宽度等于水平滚动条的value值）

EndSub

PrivateSubv1_Change()

Text1.Height=v1.Value(文本框的高度等于垂直滚动条的value值）

EndSub

8、即可随意调整文本框大小，拉水平滚动条文本框会宽度会随水平滚动条改变，拉垂直滚动条文本框高度会随垂直滚动条改变。

Answer 2

在窗体加载的事件里可以将文本框的长度和宽度设置为窗体的长度和宽度即可。

Answer 3

Private Sub Form_Load()
Text1.Top = Form1.ScaleTop
Text1.Left = Form1.ScaleLeft
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight
End Sub
'为了让窗体放大或缩小时也一同行动，还要在窗体的Resize事件中写同样的语句。
Private Sub Form_Resize()
Text1.Top = Form1.ScaleTop
Text1.Left = Form1.ScaleLeft
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight
End Sub