Question

VB程序里面的Label中输入的字体咋个弄成竖起 就是VB6。0

Answer 1

如果只是一行字，就减小宽度，多行就没办法了

Answer 2

Private Sub Command1_Click() '竖起来
Dim a As String, t As String, i As Long
a = Me.Label1.Caption
For i = 1 To Len(a)
t = t + Mid(a, i, 1) + vbCrLf
Next i
Me.Label1.Caption = t
Me.Label1.Height = Len(a) * 180
End Sub

Private Sub Command2_Click() '横着放
Dim a As String
a = Me.Label1.Caption
a = Replace(a, vbCrLf, "")
With Me.Label1
.Caption = a
.Height = 180
.Width = 180 * Len(a)
End With
End Sub

Answer 3

有竖起来的字体呀。改字体就行了。

Answer 4

Private Sub Command2_Click()
Dim intI%
Dim i%
Dim strZ As String
intI = Len(Label2.Caption)
strZ = Label2.Caption
Label2.Caption = ""
For i = 1 To intI
Label2.Caption = Label2.Caption & Mid(strZ, i, 1) & Chr(13)
Next
End Sub

Answer 5

看你是怎么使用，如果的当列字下来，换行就好啦。如果是多列就可以设置属性里面可以找到