用什么东西可以把文字方向竖起来啊？

Question

我不知道VB的Label为什么不可以设置方向，请问有别的控件可以纵向显示吗？
还有为什么选了TabStrip的Tab里面的内容不变呢？用什么控件可以实现TabPage的功能？

Answer 1

Private Sub Command1_Click()
Label1.Caption = "hello" & vbCrLf & "world"
End Sub

Answer 2

使用sstab
部件箱添加
ms tabbed dialog control 6.0

Answer 3

1.纵向显示
 放一个标签,宽度是一个字符的宽度,高度你放大,就可以了啊
   
2.使用sstab
部件箱添加
ms tabbed dialog control 6.0

Answer 4

试试这个api函数
Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal i As Long, ByVal U As Long, ByVal s As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal q As Long, ByVal PAF As Long, ByVal F As String) As Long

Answer 5

Private Sub Command1_Click()
Label1.FontName = "@宋体"
Label1.Caption = "中华人民共和国"
End Sub

Answer 6

参考一下。将英文字母及阿拉伯数字旋转任意角度   
　           
在Visual Basic 6.0中要使文本转动任意角度，需涉及一系列的Windows
编程的API结构和函数。首先需要了解逻辑字体的结构，如下所示：
　　typedef struct tagLOGFONT{
　　LONG lfHeight;
　　LONG lfWidth;
　　LONG lfEscapement;
　　LONG lfOrientation;
　　LONG lfWeight;
　　BYTE lfItalic;
　　BYTE lfUnderline;
　　BYTE lfStrikeOut;
　　BYTE lfCharSet;
　　BYTE lfOutPrecision;
　　BYTE lfClipPrecision;
　　BYTE lfPitchAndFamily;
　　TCHAR lfFaceName[LF－FACESIZE];
　　} LOGFONT;
　　在这一结构中，lfEscapement的值就是字体旋转的角度。注意，其单位
是十分之一度，因此取值范围为0至3600。在使用中先定义好逻辑字体，再用
CreateFontIndirect函数建立逻辑字体，如果建立成功将返回这一逻辑字体
的句柄，否则返回定值。在逻辑字体创建成功后，可以用TextOut函数针对某
一设备（一般可以是一个图片框）输出文字信息。TextOut函数定义如下：
BOOL TextOut(HDC hdc,int nXStart,int nYStart,LPCTSTR lpString,int cbString)，
其中hdc为设备句柄，nXStart、nYStart为文本输出的开始点坐标，lpString
为待输出文本的地址，cbString为文本串长度。由于要使用到设备句柄，因
此，建议将文本输出到图片框中，因为在VB中可以直接取到图片框的设备句
柄属性供调用，而Label框则没有这一属性，需要用另外的Windows API函数
来取得，实现起来较为麻烦。