![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になっております。
以下の疑問点が出ています。
どなたか答えをご存知の方がおりましたらご回答願います。
[現象]
Form1からForm2を呼び出し、Form1をhideしても
Form1が隠れない。
[条件]
Form1のボタンをクリック後、すぐに何でもいい(フォルダを開いたウィンドウとか)のでウィンドウを最前面に表示してください。
[プログラム]
--form1--
Private Sub Command1_Click()
On Error GoTo ERROR_END
Screen.MousePointer = vbHourglass
'請求書作成画面に移行
Form2.Show
Screen.MousePointer = vbDefault
Exit Sub
ERROR_END:
Screen.MousePointer = vbDefault
MsgBox Error(Err)
End Sub
Private Sub Form_Load()
Me.Show
Screen.MousePointer = vbDefault
End Sub
--form2--
Private Sub Form_Load()
Dim i, strsql
For i = 0 To 50000000
strsql = "時間稼ぎ"
Next
Me.Show
Form1.Hide
Screen.MousePointer = vbDefault
End Sub
[Form]
Form1にコマンドボタンを一つ配置するだけでOKです。
[環境]
WinXP SP1
VB6.0 SP6
[その他]
WIN98ではこの事象は起こらないと報告受けてます。
バグならばバグと、PGミスならミスと明確に答えていただけると大変助かります。
どうぞよろしくお願いします。
No.1ベストアンサー
- 回答日時:
VB6.0(SP5)でやってみましたが、いちおう動作しています。
ただし・・・For i = 0 To 50000000
strsql = "時間稼ぎ"
Next
で1分以上かかります。DoEvents が入っていないので、その間操作が出来ません。
Form1 を非表示にするには、Form1でForm2を表示した後に行っても良いと思います。(Form2でForm1を閉じません)
請求書作成画面に移行
Form2.Show
Screen.MousePointer = vbDefault
Form1.Hide
Exit Sub
ご回答ありがとうございます。
>For i = 0 To 50000000
については根拠のある数値ではありません。
ただ、表示するまでに時間をかけたいから空回ししているだけなので。。。
>その間操作が出来ません
については、画面下にあるバーから開いている
フォルダを表示していただくだけなので、今の段階では問題ないと考えています。
参考に示していただいたプログラムなのですが、
実際はそのように作成して、この現象が起こってしまったので、分かりやすくするために上記のように展開して掲載させて頂きました。
No.2
- 回答日時:
Win2k/6.0Sp5ですが、全く問題ないです(^^;
一応コンパイルしてexeでも試しましたが・・・
気になることがいくつかあったので。
1.LoadイベントにMe.Showは不要
FormをShowすることでLoadをしているので、不要だと思います。
2.#1さんがおっしゃっている通り、隠すタイミングがForm2の表示直後なのであれば、Form1側でMe.Hideとすべきです。
Form1.Hideとするとややこしくなるので止めたほうが良いですね。もし、Form1がロードされていない(いてはいけない)状況では、このメソッドでインスタンスが作成されてしまいますから。
コードを見る限り「Formの暗黙のインスタンス」についてよく理解されていないように思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA コードどこがおかしいですか?
-
VBA 別ブックから条件に合うも...
-
VBA 別ブックからコピペしたい...
-
VBA指定行削除
-
Outlookの「受信日時」「件名」...
-
A列に記載されているフォルダ...
-
VBA初心者です。次のVBAコード...
-
IF文、条件分岐の整理方法
-
【ExcelVBA】インデックスが有...
-
pdfファイルの複数添付 引数の型
-
Vba ファイル書き込み時に書き...
-
VBA ユーザーフォーム ボタンク...
-
Outlookの「受信日時」「送信者...
-
Excel_VBAについて質疑です。(...
-
時間短縮のために、テキストフ...
-
vba アクティブシートの名前変...
-
久しぶりのプログラミング
-
Excel VBA 定義されたプロージ...
-
エクセルのマクロについて教え...
-
VBAコードについて教えてくださ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB.NET】別Formのボタンが押...
-
VB6.0で、フォームから、別のフ...
-
DataTableの件数を取得したい
-
VB6.0のHideのバグ?
-
ActionScript2.0で画面スクロール
-
ダミーウインドウ
-
プログラミング、アーキテクチ...
-
オブジェクトの重なり順の変更
-
インスタンスとポインタ
-
画像を一定時間ごとに切り替え...
-
【FLASH】インスタンス名の一覧...
-
Python でシャットダウンのコマ...
-
クリックしたインスタンスを削...
-
ウインドウハンドルとインスタ...
-
フォームの生成と破棄
-
as3 getChildByNameに変数を利...
-
外部テキストが読み込めません
-
出力するとエラーメッセージが...
-
unityの教科書を読んでいて出て...
-
ACCESSレポートの起動のさせて...
おすすめ情報