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

■No103814 (shiro さん) に返信
> ■No103812 (魔界の仮面弁士 さん) に返信
>>■No103811 (shiro さん) に返信

魔界の仮面弁士　様

柱座標をcsvファイルに出力できました。
次のとおり、Indexや座標を正しく格納できました。

Type	Index	X	Y
C	1	280	40
C	2	280	120
C	3	360	120
C	4	360	40

柱が上手く行ったので、今度は壁に挑戦してみました。
pointListからwallListに変えました。

Wallクラスでは剛性を2.5の壁で一応固定しています。
エラーが出るので間違っていると思います。

csvファイルへの出力は、壁の始点(X,Y)、終点(X,Y)、剛性と出力したいです。

Type	Index	X1	Y1	X2	Y2    Stiff
W	1	280	40　　　360	40　　2.5
W	2	280	120　　 360	120　 2.5


　　　　　　　　記

    Private wallList As New List(Of Wall)

    Private isPlacing As Boolean = False


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


          '耐力壁

            Case "wall"

                startPoint As New Wall(SnapToGrid(e.Location))

                isPlacing = True


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


            Case "wall"

                If isPlacing Then

                    endPoint As New Wall(SnapToGrid(e.Location))

                    PictureBox1.Invalidate()
                End If


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

        isPlacing = False 

        wallList.Add(startPoint)
        wallList.Add(endPoint)

        PictureBox1.Invalidate()
    End Sub


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

        For n = 0 To wallList.Count - 1 Step 2
            e.Graphics.DrawLine(pen7, wallList(n + 0), wallList(n + 1))
        Next

        If isPlacing Then
            e.Graphics.DrawLine(Pens.Blue, startPoint, endPoint)
        End If


    Public Sub ExportToCSV(pillarList As List(Of Pillar), wallList As List(Of Wall))

        Dim filePath As String = "export.csv"
        Using writer As New StreamWriter(filePath)

            writer.WriteLine("Type,Index,X,Y,Stiff")

            ' 柱データを書き込み
            For Each pillar In pillarList
                writer.WriteLine($"C,{pillar.Index},{pillar.X},{pillar.Y}")
            Next

            ' 壁データを書き込み
            For Each wall In wallList
                writer.WriteLine($"W,{wall.Index},{wall.X},{wall.Y},{wall.Stiffness}")
            Next
        End Using

    End Sub


Public Class Wall
    Private Shared LastIndex As Integer = 0
    Public ReadOnly Property Index As Integer
    Public Property X As Integer
    Public Property Y As Integer
    Public Property Stiffness As Double

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

        Me.Stiffness = 2.5

    End Sub
End Class

■No103815 (shiro さん) に返信
> pointListからwallListに変えました。
> Private wallList As New List(Of Wall)
その方が分かりやすいので良いと思います。


> startPoint、endPointとWallクラスでエラーが出ます。
いわゆるコンパイルエラーというやつですね。

前回 ( No103812 ) でも指摘させていただきましたが、「変数のスコープと寿命」に関して
Visual Basic の言語機能として習得しきれていない印象を受けました。


> '耐力壁
> Case "wall"
> 　startPoint As New Wall(SnapToGrid(e.Location))

As 句は、変数宣言時に型を明示するためのものです。

startPoint は、MouseDown イベントで書き込まれ、Paint イベントで読まれる値
endPoint は、MouseMove/MouseUp イベントで書き込まれ、Paint イベントで読まれる値
ですよね。そのほか、isPlacing もそうですね。

つまり、これらの変数は『複数のイベントで使われる変数』なのですから、
これらの変数は「ローカル変数」ではなく「フィールド変数」でなければなりません。
ローカル変数だと、変数の寿命がプロシージャー単位(Sub や Function ごと)になってしまいます。


さて、ローカル変数における
　　Dim a As New Foo(b)
という記述は、Visual Basic では
　　Dim a As Foo = New Foo(b)
と完全に同じです。
これらは、変数の宣言と同時に、その初期値を設定するためのコードですよね。

