问一个Lable高度设置的问题

Question

While Not rs.EOF
        Label1.Caption = Label1.Caption & rs!Re& vbCrLf
        rs.MoveNext
    Wend
    每次查询出来额Re字段长度不一,所以需要Lable自动改变Height来适应字段长度的变化,请问改怎样做到?

Answer 1

把它的AutoSize属性设置为True即可

Answer 2

faysky2() 可能理解错了,我不是要它的长度变化,而是高度变化
While Not rs.EOF
     Label1.Caption = Label1.Caption & rs!Re& vbCrLf
     rs.MoveNext
Wend
Lable的长度是固定的,要变的是高度

Answer 3

Label1.Caption = Label1.Caption & rs!Re & vbCrLf
------------------------------
注意后面的 vbCrlf不能去掉，否则，就变成你所说的情况了