如何自动调整窗体中标签的高度

dsyxr903

随之型号多少的变化，如何自动调整窗体的高度和窗体中标签的高度？
请老师不吝赐教。

一把小刀闯天下

初始化窗体过程中第一行插入：

Label1.AutoSize=True

鄂龙蒙

建议楼主用列表框控件吧

凌空一羽

拉大就是啦

chentonny

在属性中调整

dsyxr903

chentonny 发表于 2020-2-3 14:25
在属性中调整

该怎么样调整，请赐教

dsyxr903

楼上没有正解，请高手赐教

dsyxr903

经多次测试，代码如下：
Private Sub UserForm_Initialize()
rr = "   ???  ????" & vbCrLf & vbCrLf
a = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a1:b" & a)
For i = 2 To a
    rr = rr & i - 1 & "??" & arr(i, 1) & Left(" 1", 1) & arr(i, 2) & vbCrLf & vbCrLf
Next i
Label1 = rr
Label1.AutoSize = True
t = Label1.Height
UserForm1.Height = t + 60
End Sub

网海遨游

dsyxr903 发表于 2020-2-3 15:50
经多次测试，代码如下：
Private Sub UserForm_Initialize()
rr = "   ???  ????" & vbCrLf & vbCrLf

代码里面?号是干啥的?

环境所迫

网海遨游 发表于 2020-2-3 17:32
代码里面?号是干啥的?

Private Sub UserForm_Initialize()
rr = "    型号  数量" & vbCrLf & vbCrLf
a = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("a1:b" & a)
For i = 2 To a
    rr = rr & i - 1 & "、" & arr(i, 1) & Left(" 1", 1) & arr(i, 2) & vbCrLf & vbCrLf
Next i
Label1 = rr
Label1.AutoSize = True
t = Label1.Height
UserForm1.Height = t + 60
End Sub