宣言済みのクラス変数に対して、そのインスタンスを割り当てる場合、
宣言済みの「Dim a As Foo」あるいは「Priavate a As Foo」への代入のために
　　a = New Foo(b)
と書くことはできますが
　　a As New Foo(b)
と書くことはできません。As は変数宣言時に型を指定するためのものだからです。

そのため、現在の
> startPoint As New Wall(SnapToGrid(e.Location))
> endPoint As New Wall(SnapToGrid(e.Location))
という記述は、コンパイルエラーになってしまっているということです。
複数のイベントで使われる変数は、Form1 直下にローカル変数として宣言しましょう。


ただ、startPoint や endPoint という名から想像するに、
それらは壁そのものではなく、
壁の端を表す位置情報に過ぎないはずです。つまり、
　　Private startPoint As Wall
　　Private endPoint As Wall
といった「壁オブジェクト」(Wall クラス)ではなく、
　　Private startPoint As Point
　　Private endPoint As Point
といった「位置オブジェクト」(Point 構造体)であるはずなのです。


MouseDown で決まるのは壁の始端位置なので、「startPoint = SnapToGrid(e.Location)」とします。
MouseMode/MouseUp では壁の終端位置なので、「endPoint = SnapToGrid(e.Location)」とします。
いずれの場合も、位置情報が更新されたので、「PictureBox1.Invalidate()」で再描画を依頼します。

また、MouseUp のタイミングでは、始端と終端の両方が揃ったことになりますので、
これでようやく「壁」を建てることできるようになります。両端が確定したので、
　　Dim newWall As New Wall(startPoint, endPoint)　'新しい壁を準備
　　wallList.Add(newWall)　'それを壁一覧に加える
を行うことで、Paint イベントに壁情報を渡せるようになります。


……とはいえ、上記の改修を行うと、今度は New Wall(〜) を呼び出す部分で、
また別のコンパイルエラー（引数の数が違っているので）になってしまうはずです。


そもそも、壁の位置は (X,Y) が一つだけあっても決定できません。
当然、(X1,Y1)と(X2,Y2) が必要なわけです。そのための修正を行いましょう。

ついでに、剛性値も「既定値(2.5)」または「任意値」の両方に対応させちゃいましょうか。


'=== 案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 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
    End Sub
End Class


'=== 案2 ===
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 Sub New(startPoint As Point, endPoint As Point, Optional stiffness As Double = DefaultStiffnessValue)
        LastIndex += 1
        Me.Index = LastIndex
        Me.StartPoint = startPoint
        Me.EndPoint = endPoint
        Me.Stiffness = stiffness
    End Sub
End Class


これにより、
　　Dim newWall As New Wall(startPoint, endPoint)
　　wallList.Add(newWall)
あるいは、両者をまとめて
　　wallList.Add(New Wall(startPoint, endPoint))
と書けるようになります。また、剛性値を別の値とするために
　　wallList.Add(New Wall(startPoint, endPoint, 2.2))
といった指定も可能となっています。


Paint イベントの描画については、
　For Each w In WallList
　　e.Graphics.DrawLine(pen7, w.StartPoint, w.EndPoint)
　Next
になります。一つの Wall インスタンスで始点と終点の両方を管理しているため、
従来の Step 2 な For ループを使う必要がなく、処理が簡潔になります。


なお、上記では Wall クラスの座標情報を 2 つの Point で表していますが、
元のソースに従って、X1, Y1, X2, Y2 の 4 つの Integer で表現することもできるでしょう。
どちらが良いかはお好みで。


> csvファイルへの出力は、壁の始点(X,Y)、終点(X,Y)、剛性と出力したいです。
> Type	Index	 X1	 Y1	 X2	 Y2	Stiff
> W   	1    	280	 40	360	 40	  2.5
> W   	2    	280	120	360	120	  2.5

Type=W が壁を意味するデータで
Type=C が柱を意味する行データなのですよね。
柱用の CSV と壁用の CSV で別ファイルになるのでしょうか?

