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

■No103841 (魔界の仮面弁士 さん) に返信
> 

魔界の仮面弁士　様

>>それでも、柱・壁が混在すると柱と壁が同時に選択されてしまいます。
> はい。ゆえにそうした点に対処するために、ヒットテスト領域をより厳密にするなど
> 　・柱なら、円柱や角柱の領域をヒットテストエリアにする ( No103835 )
> 　・壁なら、線分をヒットテストエリアにする ( No103828 )
> 　・交点や重複配置点などで複数のアイテムが候補にあった場合の仕組みを検討する ( No103837 )
> 　・クリック以外でも選択できる機能を検討する ( No103805 )
> などといった、さまざまな提案をしてきたつもりです。

線分との距離でヒットすることにさせ柱との重複問題が解消されました。
下記のFunctionのとおりです。

また、左クリック時のみ柱・壁を作図させ、右クリックのみ黄色にし、削除ボタンで削除させました。

この時、柱を１本配置し、右クリックをしても黄色になりません。
２本目の柱を配置すると、最初の１本目の柱が黄色になり1回で削除できます。
壁も同様に、2回目に配置すると1回目が黄色になり削除できます。

つまり１回遅れて黄色になり削除できます。
重複は避けれたのですが、なぜか１回遅れる原因が分かりません。

　　　　　　　　　　記

MouseDown


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


            Select Case element

                Case "col"

                    Dim newPillar As New Pillar(SnapToGrid(e.Location))

                    pillarList.Add(newPillar)

                    PictureBox1.Invalidate() ' 再描画

              Case "wall"

                    startPoint = SnapToGrid(e.Location)

                   isPlacing = True

            End Select

        End If


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

            For Each pillar In pillarList
                pillar.IsSelected = pillar.Contains(e.Location)
            Next

        End If


MouseMove

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

            Select Case element

                Case "wall"
 
                    If isPlacing Then

                        endPoint = SnapToGrid(e.Location)

                        PictureBox1.Invalidate()

                    End If

            End Select

        End If

MouseUp

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

            Select Case element

            Case "wall"

                isPlacing = False

                    Dim newWall As New Wall(startPoint, endPoint) '新しい壁を準備

                    wallList.Add(newWall) 'それを壁一覧に加える

                    PictureBox1.Invalidate()

            End Select

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

            For Each wall In wallList
                wall.IsSelected = wall.Contains(e.Location)
            Next

        End If

 
Paint

        For Each pillar In pillarList

            If pillar.IsSelected Then

                e.Graphics.FillRectangle(Brushes.Yellow, pillar.X - rectangleSize \ 2, pillar.Y - rectangleSize \ 2, rectangleSize, rectangleSize)

                g.DrawRectangle(Pens.Black, 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)

            g.DrawRectangle(Pens.Black, pillar.X - rectangleSize \ 2, pillar.Y - rectangleSize \ 2, rectangleSize, rectangleSize)

            End If

        Next

 
        For Each wall In wallList
            Dim p = If(wall.IsSelected, pen9, pen7) '選択状態に合わせて Pen を切り替える
            e.Graphics.DrawLine(p, wall.startPoint, wall.endPoint)
        Next

削除ボタン

        Dim selectedPillar As Pillar = pillarList.FirstOrDefault(Function(p) p.IsSelected)
        If selectedPillar IsNot Nothing Then
            '選択済みの矩形があれば削除
            pillarList.Remove(selectedPillar)
            PictureBox1.Invalidate() 'PictureBoxを強制的に再描画する
        End If

        Dim selectedWall As Wall = wallList.FirstOrDefault(Function(p) p.IsSelected)
        If selectedWall IsNot Nothing Then
            '選択済みの矩形があれば削除
            wallList.Remove(selectedWall)
            PictureBox1.Invalidate() 'PictureBoxを強制的に再描画する
        End If


Wall Class

Function


       If Math.Abs((Me.endPoint.Y - Me.startPoint.Y) * p.X - (Me.endPoint.X - Me.startPoint.X) * p.Y + Me.endPoint.X * Me.startPoint.Y - Me.endPoint.Y * Me.startPoint.X) / Math.Sqrt((Me.endPoint.X - Me.startPoint.X) ^ 2 + (Me.endPoint.Y - Me.startPoint.Y) ^ 2) < 5 Then