label里写的字,如何使字上下居中~~

同上~~

解决方案 »

  1.   

    Label 控件不可以上下居中，可以用 PictureBox 控件模拟。拖动一个 PictureBox 控件到工程用以下代码Private Sub Form_Load()
        Picture1.AutoRedraw = True
        Picture1.CurrentX = (Picture1.ScaleWidth - Picture1.TextWidth("要显示的文本")) / 2
        Picture1.CurrentY = (Picture1.ScaleHeight - Picture1.TextHeight("要显示的文本")) / 2
        Picture1.Print "要显示的文本"
    End Sub显示上下可以居中
      

  2.   

    我的大概思路是这样…………不过因为新装电脑没装VB，所以没测试过的………………dim lines as long,sNewLine as string
    lines=label1.height/textheight("要显示的文本")'label可以显示的总行数
    lines=(lines-ubound(split("要显示的文本",vbcrlf))) \ 2 '(总行数 - 文本行数) \ 2 = 应添加的换行符数
    snewline=string$(lines,vbcrlf)
    label1.caption=snewline & "要显示的文本"
      

  3.   

    label控件如果没有边框的话，干嘛要居中呢？居中也看不出来吧，呵呵。如果有边框的话1楼是一种解决办法，2楼的就不行了，因为label很可能只要求显示一行，有边框固定死了
      

  4.   

    LABEL居不居中有意义吗?因为边框是看不见的阿!!