もしも一つのファイルにするのなら、壁と柱で列数が動的に変化するのは、ちょっと不自然かもしれませんね。
列数可変な CSV も世の中にはありますが、ヘッダー付き CSV で行ごとに列数が異なるケースは稀ですし。

案1) ヘッダー行（今回は、"Type,Index," で始まる行)が、ファイル先頭だけでなく文中にも現れ、そこから列数が切り替る
案2) どちらも7列構成にするが、柱の時は先頭4列だけを使い、未使用列には空のデータが入る（空列のためのカンマが続く形になる）
案3) CSV の代わりに、レコードごとに構造を混ぜられる形式(JSON や XML など)を採用する



＜ひとりごと＞

建築構造体としての柱というニュアンスであれば、Pillar クラスではなく Column クラスの方が単語的に望ましいかな…。
でも Column だと、グリッドや CSV などの「Row/Column」の意味に混同されそうで、命名的に悩んでしまった。

Column 　⇒ 柱、あるいは建築物の中で装飾的・構造的に並んでいる縦の柱
Pillar 　⇒ 建物の主要構造を支える支柱、記念碑や大黒柱などといった中心的存在あるいは意匠的に独立した支柱
Pier 　　⇒ 建築・土木分野の専門用語で「柱状の構造物」「基礎・橋脚・大型の柱」を指す
Post 　　⇒ 支柱・杭、小さい柱や看板の支え
Pole 　　⇒ 細長い棒・支柱、電信柱や旗竿など
Stanchion⇒ 鉄パイプなどの支柱・枠、工事現場の柵や支柱
Support　⇒ 支えとしての支柱、構造体のサポート部材
Beam 　　⇒ 横向きの梁、水平な構造体

方眼上に配置するための柱なので、GridColumn とか? こちらは WPF の Grid.Column を連想してしまいそう。

StructuralColumn クラスという名前にすれば明確にはなるけれど、それだと Wall に比べて名前が冗長すぎるか。

Pier であれば、Pillar と Column の中間的なニュアンスとなり、Row/Column との混同も避けられるけれど、
そもそも専門用語過ぎて伝わらないだろうなぁ…。(一般語としての Pier は、桟橋・埠頭の意味で使われる)


＜／ひとりごと＞

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

魔界の仮面弁士　様

いつもアドバイス有難うございます。
早速次のように実施しました。


    Private startPoint As Point
    Private endPoint As Point

MouseDown

          '耐力壁

            Case "wall"

                startPoint = SnapToGrid(e.Location)

MouseMove

           Case "wall"

                If isPlacing Then

                    endPoint = SnapToGrid(e.Location)

                    PictureBox1.Invalidate()

MouseUp

        isPlacing = False

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

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

        'wallList.Add(New Wall(startPoint, endPoint))

        '剛性値を別の値とするために

        'wallList.Add(New Wall(startPoint, endPoint, 2.2))

        PictureBox1.Invalidate()

Paint

        For Each w In wallList
            e.Graphics.DrawLine(pen7, w.StartPoint, w.EndPoint)
        Next

    Public Sub ExportToCSV(pillarList As List(Of Pillar), wallList As List(Of Wall))

        ' ファイルパスを指定
        Dim filePath As String = "export.csv"
        Using writer As New StreamWriter(filePath)
 
            writer.WriteLine("Type,Index,X,Y,Stiff")
 
            ' 柱データを書き込み
            For Each pillar In pillarList
                writer.WriteLine($"C,{pillar.Index},{pillar.X},{pillar.Y}")
             Next

            ' 壁データを書き込み
            For Each wall In wallList
 
                writer.WriteLine($"W,{wall.Index},{wall.StartPoint},{wall.EndPoint},{wall.Stiffness}")

            Next
        End Using

その結果、コンパイルエラーもなく、次のとおり出力されました。
気になるのがWの1〜4が出力されていることでした。
関係ない出力だと思うのですが。

