Showイベントでよばれているフォームを消す方法

解決

---

初めての投稿よろしくお願いします。
現在VBでフォームがふたつあります。
フォーム１からフォーム２を 
Form2.Show vbModal
で呼びます（ここは固定）
その時フォーム２では、チェックを行いエラーの時はフォームを表示せずに
メッセージボックスのみ表示してunloadしたいと思っています。
現在はForm_Activateでunloadしています。
それだと一瞬だけちらって見えてしまいます。
これを完璧に消す方法ってありますか？
もしあれば教えてください。よろしくお願いします。

編集 削除

---

はじめまして、rakiといいます。
質問に対する答えですが、
フォーム２のLoadイベント内で、visibleをFalseにすればよろしいかと。
以下はフォーム２のオブジェクト名をForm2と仮定してのプログラムです。

Private Sub Form_Load()
   Form2.Visible = False
End Sub

どうでしょうか？

編集 削除

---

raki様レスありがとうございます。
Private Sub Form_Load()
   Form2.Visible = False
End Sub
はやってみましたが、Showイベントのほうが強いようで
フォームが表示されてしまいます。
あと
me.hide
も試してみましたがフォームが表示されてしまいます。

編集 削除

---

Show を呼び出すと、必ず一回フォームが表示されます。
これはタイミングをどんなに調整してもしかたのないことです。

だいたいなぜフォーム２を消す必要があるんでしょうか？
エラーチェックスクリーンならそのまま表示しておいてもいいでしょう。

編集 削除

---

蜻蛉様レスありがとうございます。
そうですよね。SHOWだと必ず表示されてしまいますよね。

消す必要は、その画面が見えたら流れ的におかしいからです。
全体的な流れか行くと、form2で入力チェックするのが間違え
の発端だと考えています。
しかし、色々なしがらみでform1は修正できない辛さがあり
ます・・・
とほほ〜〜

編集 削除

---

Delphiに関する質問の場で似たような質問があり、それに対する回答として、
"SendMessageを使うといい"というのをみたおぼえがあります。
確かそれも最良の方法ではなかったと思いますけど、
とりあえずフォームは隠れます。
(ちなみに本当に最良の解決策も、そこに書かれていたと思います…が、覚えてないです^^;)

  でもそもそも、"Showしない"という方法でもできるのでは？
サブフォームだったら、Loadでとりあえず呼び出しておいて、
問題があるようならば、Showメソッドを一度も呼ばずに終わる…と、どうでしょうか？
Form_Showの前には、Form_Initializeが起こると思うので、
そこで表示するかどうか決めればいいと思います。

編集 削除

---

たかみちえ 様レスありがとうございます。

Showイベントではなくloadイベントなら問題がすぐに解決するのですが、
ユーザさんの強い意向でShowイベントを使ってます。
また、他のフォームではShowイベントの前に
on error resume next が入っていて
form2_loadのところで
unloadして、エラーなっても飛ばすという凄い力技を使っています^^

今回は他の画面と統一をとるために対処法としまして
フォームロードでエラーと判断すればフォームの表示個所を枠外にしてしまい
Form_ActivateでUNLOADしています。
それで見え方は同じなのでユーザさんも納得してくれました。。。

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。