タイトル : Re^10: アプリケーションの起動について 投稿日 : 2008/09/02(Tue) 09:44 投稿者 : じゅん
おはようございます。ご返事ありがとうございます。 > A のForm を最小化にしておいた場合はどうなるかと。 これについてですが、印刷参照(プレビュー)については、Shellの前に、Bフォームを最小化し、Sell後にBフォームを元のサイズに戻し、TopMost=True TopMost=False とすると、Bフォームが手前にくるようになります。もちろん、メッセージボックスが表示され、Enterキーを押下すると、メッセージボックスのOKボタンを押下したことになる。 Me.WindowState = FormWindowState.Minimized Shell(objclass.gFunc_ReadAccPath & " " & objclass.GetAppPath & basCommon.basCommon.gcMASTERREP & " " & " /x M_地域マスタリスト画面", vbMaximizedFocus, True) Me.WindowState = FormWindowState.Normal Me.TopMost = True Me.TopMost = False ※印刷参照時は、Bフォームは最小化になっててもいいのですが(格好が)、印刷時には、最小化はしたくはないですね・・・(見た目がわるので(笑)) ※OSがXPで印刷参照時の以下のコードでコンパイル(ビルド)すると、うまくいきます。 サイズの変更はしなくてもいける。 Shell(objclass.gFunc_ReadAccPath & " " & objclass.GetAppPath & basCommon.basCommon.gcMASTERREP & " " & " /x M_地域マスタリスト画面", vbMaximizedFocus, True) Me.TopMost = True Me.TopMost = False OSがVistaの時の不具合でもあるのだろうか・・・。それとも動作が不安定?? > A のForm に Me.Focus() なんて書いていませんよね? もちろんやっていません(笑) VB6.0の時はTopMos(あったか忘れましたが・・)なんて使用しなくてもいけたのに・・・ |