dotNETportal.cz

Dobrý den,

potřeboval bych poradit s úpravou textu v Labelu.

Stejně jako to je v Excelu nebo Wordu, že si můžeš nastavit text:"AAA" celý otočit o 90°

Mohl by jste mi prosím odpověď jak bych to udělal ve VB 2008 ??

Děkuji moc...

P.S.: Případné znázornění ==> http://www.uloz.to/10834412/prilohac1-jp...

Najjednoduchšia cesta:

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, _
                            ByVal e As PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawString("Hallo World", Me.Font, Brushes.Black, 10, 10, _
                              New StringFormat(StringFormatFlags.DirectionVertical))
    End Sub

End Class

Kód prevzatý zo stránky http://www.vbforums.com/showthread.php?t...

Děkuji mockrát :D

Todle je uplne super ae nesli by spojit nejak dohramady vice "StringFormat" aby to bylo jako v tom nahledu na obrazku dekuji moc.

e.Graphics.DrawString(Text, Me.Font, Brushes.Black, 10, 10, New StringFormat(StringFormatFlags.DirectionRightToLeft + StringFormatFlags.DirectionVertical))

Díky za odpověď...

Nechápu přesně dotaz, co takhle to napsat aby to člověk pochopil. Nicméně já to pochopil tak, že chcete udělat ten seznam pomocí jednoho labelu. Na to stačí příkaz newLine.

   Private Sub Form1_Paint(ByVal sender As Object, _
                         ByVal e As PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawString("Hallo World" + vbNewLine + "ahoj svete", Me.Font, Brushes.Black, 10, 10, _
                              New StringFormat(StringFormatFlags.DirectionVertical))
    End Sub

Btw: Používejte prosím háčky a čárky (čte se to bez toho dost špatně).

Nene. Myslel sem to presne tak jak je to na obrazku ktery je jako prilohou u prvniho dotazu a kod by mel vypadat asi takto.

e.Graphics.TranslateTransform(Label8.Width, Label8.Height)
e.Graphics.RotateTransform(180)
e.Graphics.DrawString("Text", Me.font, Brushes.Black, 9, 9, New StringFormat(StringFormatFlags.DirectionVertical))