public propertyの正しい使い方とは

Question

お世話になっております。
プログラム初心者のものですが、以前フォーム間の変数の受け渡しについて質問した際、YamaGNZさんに
「public property 〇〇 as string 」と宣言することを教わりました。
このページより→　　　https://teratail.com/questions/294325

どのクラスからでもアクセスできる？っぽいので、私はこの方法を多用していましたが、
ここにきて、なんでだろうということが起こっています。
public propertyを子フォーム→孫フォームと移していくのですが、最後のところで
messageBoxが空になるのです。
作っているコードは以下のようなものです。

Public class form1
'ここで宣言するtana_kigouを親フォーム→子フォーム→孫フォーム→ひ孫フォーム→玄孫フォーム→
'・・・→tuika_finalと移していく
Public Property tana_kigou as string
'データベースに項目を追加するプログラム
   Private Sub b_tuika_Click(sender As Object, e As EventArgs) Handles b_tuika.Click
        Dim t As New tuika
        tuika_final.tana_f = tana_kigou
        MessageBox.Show(tuika_final.tana_f)
        t.ShowDialog(Me)
        t.Dispose()
    End Sub
End class

'tuikaフォームを開く
Public class tuika
    Private Sub b_tuika_Click(sender As Object, e As EventArgs) Handles b_tuika.Click
        Dim t1 As New tuika1
        MessageBox.Show(tuika_final.tana_f)
        t1.ShowDialog(Me)
        t1.Dispose()
    End Sub
End class

'tuika1フォームを開く
Public class tuika1
    Private Sub b_tuika_Click(sender As Object, e As EventArgs) Handles b_tuika.Click
        Dim t2 As New tuika2
        MessageBox.Show(tuika_final.tana_f)
        t2.ShowDialog(Me)
        t2.Dispose()
    End Sub
End class
'tuika2,3,4,5と同様・・・
'・・・
'tuika_finalフォームを開く
Public class tuika_final
    Public Property tana_f As String
    Private Sub tuika_final_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'ここでtana_fがなぜか空になる
        MessageBox.Show(Me.tana_f)
    End Sub
End class

私のコードにつまらないミスがあればすみません。
まず、そもそもネット検索していたら、私が多用しているようなPublic propertyの使い方はどこにも書いておらず、以下のような書き方をしているものについて説明されているものしかなかったです。
参照: https://dobon.net/vb/dotnet/vb6/property.html

    Public Property Number1() As Integer
        Get
            Return _number1
        End Get
        Set(ByVal value As Integer)
            _number1 = value
        End Set
    End Property

私が使っている方法と比べると、tuika_finalフォームにPublic writeonly propertyを作って、
form1からSetすればよさそうな気もするのですが、私が使っている方法は何なのか、この記事を見てから
よくわからなくなってしまいました。

分かる方おられれば、ご教授いただければ幸いです。
以上、長文失礼しました。

Answer 1

以前の質問の回答に関してはプロパティにて実装する方法で回答致しましたが、他にもいろいろと方法はあります。
例にあるようなものであれば、プロパティで実装するのではなくコンストラクタの引数として値を渡すような実装の方がいいかもしれません。

    Public Property Number1() As Integer

と

    Public Property Number1() As Integer
        Get
            Return _number1
        End Get
        Set(ByVal value As Integer)
            _number1 = value
        End Set
    End Property

については自動実装プロパティ (Visual Basic)
こちらを読んでみてください。

質問を読む限りクラスやプロパティ、インスタンスについて基本的なことを学習する必要があるかと思います。

Comments

[hanbee.com]

ご回答ありがとうございます。
自動実装プロパティというものだったのですね。毎度勉強になります。ありがとうございます。
ちなみに私が書いたコードは間違いがなければ目的の動作をしそうでしょうか。
ここからすでに間違えているのでしょうか。

[hanbee.com]

＞＞コンストラクタの引数として値を渡すような実装
ですね。ちょっと考えてみたいと思います。ありがとうございます。

[YAmaGNZ]

提示されているソースに関してはtuika_finalのインスタンスがどうなっているのか分かりませんので答えようがありません。
それぞれで参照しているインスタンスが別になっていませんか？
こういったことも含めてクラスやインスタンスの基本的なことですので、基本から学習することをお勧めします。

[hanbee.com]

たしかに、いまYamaGNZ様が言われた内容が理解できていませんので、学習が足りていません。
Dim t As New tuika
ここでインスタンス？を作っていると思っていますが、
何を懸念されているのか理解できていません。。。

[hanbee.com]

学習したいと思います。

[YAmaGNZ]

各フォームで参照しているtuika_finalは同一のインスタンスなのかということです。

[hanbee.com]

調べてみました。まずform1でtuika_finalのインスタンスを作っていないので、
作る必要があるよ、ということでしょうか。
https://dobon.net/vb/dotnet/form/accessanotherformdata.html

