Předmět Autor Datum
Samotný label to určitě neumí, je potřeba tomu pomoct: http://stackoverflow.com/questions/416897/how… nový
Wikan 02.04.2015 19:49
Wikan
Dá se přepsat jeho metoda Paint Private Sub Label1_Paint(ByVal sender As Object, ByVal e As System.… poslední
Flash_Gordon 02.04.2015 19:52
Flash_Gordon

Dá se přepsat jeho metoda Paint

Private Sub Label1_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles Label1.Paint
Dim sf As New StringFormat
sf.Alignment = StringAlignment.Center
sf.LineAlignment = StringAlignment.Center
Label1.Text = ""
e.Graphics.TranslateTransform(Label1.ClientSize.Width,Label1.ClientSize.Height)
e.Graphics.RotateTransform(180)
e.Graphics.DrawString("upside down string", Label1.Font,
Brushes.Black, RectangleF.op_Implicit(Label1.ClientRectangle), sf)
End Sub

Zpět do poradny Odpovědět na původní otázku Nahoru