C# と VB.NET の質問掲示板

魔界の仮面弁士　様

ダブルクリックでの画像消去コード有難うございました。
非常に参考になりました。

Form1 上に
　Private element As String
は設定していました。

参考のListは「polygon」となっています。
これですと、グリッドの交点を掴むと、スパン幅（1m）に壁が配置されてしまいます。

私のwallはグリッドの2点の交点を結んで、線分の幅で厚さを表そうとしています。
これですと実際のCADに近くなり使いやすいです。
その場合、Pointになるのではと思い、下記のとおり簡単なListを作ってみました。

しかし、今度は次の壁を描こうとすると前のが消えてしまいます。

Paintで「For Each」で描かないとダメなのでしょうか。
その場合のコード記述が分かりませんでした。


　　　　　　　記

   Private startPoint As Point
    Private endPoint As Point
    Private isDragging As Boolean = False

     Private pointList As New List(Of Point)



    Private Sub PictureBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
        startPoint = SnapToGrid(e.Location)
        isDragging = True
    End Sub

    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        If isDragging Then
            endPoint = SnapToGrid(e.Location)
            PictureBox1.Invalidate()
        End If
    End Sub

    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        isDragging = False
         endPoint = SnapToGrid(e.Location)
        PictureBox1.Invalidate()
    End Sub

    Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
        Dim pen As New Pen(Color.Black, 1)
        ' グリッド描画
        For i = 0 To PictureBox1.Width Step 10
            e.Graphics.DrawLine(pen, i, 0, i, PictureBox1.Height)
        Next
        For j = 0 To PictureBox1.Height Step 10
            e.Graphics.DrawLine(pen, 0, j, PictureBox1.Width, j)
        Next

        ' ラバーバンド線描画
        ' If isDragging Then
        Dim rubberPen As New Pen(Color.Blue, 5)
        rubberPen.DashStyle = Drawing2D.DashStyle.Solid

        e.Graphics.DrawLine(rubberPen, startPoint, endPoint)
        'End If
    End Sub

魔界の仮面弁士　様


ご助言有難うございます。

「ポリモーフィズムな実装」など、画像処理を始めたばかりで難解で、
まずはListで処理をしようと思います。

下記のとおりListで試したところ、Invalidate メソッドで壁も柱も
残ったのですが、壁を配置するとき、次の壁を書くと、直前に書いた壁が消えます。
結局、最後に書いた壁だけが残ります。

全て配置した壁を残る場合はどうすれば良いか上手くいきません。

　　　　　記

Public Class Form1

    Private pointList As New List(Of Point)
    Private element As String
    Private startPoint As Point
    Private endPoint As Point
    Private isDragging As Boolean = False

   Private Sub PictureBox1_MouseDown(
          ByVal sender As System.Object,
          ByVal e As System.Windows.Forms.MouseEventArgs) _
          Handles PictureBox1.MouseDown

        Select Case element

                Case "wall"

                    startPoint = SnapToGrid(e.Location)

                     isDragging = True

        End Select

    Private Sub PictureBox1_MouseMove(
          ByVal sender As Object,
          ByVal e As System.Windows.Forms.MouseEventArgs) _
          Handles PictureBox1.MouseMove

        Select Case element

            Case "wall"
 
                If isDragging Then
                    endPoint = SnapToGrid(e.Location)
                    PictureBox1.Invalidate()
                End If

        End Select

    End Sub


    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp

        isDragging = False
 
        pointList.Clear()
        pointList.Add(startPoint)
        pointList.Add(endPoint)

        PictureBox1.Invalidate()

    End Sub

    Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint

        Dim pen7 As New Pen(Color.Blue, 5)

        If isDragging Then
            e.Graphics.DrawLine(Pens.Blue, startPoint, endPoint)
        ElseIf pointList.Count = 2 Then
            e.Graphics.DrawLine(Pen7, pointList(0), pointList(1))
        End If

    End Sub