'tuika_finalオブジェクトを保持するためのフィールド
Private Shared _tuika_finalInstance As tuika_final
'tuika_finalのインスタンスの作成
Dim t_f As New tuika_final
'tuika_finalInstanceに代入
Form1.tuikafinalInstance = t_f

以上をform1のloadイベントに追加して、
t_f.tana_f = me.tana_kigou
とすればよいということだったりしますかね。

[hanbee.com]

また、
Dim t As New tuika
このコードでインスタンスが作成されている？のかはわかりませんが、
インスタンスを作成する必要があるのはなんでなのでしょうか。
質問ばっかりですいません。

[YAmaGNZ]

VBの便利かつやっかいなところとして、form1というフォームをデザイナで作成したら、コード上でインスタンスを作成するコードを明記しなくても
form1.Show()
といった感じで書いて実行することができます。
これはVBが内部で自動でform1のインスタンスを作成して利用できるようにしている為です。
なので、フォームのインスタンスをあまり意識せずに作成できてしまいます。

多分、form1とかで使っているtuika_finalはこれに当たるのではないかと予想しています。
そして、下位のフォームのなかでnewしている部分があるのではないでしょうか？
そうすると、VBで自動作成されたインスタンスとは別のインスタンスが出来上がります。
このインスタンスをShowしてしまうと、form1でtana_fプロパティに値をセットしたインスタンスとは別のインスタンスをShowするので、tuika_finalのロードイベントにて値を見た場合は空になっているのではないかと予想しています。

なので、インスタンスについて学習しましょうということです。

[hanbee.com]

なるほど。分かりやすい解説をありがとうございます。
＞下位のフォームのなかでnewしている部分があるのではないでしょうか？
仰る通り、tuika5で以下のようにNewしてtuika_finalをshowしています。
Dim t_f As New tuika_final
t_f.ShowDialog(Me)
t_f.Dispose()
これでは新しく別のインスタンスを作っていることになるのですね。
とても理解が進んだ気がします。
本当にありがとうございます。
https://www.umayadia.com/VBStandard2/Standard20.htm#A2_7
いま、このページを参考に、YAmaGNZ様のご提案のあったコンストラクタの引数として渡していくやり方でコードを作ろうとしています。
それについても、進展があれば追記させてください。

[YAmaGNZ]

コンストラクタの引数での実装をしたとしても、自分が操作している、操作すべきインスタンスは重要ですので、このあたりはしっかり理解できるようにならないといけません。

[hanbee.com]

了解しました。自分が操作しているインスタンスについて意識するようにします。
YAmaGNZ様の回答を参考にして、コンストラクタの引数を使って、目的の動作を実現できました。
自分の回答のところに書きましたので、何かまだ足りないものなどあればご指摘お願い致します。

Answer 2

YAmaGNZ様、ご回答ありがとうございました。
コンストラクタの引数として値を渡す方法で解決できました。
また、プログラムもすっきりしてよかったです。

Public class form1
'ここで宣言するtana_kigouを親フォーム→子フォーム→孫フォーム→ひ孫フォーム→玄孫フォーム→
'・・・→tuika_finalと移していく
Public Property tana_kigou as string
'データベースに項目を追加するプログラム
   Private Sub b_tuika_Click(sender As Object, e As EventArgs) Handles b_tuika.Click
        Dim t As New tuika(tana_kigou)
        t.ShowDialog(Me)
        t.Dispose()
    End Sub
End class

'tuikaフォームを開く
Public class tuika
    Private Sub b_tuika_Click(sender As Object, e As EventArgs) Handles b_tuika.Click
        Dim t1 As New tuika1(tana_)
        t1.ShowDialog(Me)
        t1.Dispose()
    End Sub
    Private tana_ As String
    Public Sub New(tana_add as string)
        tana_ = tana_add
    End Sub
End class

'tuika1フォームを開く
Public class tuika1
    Private Sub b_tuika_Click(sender As Object, e As EventArgs) Handles b_tuika.Click
        Dim t2 As New tuika2(tana_)
        MessageBox.Show(tuika_final.tana_f)
        t2.ShowDialog(Me)
        t2.Dispose()
    End Sub
    Private tana_ As String
    Public Sub New(tana_add as string)
        tana_ = tana_add
    End Sub
End class
'tuika2,3,4,5と同様・・・
'・・・
'tuika_finalフォームを開く
Public class tuika_final
    Private Sub tuika_final_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'これでちゃんと表示される
        MessageBox.Show(tana_)
    End Sub
    Private tana_ As String
    Public Sub New(tana_add as string)
        tana_ = tana_add
    End Sub
End class

したい動作をしてくれることも確認できました。

コンストラクタを初めて使ったりできましたし、
インスタンスなどについて、いままで回答いただいた回答者様の書いていた文章がやっと理解できたような気がします。１つ壁を越えられたような気がします。
とても親身な回答をいただき、本当にありがとうございました。