Formオブジェクトについて

質問

Formオブジェクトに関する質問です。
ある関数にフォームオブジェクトを引数として渡してやりたいのですが、何かよい方法はありますでしょうか？
例）
Private Sub cmdTest_Click(Index as Integer)
Dim frm as Form

If Index = 0 then
Load_Test(Form 2)
Else
Load_Test(Form 3)
End if
End Sub

Private Sub Load_Test(frm as Form)
frm.Show
frm.Label1.Caption = "TEST”
End Sub

回答No.1

kumadayo · ベストアンサー

こんなんじゃだめですか＾－＾？
Option Explicit

Private Sub Command1_Click(Index As Integer)

Dim frm As Form

If Index = 0 Then
Call Load_Test(Me, 2)
Else
Call Load_Test(Me, 3)
End If

End Sub

Private Sub Load_Test(frm As Form, xxx As Integer)
frm.Show
frm.Label1.Caption = "TEST" & xxx
End Sub

お礼

ご回答の程大変ありがとうございます。
Load_Test関数にキーワードCallを使用しないといけませんでしたね。もしくは、Load_Test Form2などCallを使用せずかっこを付けないとか…基本的部分で勘違いしておりました。しかし、Formオブジェクトを引数で指定しなくて、例えばInteger型を引数で指定した場合は、Callを使用せずLoad_Test(0)などとしてもエラーにはならないですよね。なぜでしょうか？
とはいえ、参考になりました。ありがとうござました（^^)。

回答No.2

kumadayo

#1似たような感じですけどこっちの方がいいかな＾ー＾；
Option Explicit

Private Sub Command1_Click(Index As Integer)

Dim frm As Form

If Index = 0 Then
Load_Test Form2
Else
Load_Test Form3
End If

End Sub

Private Sub Load_Test(frm As Form)
frm.Show
frm.Label1.Caption = "TEST"
End Sub

お礼

No.１同様ありがとうございました。