text orientation flexgrid

Question

有沒有辦法像excel一樣在垂直方向上對齊msflexgrid中的文本？

感謝

Answer 1

有很多至90度旋轉字體。 VB6使用stdole2類型庫的OLE StdFont對象部分。

您必須將StdFont轉換爲GDI字體才能操作它。

這是一個非常好的帖子（Text At Any Angle），帶有示例代碼可以繼續這樣做。

該示例繪製在窗體上，但我認爲您可以獲取MSFlexGrid的句柄並將其繪製到該窗體中。

然後，您可以控制文本何時以及如何繪製。如果要在運行時編輯垂直文本，則可以在編輯文本時在單元格上顯示水平文本框，然後在完成編輯時繪製新文本。

Answer 2

若你正在談論文字的垂直旋轉。

您可以將文本轉換爲旋轉圖像，然後加載圖像。

而且這個...

可以打印旋轉的文本到PictureBox控件，然後分配到PictureBox到細胞。

此鏈接顯示該方法的類似用法，但原因稍有不同。

http://vb.mvps.org/articles/ap199907.pdf

Answer 3

沒有內置，但這裏是我用了幾年前一個黑客。您將一個字符串傳遞給該函數，並在每個字符之後傳回帶有回車符和換行符的字符串。

Private Function VerticalString(ByVal strInput As String) As String 
    Dim strReturn As String 
    Dim i As Integer 

    For i = 1 To Len(strInput) 
     strReturn = strReturn & Mid$(strInput, i, 1) & vbCrLf 
    Next i 

    If Len(strReturn) > 1 Then 
     strReturn = Mid$(strReturn, 1, Len(strReturn) - 1) 
    End If 

    VerticalString = strReturn 

End Function 

Private Sub FillGrid() 
    flexgrid1.TextMatrix(1, 0) = VerticalString("Kc Chiefs") 
End Sub