VB怎样让文本框随窗口变大

Question

我想让文本框随着窗口变大而变大，很简单吧！设置哪个属性或者用什么语句

Answer 1

这个要用算的，方法是：

1．比例式：当窗口大小发生改变的事件时，先取得目前的长宽；再取得改变后的长宽．求出改变比例，给回本文框做对应调整．

Option Explicit
Dim lx, ly As Long

Private Sub Form_Load()
With Me
lx = .Width
ly = .Height
End With
End Sub

Private Sub Form_Resize()
With Text1
.Width = .Width * (Me.Width / lx)
.Height = .Height * (Me.Height / ly)
lx = Me.Width
ly = Me.Height
End With
End Sub

2．固定式：如果要固定对边缘的距离，就要先取好对应值．

Option Explicit
Dim lx, ly As Long

Private Sub Form_Load()
With Text1
lx = Me.Width - (.Left + .Width)
ly = Me.Height - (.Top + .Height)
End With
End Sub

Private Sub Form_Resize()
With Text1
.Width = Me.Width - (lx + .Left)
.Height = Me.Height - (ly + .Top)
End With
End Sub

Answer 2

加入以下代码
Private Sub Form_Resize()
With Text1
Text1.Left = 0
Text1.Top = 100
Text1.Width = Form1.ScaleWidth
Text1.Height = Form1.ScaleHeight
End With
End Sub