W5~8は柱のCと座標が整合していました。


Type	Index	X	Y	Stiff		
C	1	40	40			
C	2	40	80			
C	3	80	80			
C	4	80	40			
W	1	{X=0	Y=0}	{X=0	Y=0}	2.5
W	2	{X=0	Y=0}	{X=0	Y=0}	2.5
W	3	{X=0	Y=0}	{X=0	Y=0}	2.5
W	4	{X=0	Y=0}	{X=0	Y=0}	2.5
W	5	{X=40	Y=40}	{X=40	Y=80}	2.5
W	6	{X=40	Y=80}	{X=80	Y=80}	2.5
W	7	{X=80	Y=80}	{X=80	Y=40}	2.5
W	8	{X=80	Y=40}	{X=40	Y=40}	2.5


> ＜ひとりごと＞
> 
> 建築構造体としての柱というニュアンスであれば、Pillar クラスではなく Column クラスの方が単語的に望ましいかな…。
> でも Column だと、グリッドや CSV などの「Row/Column」の意味に混同されそうで、命名的に悩んでしまった。
> 
> Column 　⇒ 柱、あるいは建築物の中で装飾的・構造的に並んでいる縦の柱
> Pillar 　⇒ 建物の主要構造を支える支柱、記念碑や大黒柱などといった中心的存在あるいは意匠的に独立した支柱
> Pier 　　⇒ 建築・土木分野の専門用語で「柱状の構造物」「基礎・橋脚・大型の柱」を指す
> Post 　　⇒ 支柱・杭、小さい柱や看板の支え
> Pole 　　⇒ 細長い棒・支柱、電信柱や旗竿など
> Stanchion⇒ 鉄パイプなどの支柱・枠、工事現場の柵や支柱
> Support　⇒ 支えとしての支柱、構造体のサポート部材
> Beam 　　⇒ 横向きの梁、水平な構造体
> 
> 方眼上に配置するための柱なので、GridColumn とか? こちらは WPF の Grid.Column を連想してしまいそう。
> 
> StructuralColumn クラスという名前にすれば明確にはなるけれど、それだと Wall に比べて名前が冗長すぎるか。
> 
> Pier であれば、Pillar と Column の中間的なニュアンスとなり、Row/Column との混同も避けられるけれど、
> そもそも専門用語過ぎて伝わらないだろうなぁ…。(一般語としての Pier は、桟橋・埠頭の意味で使われる)


Pillarは地下の杭などに使われます。
上部構造の柱はcolumnが使われます。

今回は動かせることが目的でしたので、そのまま使用していました。

■No103819 (shiro さん) に返信
> Pillarは地下の杭などに使われます。
> 上部構造の柱はcolumnが使われます。

勉強になります！ ( ..)φ


> Type	Index	X          	Y          	Stiff		
> C   	    1	40         	40         	     		
> C   	    2	40         	80         	     		
> C   	    3	80         	80         	     		
> C   	    4	80         	40         	     		
> W   	    1	{X=0,Y=0}  	{X=0,Y=0}  	2.5  
> W   	    2	{X=0,Y=0}  	{X=0,Y=0}  	2.5  
> W   	    3	{X=0,Y=0}  	{X=0,Y=0}  	2.5  
> W   	    4	{X=0,Y=0}  	{X=0,Y=0}  	2.5  
> W   	    5	{X=40,Y=40}	{X=40,Y=80}	2.5  
> W   	    6	{X=40,Y=80}	{X=80,Y=80}	2.5  
> W   	    7	{X=80,Y=80}	{X=80,Y=40}	2.5  
> W   	    8	{X=80,Y=40}	{X=40,Y=40}	2.5  

Point 構造体のまま出力すると、「{x,y}」形式のカンマ付き文字列が生成されるので、
タブ区切りテキストならまだしも、CSV(カンマ区切りテキスト)とは相性が悪いかと思います。

