Hallo
ich versuche momentan, das man Interaktiv in einem Splitcointer zeichnen kann (in Panel2 um genau zu sein). Den untenstehenden Code verwende ich... komischer weiße funktioniert er, wenn ich es auf die Form direkt anwende und den Splitcontainer lösche.
weiß jemand was da schiff läuft
edit:
komischer weiße, sobald ich den splitter bewege erscheint das gezeichnete Dreieck. Doch es verändert immer die größe, je nachdem wie ich den splitter verschiebe
ich versuche momentan, das man Interaktiv in einem Splitcointer zeichnen kann (in Panel2 um genau zu sein). Den untenstehenden Code verwende ich... komischer weiße funktioniert er, wenn ich es auf die Form direkt anwende und den Splitcontainer lösche.
VB.NET-Quellcode
- Dim RcDraw As Rectangle
- Dim PenWidth As Integer = 5
- Private Sub SplitContainer1_Panel2_Paint(sender As Object, e As PaintEventArgs) Handles SplitContainer1.Panel2.Paint
- e.Graphics.DrawRectangle(New Pen(Color.Black, PenWidth), RcDraw)
- End Sub
- Private Sub SplitContainer1_MouseDown(sender As Object, e As MouseEventArgs) Handles SplitContainer1.MouseDown
- RcDraw.X = e.X
- RcDraw.Y = e.Y
- End Sub
- Private Sub SplitContainer1_MouseUp(sender As Object, e As MouseEventArgs) Handles SplitContainer1.MouseUp
- If e.X < RcDraw.X Then
- RcDraw.Width = RcDraw.X - e.X
- RcDraw.X = e.X
- Else
- RcDraw.Width = e.X - RcDraw.X
- End If
- If e.Y < RcDraw.Y Then
- RcDraw.Height = RcDraw.Y - e.Y
- RcDraw.Y = e.Y
- Else
- RcDraw.Height = e.Y - RcDraw.Y
- End If
- SplitContainer1.Invalidate(RcDraw)
- End Sub
- End Class
weiß jemand was da schiff läuft
edit:
komischer weiße, sobald ich den splitter bewege erscheint das gezeichnete Dreieck. Doch es verändert immer die größe, je nachdem wie ich den splitter verschiebe
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ctextrem“ ()