Hallo Forum!
Kann mir folgendes Problem nicht erklären.
Siehe Bild!
Das Canvas liegt in einen Grid.
Und bei Buttonclick wird folgende Sub aufgerufen.
Warum werden die Punkte auch außerhalb des Canvas gezeichnet?
Ich hoffe mir kann da einer ein Licht anmachen.
Hinweis! Es sind nur Codeausschnitte!
MfG
hlghyr
Kann mir folgendes Problem nicht erklären.
Siehe Bild!
Das Canvas liegt in einen Grid.
Und bei Buttonclick wird folgende Sub aufgerufen.
VB.NET-Quellcode
- Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
- Dim PunktQuery As ObjectQuery(Of NurPunkt.Punkt) = Me.GetPunktQuery(NurPunktEntities)
- For Each wert In PunktQuery
- Dim punkt1 As Point
- Dim punkt2 As Point
- punkt1.X = wert.X
- punkt1.Y = wert.Y
- PunktZeichnen(punkt1, "versuch")
- If punkt2.X > 0 And punkt2.Y > 0 Then
- Dim linie As New Line
- linie.Stroke = Brushes.Black
- linie.X1 = punkt1.X
- linie.Y1 = punkt1.Y
- linie.X2 = punkt2.X
- linie.Y2 = punkt2.Y
- linie.StrokeThickness = 1
- Canvas1.Children.Add(linie)
- End If
- punkt2 = punkt1
- Next
- End Sub
- Private Sub PunktZeichnen(point As Point, ByVal name As String)
- Dim punkt As New Ellipse
- punkt.Height = 10
- punkt.Width = 10
- punkt.Stroke = Brushes.Black
- punkt.Fill = Brushes.Blue
- punkt.Name = "P" & name
- Canvas.SetLeft(punkt, point.X - 5)
- Canvas.SetTop(punkt, point.Y - 5)
- Canvas1.Children.Add(punkt)
- End Sub
Warum werden die Punkte auch außerhalb des Canvas gezeichnet?
Ich hoffe mir kann da einer ein Licht anmachen.
Hinweis! Es sind nur Codeausschnitte!
MfG
hlghyr