モードレスフォームを開いてもフォーカスを移動しないようにしたい (ID:120092)

名前

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

本文 呼び出し元ウィンドウ＝操作中のウィンドウでいいのかな？ ↑でないよう(非アクティブ時にタイマーなどで呼び出すとか)なら引き数として 渡すしかないかな。(他に方法が思いつかない。) 'GetForegroundWindowとSetActiveWindowはAPIですけど仕様規約はあるのかな。 Public Sub frmErrShow() Dim lnghWnd As Long ' Dim frmObj As Form '現在の操作中のウィンドウは? lnghWnd = GetForegroundWindow frmErr.Show , MDIForm1 'ウィンドウをアクティブにする Call SetActiveWindow(lnghWnd) ' For Each frmObj In Forms ' If frmObj.hwnd = lnghWnd Then ' frmObj.SetFocus ' Exit For ' End If ' Next End Sub