Formの値をモジュールに引数として渡す への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 C#  (社会人) 投稿日時 2009/1/21 22:06:27
申し訳御座いませんでした。
次からはエラー内容も記述していきたいと思います。
0
投稿者 ヴァン  (社会人) 投稿日時 2009/1/21 21:45:45
エラーが出るならどんなエラーなのか書いた方が良い。

試してないけど、

'Form1側のコード
Private Sub Command1_Click()
Dim frm As Form2
Set frm = New Form2
test frm
End Sub

'モジュールのコード
Public Sub test(ByVal frm As Form2)
Call frm.Show(vbModal)
End Sub
0
投稿者 C#  (社会人) 投稿日時 2009/1/21 20:56:41
返信有難う御座います。

指摘頂いた行について型宣言してる部分に変数を入れているのでエラーが出るという事が
判りました。

現在VB6.0の勉強と言うことで、モジュールの理解を深めるといった事で、
面倒な処理なのかもしれませんが、モジュールでの作成で行っています。

前の質問(フォーカスの判定)でもモジュールとして処理を行おうとしているのは
そういった意味でした。

ｎさん有難う御座いました。
もう少し調べて勉強していきたいと思います。
0
投稿者 ｎ  (社会人) 投稿日時 2009/1/21 20:40:17
＞Dim frm2 As frm

これがおかしい。frmはForm型の変数になってるわけだし。

それよりも、共通する処理だというだけでモジュールにメソッドを作ろうとしていること自体をやめたほうがいいんじゃない？
0
投稿者 C#  (社会人) 投稿日時 2009/1/21 20:32:21
お世話になります。
簡単なプログラムの作成で、少々疑問になったので質問させていただきます。

現在、Form1にボタンを作成してボタンを押すとForm2を表示するという
プログラムを作成しているのですが、モジュールにForm2を引数として
値を渡すとエラーになってしまいます。

Formは引数として値を渡すことは不可能なのでしょうか？
教えて頂けると幸いです。

説明が下手なのでコードを書いてみます。

'これは可能
Private Sub Command1_Click()
Dim frm As Form2
Set frm = New Form2
Call frm.Show(vbModal)
End Sub



'こっちエラー
'Form1側のコード
Private Sub Command1_Click()
test Form2
End Sub

'モジュールのコード
Public Sub test(ByVal frm As Form)
Dim frm2 As frm
Set frm2 = New frm
Call frm2.Show(vbModal)
End Sub


宜しくお願いいたします。
0