Windowを１番手前にするには？？ (ID:74637)

名前

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

本文 たとえばこうするとか・・・ Private Declare Function BringWindowToTop Lib "user32.dll" _ (ByVal hWnd As Long) As Long Private Declare Function FindWindow Lib "user32.dll" _ Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" _ (ByVal hWnd As Long) As Long Private Sub Form_Load() Dim ExePath As String Dim lRet As Long ExePath = "C:\WINNT\system32\calc.exe" lRet = FindWindow(vbNullString, "電卓") If lRet = 0 Then strWork = Shell(ExePath, vbNormalFocus) Else If BringWindowToTop(lRet) = 0 Then End ElseIf SetForegroundWindow(lRet) = 0 Then End End If End If End Sub ま、フォーカスやれば前面にくるという・・・・