このフォーマットにするなら、ヘッダー行は
　writer.WriteLine("Type,Index,X,Y,Stiff")
ではなく、
　writer.WriteLine("Type,Index,X1,Y1,X2,Y2,Stiff")
に変更することを提案します。


データ部については
　　For Each pillar In pillarList
　　　　writer.WriteLine($"C,{pillar.Index},{pillar.X},{pillar.Y}")
　　Next
　　For Each wall In wallList
　　　　writer.WriteLine($"W,{wall.Index},{wall.StartPoint},{wall.EndPoint},{wall.Stiffness}")
　　Next
ではなく、
　　For Each pillar In pillarList
　　　　writer.WriteLine($"C,{pillar.Index},{pillar.X},{pillar.Y},,,")
　　Next
　　For Each wall In wallList
　　　　writer.WriteLine($"W,{wall.Index},{wall.StartPoint.X},{wall.StartPoint.Y},{wall.EndPoint.X},{wall.EndPoint.Y},{wall.Stiffness}")
　　Next
のように空値の列を追加することで、すべての行で列数を同一に揃えます。


Type=W の方は列数が多いので、まとめて一行で示す代わりに
　　For Each wall In wallList
　　　　writer.Write($"W,{wall.Index}")
　　　　writer.Write($",{wall.StartPoint.X},{wall.StartPoint.X}")
　　　　writer.Write($",{wall.EndPoint.X},{wall.EndPoint.X}")
　　　　writer.Write($",{wall.Stiffness}")
　　　　writer.WriteLine()
　　Next
のように分けて記述すると言う手もあるかと。



> ' ファイルパスを指定
> Dim filePath As String = "export.csv"
> Using writer As New StreamWriter(filePath)
カレントディレクトリによって、出力先がぶれることになるので、
実際の運用では、フルパスが渡されるようにした方が良いかも。


> 気になるのがWの1〜4が出力されていることでした。
> 関係ない出力だと思うのですが。
恐らく、wallList の中身が 4 件ではなく、8 件あったというだけのことだと思います。

その処理において、wallList.Add(newWall) は何回呼び出されていますか?

たとえば、MouseUp は「壁」モードだけでなく「柱」モードでも発生しますが、
壁モードでは無い時にまで、wallList に Add していないか確認してみてください。

また、ExportToCSV の処理にブレークポイントを貼って一時停止させ、
出力時点での wallList 変数の中身をデバッガで確認してみましょう。
（ローカルウィンドウ、ウォッチ、イミディエイトなど）



＜蛇足情報＞
Double 値を文字列として出力する場合、書式指定子を付けておかないと
　・OS の地域設定によって、小数点記号などが異なる
という問題があります。

たとえば欧州圏では、小数に「.」ではなく「,」を使う国が多いため(fr-FR など)、
CSV との相性が悪く、そのままだとトラブルの元になりかねません。

OS 設定によって、ファイル処理が変化してしまうことを避けるため、
地域依存の無い書式指定として
　　'writer.Write($",{wall.Stiffness}")　'標準書式(地域設定に依存)
　　writer.Write($",{wall.Stiffness:R}")　'ラウンドトリップ書式
を使うか、あるいはアプリの既定のカルチャを、明示的に InvariantCulture に
設定すると言ったことが行われます。

ただし R 書式は、.NET Core 3.0 以下や .NET Framework で用いた場合、
正確な復元に失敗する可能性があることが知られています。（変換効率も比較的低め）

そのため、値の厳密性を求めるアプリケーションにおいては、
「Double 型では、代わりに G17 書式指定子を使う」
「Single 型では、代わりに G9 書式指定子を使う」
ことが、より望ましいとされています。
https://learn.microsoft.com/ja-jp/dotnet/standard/base-types/standard-numeric-format-strings#RFormatString

ただし、小数点記号や負数記号などといった、カルチャ依存性は残ってしまうため、入出力時のカルチャを固定化する
（InvariantCulture、あるいはアプリで定めた特定のカルチャ(ja-JP など)にする）ことが必要となります。

