タイトル : Re^5: 複数フォームの上下を保つ方法 投稿日 : 2011/03/09(Wed) 08:43 投稿者 : 花ちゃん
下記での動作でいいのなら、Form2 にだけに書くことで実現できます。 Public Class Form2 Private Declare Function GetForegroundWindow Lib "user32" () As IntPtr Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Select Case m.Msg Case &H6, &H1C Dim hActv As IntPtr = GetForegroundWindow() If hActv = Form1.Handle Or hActv = Me.Handle Then Me.TopMost = True Else Me.TopMost = False End If Case Else End Select MyBase.WndProc(m) End Sub End Class |