タイトル : Re^8: アプリケーションの起動について 投稿日 : 2008/09/01(Mon) 17:37 投稿者 : じゅん
> > Me.TopMost = True > > Shell(objclass.gFunc_ReadAccPath & " " & objclass.GetAppPath & basCommon.basCommon.gcMASTERREP & " " & " /x M_地域マスタリスト", , True) > > > > この時点でフォーカスが A フォームに移っていませんか? > > Me.Focus() 'でもう一度 B フォームにファーカスを移してから > > > MsgBox("印刷処理が終了しました。", MsgBoxStyle.DefaultButton1) > > Me.TopMost = False > > 上記を実施し、それでも、MsgBox を表示した時点で A フォームにフォーカスが移って > いるのなら、B フォームを終了を待って、A フォームを表示するようにでもしてみては。 > > MsgBox は、MsgBoxStyle.MsgBoxSetForeground にしていたのでは。 返答ありがとうございます。 Me.TopMost = True Shell(objclass.gFunc_ReadAccPath & " " & objclass.GetAppPath & basCommon.basCommon.gcMASTERREP & " " & " /x M_地域マスタリスト", , True) Me.Focus() MsgBox("印刷処理が終了しました。", MsgBoxStyle.DefaultButton1) Me.TopMost = False で実行してみたのですが、Bフォームは手前にきていますが、フォーカスはAフォームにあります(涙)。そこで、メッセージボックスの所を MsgBox("印刷処理が終了しました。", MsgBoxStyle.MsgBoxSetForeground) にしたら、Bフォームが手前に来た状態で、Enterキーを押下すると、メッセージボックスが閉じました。 MsgBox("印刷処理が終了しました。", MsgBoxStyle.MsgBoxSetForeground)にするとデメリットがあるのでしょうか?? |