タイトル : Re^6: アプリケーションの起動について 投稿日 : 2008/09/01(Mon) 13:27 投稿者 : じゅん
> > Shell(objclass.gFunc_ReadAccPath & " " & objclass.GetAppPath & basCommon.basCommon.gcMASTERREP & " " & " /x M_地域マスタリスト", , True) > > Me.TopMost = False > > > > MsgBox("印刷処理が終了しました。", MsgBoxStyle.MsgBoxSetForeground) > > > > MessageBox に DefaultButton を設定して > > その後で > Me.TopMost = False > にして見たらどうなりますか? > (印刷直後の Me.TopMost = False は削除しておく) 上記を試しましたが、メッセージボックスが表示されるが、そのままEnterキーを押下するとやはり、画面AでEnterキーを押下したことになりました(泣) ちなみに、そのコード Me.TopMost = True Shell(objclass.gFunc_ReadAccPath & " " & objclass.GetAppPath & basCommon.basCommon.gcMASTERREP & " " & " /x M_地域マスタリスト", , True) MsgBox("印刷処理が終了しました。", MsgBoxStyle.DefaultButton1) Me.TopMost = False |