Dim winTitle As String, winTitleLength As Long

winTitle$ = String(255, 0)

Dim findWinTitle As String, tempWinTitle As String

Dim curWin As Long, found As Integer

tempWinTitle = "I'm working here now!"

findWinTitle = Inputbox("What window do you want _
   to use?")

If findWinTitle = "" Then Exit Sub

curWin = GetActiveWindow

Do While curWin <> 0

curWin = GetWindow(curWin, GW_HWNDNEXT)

winTitleLength = GetWindowText(curWin, winTitle, _
        255)

If Instr(1, winTitle, findWinTitle, 1) > 0 Then

found = True

Exit Do

End If

Loop

If found Then

Call SetWindowText(curWin, tempWinTitle)

Call SetActiveWindow(curWin)

While GetActiveWindow = curWin

Yield

Wend

winTitle = Left(winTitle, winTitleLength)

Messagebox "Done working with " & winTitle & "!"

Call SetWindowText(curWin, winTitle)

Else

Messagebox "Window not found!"

End If

End Sub

関連項目

外部 C 関数を呼び出す

用語集