用什么東西可以把文字方向豎起來啊?


我不知道VB的Label為什么不可以設置方向,請問有別的控件可以縱向顯示嗎?
還有為什么選了TabStrip的Tab里面的內容不變呢?用什么控件可以實現TabPage的功能?

9 个解决方案

#1


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

#2


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

#3


1.縱向顯示
 放一個標簽,寬度是一個字符的寬度,高度你放大,就可以了啊
   
2.使用sstab
部件箱添加
ms tabbed dialog control 6.0

#4


謝謝兩位,第二個問題解決了。第一個問題你們理解錯了,我的意思是文字本身的方向轉90度顯示,不知道這個怎么做到?

#5


試試這個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

#6


Private Sub Command1_Click()
Label1.FontName = "@宋體"
Label1.Caption = "中華人民共和國"
End Sub

#7


同意小林,就是API

#8


用SSTAB阿

#9


參考一下。

將英文字母及阿拉伯數字旋轉任意角度   
            
在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函數
來取得,實現起來較為麻煩。

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2021 ITdaan.com