Hi
Ich habe da einen Code gefunden, mit dem man die "B"-Seite eines Dreiecks mit der Maus bewegen kann. Das sieht alles schon sehr schön aus, doch schöner wäre es, wenn man die Maße der Winkel ALPHA, BETA und GAMMA sowie der Seiten a, b und c irgendwie anzeigen könnte. Folgender Code:
Spoiler anzeigen
Gibt es da irgendwie die Möglichkeit die Maße abzurufen?
Ich habe da einen Code gefunden, mit dem man die "B"-Seite eines Dreiecks mit der Maus bewegen kann. Das sieht alles schon sehr schön aus, doch schöner wäre es, wenn man die Maße der Winkel ALPHA, BETA und GAMMA sowie der Seiten a, b und c irgendwie anzeigen könnte. Folgender Code:
VB.NET-Quellcode
- Imports System.Drawing
- Public Class MainForm
- Private ReadOnly m_A As New PointF(100, 500)
- Private m_B As New PointF(700, 100)
- Private ReadOnly m_C As New PointF(700, 500)
- Private Sub MoveCorner(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
- m_B = e.Location
- Invalidate()
- End Sub
- Private Sub PaintForm(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- Dim points() As PointF = {m_A, m_B, m_C}
- e.Graphics.FillPolygon(Brushes.Green, points)
- e.Graphics.DrawPolygon(Pens.Blue, points)
- e.Graphics.DrawString("A", Font, Brushes.Black, m_A)
- e.Graphics.DrawString("B", Font, Brushes.Black, m_B)
- e.Graphics.DrawString("C", Font, Brushes.Black, m_C)
- e.Graphics.DrawString("a", Font, Brushes.Black, MidPoint(m_B, m_C))
- e.Graphics.DrawString("b", Font, Brushes.Black, MidPoint(m_A, m_C))
- e.Graphics.DrawString("c", Font, Brushes.Black, MidPoint(m_A, m_B))
- End Sub
- Private Shared Function MidPoint(ByVal a As PointF, ByVal b As PointF) As PointF
- Return New PointF(0.5! * (a.X + b.X), 0.5! * (a.Y + b.Y))
- End Function
- End Class
Gibt es da irgendwie die Möglichkeit die Maße abzurufen?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Michael K.“ ()