Private Sub Command1_Click()
Label1.Caption ="  对于一个较长的或在动行时可能变化的标题,标签控" & _
"件提供了两种属性:Autosize和Wordwarp来改变控件尺寸以适应较长或较短"&_
"的标题"
End Sub窗体是有一个Label和Command,Label的起始Caption属性为“设计时标签的内容”标签的Autosize和Wordwarp属性设置为True时,按教材所示运行结果为:label控件的宽度应以窗体为限,高度以所显示内容的行数为限。但实际运行起来,label的宽度以原内容“设计时标签的内容”的宽度为准,也就是只有这八个字的宽度。我试着调整labal1.autosize=true在程序里的位置,没起作用。请问这是怎么回事

解决方案 »

  1.   

    把labal1.autosize=true
    Wordwarp=false就能实现超长显示了,不过太长了超过了窗体宽度,需要在其中进行处理:)
    Private Sub Command1_Click()
    Label1.Caption = "  对于一个较长的或在动行时可能变化的标题,标签控" & _
    "件提供了两种属性:Autosize和Wordwarp来改变控件尺寸以适应较长或较短" & _
    "的标题"
    End Sub
      

  2.   

    Option ExplicitPrivate Sub Command1_Click()
        Label1.AutoSize = True
        Label1.WordWrap = True
        
        Label1.Caption = "  对于一个较长的或在动行时可能变化的标题,标签控" & _
            "件提供了两种属性:Autosize和Wordwarp来改变控件尺寸以适应较长或较短" & _
            "的标题"
        Label1.Width = Width
    End Sub
      

  3.   

    谢谢狼兄,我想这样是否label1的宽度和窗体的宽度就相等了,也就是两侧没有侧边距了。
    不过,我会试试。