VB中动态添加的控件如何使其大小随窗体大小改变而改变

Question

如题所述

Answer 1

在Form_Resize()事件里编写代码，改变控件的width和height属性追问

那些都有，关键是用withevents 动态添加的控件调整不了？窗体改变后，动态添加的控件大小没有变化。有时候居然还没有显示？

Answer 2

怎么会不行呢？你把下面的代码运行下试试。还不行的话只能把你的代码贴出来给大家看看了。
Option Explicit
Private WithEvents txt As TextBox
Private Sub Form_Load()
Set txt = Me.Controls.Add("vb.textbox", "text1")
txt.Visible = True
End Sub
Private Sub Form_Resize()
If Not txt Is Nothing Then
txt.Width = Me.Width / 2
End If
End Sub

Answer 3

'自己理解一下，加入一个command1
Private Sub Form_Load()
With Command1
.Left = 500
.Top = 500
End With
End Sub
Private Sub Form_Resize()
With Command1
.Width = Me.ScaleWidth - 2 * .Left
.Height = Me.ScaleHeight - 2 * .Top
End With
End Sub本回答被网友采纳