computer 版 (精华区)

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:如何使一行字符串垂直显示？
发信站: 听涛站 (Fri Mar 10 19:09:00 2000), 转信

’函数：垂直显示字符串
Function RotateString(in_str As String) As String
Dim tmpstr As String
’把每个字符都取出来加上回车换行符号
For i = 1 To Len(in_str)
tmpstr = tmpstr + Mid$(in_str, i, 1) & vbCrLf
tmpstr = tmpstr + Mid$(in_str, i, 1) & vbCrLf
Next i
RotateString = tmpstr
End Function
Private Sub Form_Click()
Label1.Caption = RotateString("你知道我在这里吗？")
End Sub


--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。