Question

怎样让label控件中的文字竖排

Answer 1

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

1. 设置Label控件的Alignment为2

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

   
   

2. 代码方法：

   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