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

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

魔界の仮面弁士　様

下記のとおり修正してコンパイルすると次のワーニングが出ましたが実行ファイルは出来ました。
新しくクラスに追加したFunction部分です。

右クリックして柱や壁を選択しても黄色表示がされず、削除もできませんでした。


1>Form1.vb(1510,5): warning BC42353: 関数 'Contains' には値を返さないコード パスがあります。'Return' ステートメントが不足していないかどうかを確認してください。
1>Form1.vb(1480,5): warning BC42353: 関数 'Contains' には値を返さないコード パスがあります。'Return' ステートメントが不足していないかどうかを確認してください。


　　　　　　　　　　　記

    '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 = pillar.Contains(e.Location)
            Next

            For Each wall In wallList
                wall.IsSelected = wall.Contains(e.Location)
            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 - Me.startPoint.X) < 10 AndAlso Math.Abs(e.Y - Me.endPoint.Y) < 10 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 - 5, pillar.Y - 5, 10, 10)
                e.Graphics.FillEllipse(Brushes.Yellow, pillar.X - rectangleSize \ 2, pillar.Y - rectangleSize \ 2, rectangleSize, rectangleSize)
            Else
                'e.Graphics.FillEllipse(Brushes.Red, pillar.X - 5, pillar.Y - 5, 10, 10)
                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
            Dim p = If(wall.IsSelected, pen9, pen7) '選択状態に合わせて Pen を切り替える
            e.Graphics.DrawLine(p, wall.startPoint, wall.endPoint)
        Next


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

        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

    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 Function Contains(p As Point) As Boolean

    End Function

    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 Function Contains(p As Point) As Boolean

    End Function

    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