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

■No103828 (魔界の仮面弁士 さん) に返信
> ■No103825 (魔界の仮面弁士) に追記

魔界の仮面弁士　様

早速ですが、下記のとおり作成してみました。

それぞれのクラスに、

    Public Property IsSelected As Boolean

を設定しました。

右クリックで

　　　IsSelected = True

としてみました。

Button5で一気に削除することにしました。

また、柱は楕円で、壁は太さを３で被らないようにして見やすくしました。

コンパイルは成功するのですが、実行すると綺麗に順番に削除されませんでした。
柱や壁が黄色で反転されて削除されるのは確認できましたが。

　　　　　　　　　　　記

    Private selectedPillars As New List(Of Pillar)
    Private selectedWalls As New List(Of Wall)



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


      If e.Button.HasFlag(MouseButtons.Right) Then

            For Each pillar In pillarList
                pillar.IsSelected = True
            Next

            For Each wall In wallList
                wall.IsSelected = True
            Next

        End If

       '削除する柱や壁をクリックすることで選択できるようにする

        For Each pillar In pillarList

                If pillar.IsSelected Then
                    If Math.Abs(e.X - pillar.X) < 10 AndAlso Math.Abs(e.Y - pillar.Y) < 10 Then
                        If Not selectedPillars.Contains(pillar) Then
                            selectedPillars.Add(pillar)
                        End If
                    End If
                End If

            Next

        For Each wall In wallList

                If wall.IsSelected Then

                    If Math.Abs(e.X - wall.startPoint.X) < 10 AndAlso Math.Abs(e.Y - wall.endPoint.Y) < 10 Then
                        If Not selectedWalls.Contains(wall) Then
                            selectedWalls.Add(wall)
                        End If
                    End If

                End If

            Next



    Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
  
        For Each pillar In pillarList

                If pillar.IsSelected Then

                    If selectedPillars.Contains(pillar) Then
                         e.Graphics.FillEllipse(Brushes.Yellow, pillar.X - rectangleSize \ 2, pillar.Y - rectangleSize \ 2, rectangleSize, rectangleSize)
                    Else
                        e.Graphics.FillRectangle(Brushes.Red, pillar.X - rectangleSize \ 2, pillar.Y - rectangleSize \ 2, rectangleSize, rectangleSize)
                    End If

                End If

            Next

        For Each wall In wallList

                If wall.IsSelected Then

                If selectedWalls.Contains(wall) Then
 
                    e.Graphics.DrawLine(pen9, wall.startPoint, wall.endPoint)
                Else
 
                    e.Graphics.DrawLine(pen7, wall.startPoint, wall.endPoint)
                End If

                End If

        Next


   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        '3. 削除ボタンを追加する

        '選択された柱や壁を削除する操作を追加。

         For Each pillar In selectedPillars

                If pillar.IsSelected Then

                    pillarList.Remove(pillar)

                End If

            Next
            selectedPillars.Clear()

        For Each wall In selectedWalls

                If wall.IsSelected Then

                    wallList.Remove(wall)

                End If

            Next
            selectedWalls.Clear()


        PictureBox1.Invalidate() ' 再描画

    End Sub


Public Class Pillar
    Private Shared LastIndex As Integer = 0
    Public ReadOnly Property Index As Integer
    Public Property X As Integer
    Public Property Y As Integer

    Public Property IsSelected As Boolean

    Public Sub New(location As Point)
        LastIndex += 1
        Me.Index = LastIndex
        Me.X = location.X
        Me.Y = location.Y

        'Me.IsSelected = False

    End Sub
End Class




'=== 案1 ===
Public Class Wall
    Private Shared LastIndex As Integer = 0
    Private Const DefaultStiffnessValue As Double = 2.5

    Public ReadOnly Property Index As Integer
    Public Property startPoint As Point
    Public Property endPoint As Point
    Public Property Stiffness As Double

    Public Property IsSelected As Boolean

    Public Sub New(startPoint As Point, endPoint As Point)
        Me.New(startPoint, endPoint, DefaultStiffnessValue)
    End Sub

    Public Sub New(startPoint As Point, endPoint As Point, stiffness As Double)
        LastIndex += 1
        Me.Index = LastIndex
        Me.StartPoint = startPoint
        Me.EndPoint = endPoint
        Me.Stiffness = stiffness

        'Me.IsSelected = IsSelected

    End Sub
End Class