Конференция VBStreets

**Xam** » 10.03.2005 (Чт) 14:34

Как Отобразить заголовок вертикально и по направлению вниз :?:

**snov** » 10.03.2005 (Чт) 14:37

Xam писал(а):Как Отобразить заголовок вертикально и по направлению вниз

Наклонить монитор.

Стандартный Label подобных фокусов не делает

**Konst_One** » 10.03.2005 (Чт) 14:37

контрол Label тут тебе не поможет , надо использовать api TextOut

**Konst_One** » 10.03.2005 (Чт) 14:43

кстати и ответ уже был (осталось только hdc нужный заюзать

**vvs_adm** » 10.03.2005 (Чт) 15:40

По моему, если видоизменений заголовка не предвидится, то лучше картинку с текстом запхать... Т.е. не лучше, а проще гораздо.

**alibek** » 10.03.2005 (Чт) 15:43

А как это сочетается с системными цветами?

**vvs_adm** » 10.03.2005 (Чт) 16:15

alibek писал(а):А как это сочетается с системными цветами?

Ну насчет системных цветов я уже где-то отвечал

Заодно и бабки заработаем

**Daz** » 11.03.2005 (Пт) 9:40

Код: Выделить всё: Private Function Vertical_Horizontal(ByVal nStr As String) As String Dim MyStr As String, i As Integer Static Vert As Boolean If Vert = False Then For i = 1 To Len(nStr) If i Then MyStr = MyStr + Mid$(nStr, i, 1) & vbCrLf Else MyStr = MyStr + Mid$(nStr, i, 1) End If Next Vertical_Horizontal = MyStr Vert = True Else For i = 1 To Len(nStr) Step 3 MyStr = MyStr + Mid$(nStr, i, 1) Next Vertical_Horizontal = MyStr Vert = False End If End Function Private Sub Command1_Click() Label1.AutoSize = True Label1.Caption = Vertical_Horizontal(Label1.Caption) End Sub

**Костя** » 11.03.2005 (Пт) 14:10

Private Sub Form_Activate()
Me.CurrentX = 3000
me.CurrentY = 3000
print "L"
print "a"
print "b"
print "e"
print "l"
End Sub

**Alexander N. Samarin** » 11.03.2005 (Пт) 16:57

А может взять такой шрифт?

**vvs_adm** » 11.03.2005 (Пт) 17:11

Костя Это ничего, что у тебя буквы на 90 градусов повернуты? Ну если не мешает, то ладно...

Label