【VB.NET】クラスとモジュールの扱い方

Question

### 前提・実現したいこと

お世話になります。
VB.NETにおけるクラスとモジュールに関してです。

VB.NET初心者です。
現在Windowsフォームアプリケーションでソフトを作成中です。
面倒な構造ですが、フォームが多岐にわたっているため、下位モジュール、上位モジュール
内に関数を作成し、それらをフォームクラスに反映させています。

今回お聞きしたいことは、クラスで定義した値をモジュールで使用できないのか　です。
クラス上でPublicで設定した変数をモジュール上で使用したいのですが、
できませんでした。やりたいことは下記例のようなことです。

-------------------------------------------------------
```VBNET
Public Class FormA   '値を設定するためのフォームクラス
public a as integer
a = TextBox1.text
end Class

Public Module Kansu1　'下位関数
Public Sub kan1(Byval c as integer)
Dim b as integer
b = a * 2
end Sub

Public Module Kansu2() '上位関数：下位関数を使用している
Public Sub kan2()
kan1(a)
end Sub

Public Class FormB '上位関数を用いて演算結果を表示するフォームクラス
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim d as integer
d = kan2
TextBox2.Text = d
end Sub
```

------------------------------------------------------
※例のため意味のない関数になっています、、、
一応図にもしておきます。
　![イメージ説明](949d612101805e4cf3c43adff27fdd18.png)

クラスもモジュールも含めてグローバル変数を設定できるわけではないのでしょうか。
（クラスで設定したグローバル変数がモジュール上でも同じ名前で変数設定できて困惑しています、、、）

つたない説明で申し訳ありません。
宜しくお願い致します。




### 補足情報（FW/ツールのバージョンなど）

Accepted Answer

クラスのオブジェクトを渡さないと、そのクラス内のメンバにはアクセスできません。
その図のKansu1かFormAのメンバにアクセスするのであれば、FormAのオブジェクトをどこかで作成し、それを渡してやる必要があります。
あと、Publicな変数を公開するのは、.NETプログラミングでは通常ご法度なので、プロパティにしてください。（プロパティが判らなければ、まず言語の基本から勉強してください）

Sharedで宣言すると、同じクラスのオブジェクトを複数作っても、その全てで共有されます。
Public Sharedプロパティで公開すれば、一応外部からも直接アクセスは可能です。
ただ、何でもかんでも公開するのは正直オススメしないです。
```vbnet
Public Class FormA

    Public Shared Property PropertyA As Integer = 100

    ...

End Class

'' このようにアクセスできる
'' Dim i As Integer = FormA.PropertyA
```

複数のオブジェクト間で値を共有する必要があるのであれば、共有する値のプロパティを持たせたシングルトンのクラスを一つ作って、そのクラス経由で共有する、などした方がよいでしょう。

Answer

moduleにメソッドを書いて共通関数みたいな形で使えますが、各オブジェクトの変数をアクセスするのではなく引数として与えるべきです。
Moduleに変数を定義してグローバル変数として使うこともできますが、なるべくならグローバル変数を使用すべきではありません。

今回挙げられた例ですと、
```VBNET
Public Module Kansu1　'下位関数
    Public Function kan1(Byval c As Integer) As Integer
        Return c * 2
    End Function
End Module

Public Module Kansu2() '上位関数：下位関数を使用している
    Public Function kan2(a As Integer) As Integer
        Return kan1(a)
    End Function
End Module
```
と戻り値なしではなく戻り値を返すようFunctionで定義し、関数の入力、出力を他のものに依存する形ではなく独立させるべきです。


そして、利用する側ですが
```VBNET
Public Class FormA   '値を設定するためのフォームクラス
    '表示する時にFormB.aから値を取得して表示する

    '値が確定した時にFormB.aに値をセットする
    Private Sub OKButton_Click(sender As Object, e As EventArgs) Handles OKButton.Click
        FormB.a = Integer.Parse(TextBox1.Text)
    End Sub
End Class

Public Class FormB '上位関数を用いて演算結果を表示するフォームクラス
    '可変項目を設定、取得するためのプロパティ
    Public Property a As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '可変項目aを引数としてKansu2を呼び出す
        TextBox2.Text = kan2(Me.a).ToString()
    End Sub
End Class
```
といった感じで、各オブジェクトのやりとりはプロパティやメソッドを利用する形で行うべきです。

前提・実現したいこと

補足情報（FW/ツールのバージョンなど）

関連した質問