Question

label如何显示竖排字符

Answer 1

VB6.0让LABEL里的文字竖排方法：

• 设置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