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

[meisanbao]

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

[VBToy]

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

[cs_oldhorse]

：）上面这个好玩~

[脆皮大雪糕]

一个比较娱乐的做法：
创建一个窗体，放两个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 = &HCC0020

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim h As Integer
Dim w As Integer



Picture1.Font.Name = "@宋体"
Picture1.Print "这是一个测试" & vbCrLf & "纵向排列"

Picture2.BorderStyle = 0
Picture2.Width = Picture1.Height
Picture2.Height = Picture1.Width
h = Picture1.Height
w = Picture1.Width

Picture2.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 Sub

Private Sub Form_Load()
Me.ScaleMode = 3
Picture1.Visible = False
Picture1.AutoRedraw = True
Picture1.BorderStyle = 0
End Sub