フォームがプロジェクトに追加されていない時のコードの書き方 (ID:120838)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いなさん、Dentalさん、お付き合いありがとうございます。 お二方のご助言とログから＜■ Form型のデータに引数を渡すには？＞ http://madia.world.coocan.jp/vb/vb_bbs2/200309_03090039.html http://madia.world.coocan.jp/vb/vb_bbs2/200309_03090076.html 参考してフォームをダイレクトで指定は無理っぽいことが分かりました。 小出しで申し訳ないですが、実は、Form.Show している前に プロパティを介して値を送ってあげています。 Set F = Forms.Add("Form2") F.KykGrp = gfncCLng(stcTori.GrpCode) F.ToriKbn = gfncCLng(stcTori.ToriKbn) 'フォーム表示 F.Show で確かにエラーは発生しないのですが、 この命令（フォームコレクションに追加すること）で Form_Load イベントが 走ってしまうんですね。(^^) これではプロパティに値が入らないんです。(^^) （当たり前ですね。ロードした後ですんでね。） それで、やはりフォームオブジェクトを引数に持って対応しようと するのですが、普通に引数を作ってその引数でShowしてあげるとちゃんと 起動されます。 >簡単に修正するとしたら、 >件の関数は、指定されたフォームを起動する。 >というようにし、引数化してオプショナルをつけておくとか？ とOptional付加した引数で規定値と申しますか、 Optional ByVal frm As Form = XXXXXX XXXXXX の部分を教えて頂けませんでしょうか。 宜しくお願いします。<(_ _)>