word中用VBA如何使当前窗口闪烁

[needanothercoder]

word中用VBA如何使当前窗口闪烁

比如有一个文当"a.doc",我在里面放一个按钮,我想一点按钮就看到任务栏上"a.doc"的按钮闪动几下.

[dsd999]

任务栏上的按钮？

[needanothercoder]

对,一般用户运行的程序在任务栏上都有对应的切换按钮不是么? 就是想做到,当该word文档被其它窗口完全挡住时,通过VBA和API让它在任务栏上对应的切换按钮闪一下或说是变下颜色. 我相信用API可以实现,但是不知道具体的写法.

[dsd999]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long    '²éÕÒ´°¿Ú
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Sub FlashWnd()

Dim hwnd As Long
hwnd = FindWindow("OpusApp", "1.doc - Microsoft Word")
FlashWindow hwnd, 1
End Sub