SetForegroundWindow并不总是有效 [英] SetForegroundWindow not always working

问题描述

我想让一个Excel工作簿在某些进程结束时走到前台。

I want to make an Excel workbook come to the foreground towards the end of some processes.

目前，使用下面的代码，它是一个命中和错过。通常情况下，工作簿会留在后台。

At the moment, with the code below, it is a hit and miss. Often times the workbook is left in the background.

声明自动函数SetForegroundWindow Lib" USER32.DLL" ; （ByVal hWnd As IntPtr）As Boolean

Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean

Dim wb As Microsoft.Office.Interop.Excel.Workbook = Nothing

Dim wb As Microsoft.Office.Interop.Excel.Workbook = Nothing

wb = GetObject（path +文件名） 

wb = GetObject(path + filename) 

wb.Application.Visible = True

wb.Application.Visible = True

wb.Windows（1）.Visible = True

wb.Windows(1).Visible = True

SetForegroundWindow（wb.Application.Hwnd）

SetForegroundWindow(wb.Application.Hwnd)

除了上面的最后一行，我还尝试了不同类型的循环，喜欢：

Instead of the last line above, I have also tried different kinds of loops, like:

           请按


                SetForegroundWindow（wb.Application.Hwnd）



$
           循环时不是SetForegroundWindow（wb.Application.Hwnd）

            Do

                SetForegroundWindow(wb.Application.Hwnd)


            Loop While Not SetForegroundWindow(wb.Application.Hwnd)

但是代码经常卡在循环中

but often the code gets stuck in the loop

我已在帮助页面中读到了SetForegroundWindow不起作用的条件，但它们似乎不适用于此。

I have read in the Help pages the conditions where the SetForegroundWindow does not work, but they do not seem to apply here.

如何让工作簿到达前台？

How do I make the workbook come to the foreground?

推荐答案

您可能需要先调用AllowSetForegroundWindow。顺便说一句，您是否尝试过AppActivate？

You may need to call AllowSetForegroundWindow first. BTW, did you try AppActivate?

这篇关于SetForegroundWindow并不总是有效的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！