none
String mit vb2010 unter einem bestimten Winkel Zeichnen RRS feed

Antworten

  • Hallo Günter,

    in Ergänzung zu Ellens Code hier ein anderes Beispiel.

    Public Class Form1
    
        Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
            Dim w As Integer = RichTextBox1.Width  ' Breite des Controls
            Dim h As Integer = RichTextBox1.Height ' Höhe des Controls
    
            PictureBox1.Width = w
            PictureBox1.Height = h
    
            RichTextBox1.Update()
    
            ' Bitmap für das Abbild des Controls
            Dim bmp As New Bitmap(RichTextBox1.Width, RichTextBox1.Height)
    
            Dim gr As Graphics = Graphics.FromImage(bmp)
            gr.CopyFromScreen(RichTextBox1.PointToScreen(Point.Empty), Point.Empty, RichTextBox1.Size)
            bmp.RotateFlip(RotateFlipType.Rotate180FlipNone)
    
            PictureBox1.Image = bmp
    
        End Sub

    Bei diesem Beispiel hast du ein Eingabefeld dessen Text und Größe an eine PictureBox übergeben wird.


    Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 and VB 2010 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful. c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/


    Montag, 2. April 2012 11:00

Alle Antworten

  • Hallo,

    ich würde sagen das geht mit der RotateTransform Method (Single)   http://msdn.microsoft.com/en-us/library/a0z3f662.aspx

    Hier habe ich ein Beispiel gefunden:

    http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/e0309ebf-d5d9-4e08-82f0-ca77f34a955b

     Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim br As New SolidBrush(Me.ForeColor)
        e.Graphics.RotateTransform(-90)
        e.Graphics.DrawString(Text, Font, br, -mSize.Width, 0)
        br.Dispose()
      End Sub

    Selber habe ich das noch nicht nicht probiert. Vielleicht hilt Dir das.

    Gruss Ellen

    Das hat mich interessiert. Geht doch:

    code:

    Imports System.Drawing
    Public Class Form1
        Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
            Dim br As New SolidBrush(Me.ForeColor)
            e.Graphics.RotateTransform(-45)
            e.Graphics.DrawString("Test mit 45 Grad", MyBase.Font, br, 0, 100)
            MyBase.OnPaint(e)
        End Sub
    End Class


    Ich benutze/ I'm using VB2008 & VB2010


    Freitag, 30. März 2012 13:28
  • Hallo Günter,

    in Ergänzung zu Ellens Code hier ein anderes Beispiel.

    Public Class Form1
    
        Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
            Dim w As Integer = RichTextBox1.Width  ' Breite des Controls
            Dim h As Integer = RichTextBox1.Height ' Höhe des Controls
    
            PictureBox1.Width = w
            PictureBox1.Height = h
    
            RichTextBox1.Update()
    
            ' Bitmap für das Abbild des Controls
            Dim bmp As New Bitmap(RichTextBox1.Width, RichTextBox1.Height)
    
            Dim gr As Graphics = Graphics.FromImage(bmp)
            gr.CopyFromScreen(RichTextBox1.PointToScreen(Point.Empty), Point.Empty, RichTextBox1.Size)
            bmp.RotateFlip(RotateFlipType.Rotate180FlipNone)
    
            PictureBox1.Image = bmp
    
        End Sub

    Bei diesem Beispiel hast du ein Eingabefeld dessen Text und Größe an eine PictureBox übergeben wird.


    Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 and VB 2010 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful. c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/


    Montag, 2. April 2012 11:00