Question

在vb中如何将标签控件中的字体改为垂直居中

Answer 1

在VB中可

• 设置Label控件的Alignment为2

• 调整字号大小到显示单个字，或者收小Label控件的宽度（Width）

• 代码方法（不推荐，只能用于一个标签）：

Private Function Vertical_Horizontal(ByVal nStr As String) As String
    Dim MyStr As String, i As Integer
    Static Vert As Boolean
    For i = 1 To Len(nStr)
        If i < Len(nStr) Then
            MyStr = MyStr + Mid$(nStr, i, 1) & vbCrLf
        Else
            MyStr = MyStr + Mid$(nStr, i, 1)
        End If
    Next
    Vertical_Horizontal = MyStr
    Vert = True
End Function
Private Sub Form_Load()
    Label1.AutoSize = True
    Label1.Caption = "VB如何让标签里的文字竖排"
    Label1.Caption = Vertical_Horizontal(Label1.Caption)
End Sub

•  使用标签控件的WordWrap属性设置True，调整字号大小以适应控件宽度。

  设置Label控件的Alignment为2。

  WordWrap 属性，返回或设置一个值，该值用来指示一个 AutoSize 属性设置为 True 的 Label
  控件，是否要进行水平或垂直展开以适合其 Caption 属性中指定的文本的要求。

  

Answer 2

在工程菜单下,部件加载Microsoft forms 2.0 object  library  选择它面的标签控件,将其下属性wordwrap设置成true ,就可以了,如图