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

Question

前提・実現したいこと

お世話になります。
VB.NETにおけるクラスとモジュールに関してです。

VB.NET初心者です。
現在Windowsフォームアプリケーションでソフトを作成中です。
面倒な構造ですが、フォームが多岐にわたっているため、下位モジュール、上位モジュール
内に関数を作成し、それらをフォームクラスに反映させています。

今回お聞きしたいことは、クラスで定義した値をモジュールで使用できないのか　です。
クラス上でPublicで設定した変数をモジュール上で使用したいのですが、
できませんでした。やりたいことは下記例のようなことです。

---

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

---

※例のため意味のない関数になっています、、、
一応図にもしておきます。

クラスもモジュールも含めてグローバル変数を設定できるわけではないのでしょうか。
（クラスで設定したグローバル変数がモジュール上でも同じ名前で変数設定できて困惑しています、、、）

つたない説明で申し訳ありません。
宜しくお願い致します。

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

Comments

[dodox86]

コードはマークダウン記法を用いて読みやすくするようにしてください。
https://teratail.com/help/question-tips#questionTips3-5-1
https://teratail.com/questions/238564
あと、VB.NETと昔のVB(VB6)は別モノです。

[momo842]

回答ありがとうございます。
VBと表記するとVB6を示すことになってしまうんですね、、、
知りませんでした。。。

[dodox86]

> 回答ありがとうございます。
> VBと表記するとVB6を示すことになってしまう
「回答」ではないのですけれどもね。単なる質問文の修正依頼です。
"VB"（のタグ）はまぎらわしいですが、"Visual Basic”に関してはExcelマクロなどで使う"VBA"(Visual Basic for Applications)や、クラシックASP、WSHで使う"VBScript"もあります。違いを意識するのは他の閲覧者や回答者にとっても大事です。

[退会済みユーザー]

知らないとこのへん結構紛らわしいですよね。
どれか一つしか触った事ない人だと、なんじゃそりゃってなるのは正直分からなくもない…

[dodox86]

＞@radianさん

> どれか一つしか触った事ない人だと、なんじゃそりゃってなるのは正直分からなくもない…

私も実はそう思っています。回答せずにコメントのみで細かいことを書きたくもないのですけど、間違いや誤解が生じそうなことを放置しておくわけにもいかないでしょうし。

[momo842]

お二人ともありがとうございます。
質問文の修正をしました。
今後は気を付けて質問しようと思います。

[dodox86]

> 質問文の修正をしました。
もうひとつ指摘させてもらったつもりでしたが、コードの整形（マークダウン記法を使う）は無し、でしょうか？

[momo842]

こういう風に皆さんコード書いていたんですね、、、
勉強になります。

Answer 1

moduleにメソッドを書いて共通関数みたいな形で使えますが、各オブジェクトの変数をアクセスするのではなく引数として与えるべきです。
Moduleに変数を定義してグローバル変数として使うこともできますが、なるべくならグローバル変数を使用すべきではありません。

今回挙げられた例ですと、

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で定義し、関数の入力、出力を他のものに依存する形ではなく独立させるべきです。

そして、利用する側ですが

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

といった感じで、各オブジェクトのやりとりはプロパティやメソッドを利用する形で行うべきです。

Comments

[momo842]

ご回答ありがとうございます。
丁寧に礼まで書いて下さり感謝です。
なるほど！戻り値を返させて利用するのは完全に抜けていました、、、
早速試してみます。

Answer 2

クラスのオブジェクトを渡さないと、そのクラス内のメンバにはアクセスできません。
その図のKansu1かFormAのメンバにアクセスするのであれば、FormAのオブジェクトをどこかで作成し、それを渡してやる必要があります。
あと、Publicな変数を公開するのは、.NETプログラミングでは通常ご法度なので、プロパティにしてください。（プロパティが判らなければ、まず言語の基本から勉強してください）

Sharedで宣言すると、同じクラスのオブジェクトを複数作っても、その全てで共有されます。
Public Sharedプロパティで公開すれば、一応外部からも直接アクセスは可能です。
ただ、何でもかんでも公開するのは正直オススメしないです。

Public Class FormA

    Public Shared Property PropertyA As Integer = 100

    ...

End Class

'' このようにアクセスできる
'' Dim i As Integer = FormA.PropertyA

複数のオブジェクト間で値を共有する必要があるのであれば、共有する値のプロパティを持たせたシングルトンのクラスを一つ作って、そのクラス経由で共有する、などした方がよいでしょう。

Comments

[momo842]

ご回答ありがとうございます。
そういうプロパティ設定があるんですね。
まずは調べてみます！