如何设置窗体的大小根据内容来调整

lms008008

在一个子窗体中，数据从表中获得，但是表的数据是动态的，有1个到12个字段不等。所以，我想根据查到的字段多少来调整子窗体的宽度，使显示效果更好。
请问，各位大神怎样可以实现这样的 效果呢？

lms008008

类似这样的代码可以实现： Private Sub Command0_Click()
   
    If Me.Command0.Caption = "扩展" Then
        Me.InsideHeight = Me.InsideHeight + 1000
        Me.主体.Height = Me.主体.Height + 1000
        Me.Command0.Top = Me.Command0.Top + 1000
        Me.Command0.Caption = "收起"
    Else
        Me.主体.Height = Me.主体.Height - 1000
        Me.Command0.Top = Me.Command0.Top - 1000
        Me.InsideHeight = Me.InsideHeight - 1000
        Me.Command0.Caption = "扩展"
    End If
   
End Sub
想问，有没更简单方便的方法来实现？

lms008008

wzl8007 发表于 2016-10-26 10:56
有一段代码，丰富一下，就能满足要求，它能自动根据子窗体字段的多少，自动调节子窗体控件的宽度，使之正好 ...

谢谢你的回答，学习了。