如何让VB中的文字纵向排列?达人指教!感激不尽

Question

如何能让VB中的文字纵向排列,达人指教!感激不尽

Answer 1

这是一招：
Label1.AutoSize = True
Label1.Caption = "纵" & vbCrLf & "向" & vbCrLf & "排" & vbCrLf & "列" & vbCrLf

Answer 2

一个比较娱乐的做法：
创建一个窗体，放两个picturebox 一个按钮Option Explicit
  Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  Const srcopy = &HCC0020Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim h     As Integer
Dim w     As IntegerPicture1.Font.Name = "@宋体"
Picture1.Print "这是一个测试" & vbCrLf & "纵向排列"Picture2.BorderStyle = 0
Picture2.Width = Picture1.Height
Picture2.Height = Picture1.Width
h = Picture1.Height
w = Picture1.WidthPicture2.Picture = LoadPicture("")
For j = w To 0 Step -1
    For i = 0 To h Step 1
        BitBlt Picture2.hDC, i, j, 1, 1, Picture1.hDC, j, h - i, srcopy
    Next i
Next j
End SubPrivate Sub Form_Load()
    Me.ScaleMode = 3
    Picture1.Visible = False
    Picture1.AutoRedraw = True
    Picture1.BorderStyle = 0
End Sub