ориентация текста flexgrid

Question

Есть ли способ выровнять текст в msflexgrid по вертикали, как это делает Excel?

спасибо

Answer 1

Есть много поворота шрифтов на 90 градусов.VB6 использует объектную часть OLE StdFont из библиотеки типов stdole2.

Вам потребуется преобразовать StdFont в шрифт GDI, чтобы иметь возможность манипулировать им.

Вот очень хороший пост ( Текст под любым углом ) с примером кода, чтобы продолжать делать именно это.

Пример рисует на форме, но я думаю, вы можете получить ручкув MSFlexGrid и нарисуйте в нем.

Затем вы можете контролировать, когда и как будет отрисовываться текст.Если вы хотите редактировать вертикальный текст во время выполнения, вы можете вместо этого отображать горизонтальное текстовое поле над ячейкой при редактировании текста, а затем рисовать новый текст после завершения редактирования.

Answer 2

Ничего встроенного, но вот взлом, который я использовал несколько лет назад. Вы передаете строку функции и она возвращает строку с возвратом каретки и переводом строки после каждого символа.

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

Answer 3

Нет, если вы говорите о вертикальном вращении текста.

Вы можете преобразовать текст в повернутое изображение и затем загрузить изображение.

Далее это ...

Вы можете напечатать повернутый текст в элемент управления Picturebox, а затем назначить Picturebox для ячейки.

Эта ссылка показывает аналогичное использование метода, но по несколько иной причине.

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