Hallo Forum!
Ich bin recht neu in VB.NET unterwegs, nun versuche ich nur eine einfache Linie in eine TextBox zu zeichnen, was auch geht. Nur wenn die Linie Länger ist als die TextBox dann sollte das ganze auch Skaliert werden. Und da beginnt das Problem.
Hier mal der Code den ich verwende!
Vielleicht kann mir da jemand helfen.
Verschoben. ~Thunderbolt
Ich bin recht neu in VB.NET unterwegs, nun versuche ich nur eine einfache Linie in eine TextBox zu zeichnen, was auch geht. Nur wenn die Linie Länger ist als die TextBox dann sollte das ganze auch Skaliert werden. Und da beginnt das Problem.
Hier mal der Code den ich verwende!
Vielleicht kann mir da jemand helfen.
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
- Dim xStartU As Integer
- Dim xEndeU As Integer
- Dim yStartU As Integer
- Dim yEndeU As Integer
- Dim ULaenge As Integer
- Dim pen1 As New System.Drawing.Pen(Color.Black, 1)
- Dim Tischlaenge As Integer = PictureBox1.Size.Width
- Dim Tischbreite As Integer = PictureBox1.Size.Height
- Dim RandX As Integer = 50
- Dim RandY As Integer = 50
- ULaenge = TextBox1.Text
- xStartU = RandX
- xEndeU = ULaenge
- yStartU = Height - PictureBox1.Location.X - RandY
- yEndeU = Height - PictureBox1.Location.X - RandY
- e.Graphics.DrawLine(pen1, xStartU, yStartU, xEndeU, yEndeU)
- End Sub
Verschoben. ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()