値によっては指数表記で出力されるという問題もありますが、
このあたりの仕様をどうすべきかは、案件次第といったところ。
＜／蛇足情報＞

■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

■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

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

魔界の仮面弁士　様

> ただ……ちょっと気になるのは、選択時と非選択時で柱の形状が異なる事。
> No103830 以降では、柱の形は「普段は赤い角柱(FillRectangle)」「選択時だけ黄色の円柱(FillEllipse)」なのですよね。
> 
> 円柱と角柱ではヒットテスト領域が異なってしまいますが、今のヒットテストは正方形前提なので、
> 操作時に違和感が生じたりしないかな、と。
> 
> 円柱モードになっているときは、ヒットテストのエリア判定(Contains メソッド)が変化するはずですよね。
> まぁ、判定エリアが正方形のままだとしても、大きな問題にはならないかも知れませんが。

動作確認のため、柱は円形にして赤色が見えるように、壁は太さを細くして青色部分が見えるようにしました。
領域判定でミスがあるかもしれないため、同じ大きさに修正しました。

クラスのFunction部分で下記のとおり修正しました。
柱・壁とも10の距離だと同時に黄色を選択してしまうためでした。

少し改善しましたが、それでも次のような不具合がありました。

・柱だけを先に配置し、右クリックで柱を選択しようとしても黄色にならない。
　壁も配置し終わった後でないと有効にならない。

・壁を選択しようとすると柱も一緒に黄色に選択してしまったり、
　新たに青色の壁を新たな方向に配置してしまう。

VB中学生のように、一回で綺麗に削除出来なく立ち止まってしまいました。


　　　　　　　　　　記

Pillar Class

        If Math.Abs(p.X - Me.X) < 5 AndAlso Math.Abs(p.Y - Me.Y) < 5 Then
  
Wall Class

        If Math.Abs(p.X - Me.startPoint.X) < 15 Or Math.Abs(p.Y - Me.endPoint.Y) < 15 Then

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

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

魔界の仮面弁士　様

> 座標を決めるための各種のフィールド変数(element, isPlacing, startPoint, endPoint など)の値が、
> それぞれのタイミングでどういう値になっているか、デバッグ時に確認するようにしてみましょう。
> 
> 一時停止中なら、ローカルウィンドウ/自動変数ウィンドウ/ウォッチウィンドウなどでも確認できますが、
> マウス操作など随時発生する処理の値を追跡するには、Debug.WriteLine を使うのが良いかと思います。
> 
> 値の変化をデバッグしてみると、たとえば新規に壁を作る前に、以前のクリック座標の情報をリセットし忘れているとか、
> あるいは判定式の書き漏れがあるとか、そういったミスを発見できるかもしれません。

デバッグで確認します。
動くことは確認できましたので改善をしてみます。

ファイルの入力にも取り組んでみました。下記に示します。
出力したファイルを読み込んでPAINTで配置しようとしましたがコンパイルエラーになります。
IndexはReadOnlyというエラーも。

　　　　　　　　記

    Dim filePath As String = "export.csv"

    Using reader As New StreamReader(filePath)
        Dim headerLine As String = reader.ReadLine() ' ヘッダーを読み飛ばす
        While Not reader.EndOfStream
            Dim line As String = reader.ReadLine()
            Dim data As String() = line.Split(",")

            If data(0) = "C" Then
                pillarList.Add(New Pillar With {
                    .Index = Integer.Parse(data(1)),
                    .X = Integer.Parse(data(2)),
                    .Y = Integer.Parse(data(3))
                })
            ElseIf data(0) = "W" Then
                wallList.Add(New Wall With {
                    .Index = Integer.Parse(data(1)),
                    .StartPoint = New Point(Integer.Parse(data(2)), Integer.Parse(data(3))),
                    .EndPoint = New Point(Integer.Parse(data(4)), Integer.Parse(data(5))),
                    .Stiffness = Double.Parse(data(6))
                })
            End If
        End While
    End Using

    PictureBox1.Invalidate() ' 再描画

■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