dotNETportal.cz

Prosím o radu, zda lze text (např. Label) zobrazit ne ve vodorovném, ale ve svislém směru. Programuji ve VB6. Děkuji za radu.

Řekl bych, že tohle ve VB6 jen tak jednoduše nepůjde. Jednou z možností je použít nějakou API funkci, které text svisle vykreslí. Anebo si najít na Internetu komponentu, která by tohle uměla.

Skúste použiť túto metódu, ktorú som na rýchlo pre Vás napísal. Možno to naznačí cestu ako sa dá postupovať.

Private Sub Form_Load()
 Call VerticalLabel(Label1)
 Call VerticalLabel(Label2)
End Sub

Public Sub VerticalLabel(labelName As Object)
 Dim s$()
 Dim i%
 ReDim s(Len(labelName.Caption))
 For i = 0 To UBound(s)
 s(i) = Mid(labelName.Caption, i + 1, 1)
 Next i
 labelName.Caption = ""
 For i = 0 To UBound(s)
 labelName.Caption = labelName.Caption & s(i) & Chr(13)
 Next i
End Sub

Dlho som sa zaoberal týmto problémom vo VB6 pred pár rokmi ale nakoniec nezostalo nič iné len použiť API funkciu create font indirect alebo bola na nete k stiahnutiu externé OCX už neviem ako sa to presne volalo superlabel alebo extralabel a tá komponenta vedela okrem iných funkcii natočiť label pod zadaným uhlom v rozsahuu 0 až 360 stupňov.