VBA UserForm可见范围

时间:2016-03-08 13:32:47

标签: excel-vba layout userform vba excel

我有一个尺寸为(h * w)180 * 240的用户窗体。对于此用户窗体控件将由UserForm_Initialize()事件基于无数的用户输入添加,之后将调整用户窗体的大小。我遇到的问题是userform的可见范围小于实际范围。为了演示我已经使用以下代码插入了第二个用户表单:

Private Sub UserForm_Initialize()
    Dim ctrl As Control
    Dim i As Integer

    For i = 1 To 2
        Set ctrl = Me.Controls.Add("Forms.Label.1")
        With ctrl
            Debug.Print .Name
            .Caption = i
            .BorderStyle = 1
            .Height = 10
            .Width = 10
        End With
    Next i

    Set ctrl = Me.Controls("Label1")
    With ctrl
        .Top = 0
        .Left = 0
    End With

    Set ctrl = Me.Controls("Label2")
    With ctrl
        .Top = Me.Height - .Height
        .Left = Me.Width - .Width
    End With
End Sub

生成以下用户表单: USerform2 example 1

第一个标签恰好位于用户窗体的顶部和左边缘,但第二个标签无处可见,因为它不在用户窗体的可见部分。

如何让第二个标签准确位于用户窗体可见部分的底部和右边缘,如下图所示? (我编辑了第一张图片以显示我想要的内容) enter image description here

2 个答案:

答案 0 :(得分:0)

使用InsideHeightInsideWidth属性:

With ctrl
    .Top = Me.InsideHeight - .Height
    .Left = Me.InsideWidth - .Width
End With

答案 1 :(得分:0)

要更改InsideHeight / InsideWidth,您必须计算实际的高度/宽度。为此,您需要知道每个用户窗体边框的宽度和标题栏的高度。例如,在userform的初始化中的某处做

Static FormBorderSize as single, FormTitleSize as single
With Me
  FormBorderSize = (Me.Width-Me.InsideWidth)/2
  FormTitleSize = Me.Height-(Me.InsideHeight+Me.FormBorderSize)
End With

使用这两个值,您可以计算用户形式的整体高度/宽度,以获得所需的InsideHeight / InsideWidth。

您可以将这两个变量声明为私有或公共属性,或者如此处所示为静态。