Formを最前に出すには？ (ID:121080)

名前

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

本文 あらー！ ガッさん，ねろ <- 誤爆 特攻隊長まるるうさん <- 謝 orz 取りあえずForm2側で Private Declare Function SetWindowPos Lib "user32" _ (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Const NO_SIZE = &H1 'サイズを設定しない Private Const NO_MOVE = &H2 '位置を設定しない Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const HWND_NOTOPMOST = -2 Private Const HWND_TOPMOST = -1 Private Sub Form_Load() 'TopMost設定 SetWindowPos Form2.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE End Sub Private Sub Form_GotFocus() 'TopMost解除 SetWindowPos Form2.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE End Sub ActiveXコントロールがForm1にフォーカスを引き戻しているのでしょう。 これでだめなら解除はどこか他のところで行う。 どこで解除するのがベストかはコードを見なければわかりません。