Question

怎样让某个窗口在最前面并且有焦点？

先设置启动对象为Sub Main

模块代码：

Option Explicit

Sub Main()
Load Form1

End Sub

窗体代码：

Option Explicit

'不要在IDE中运行，要生成exe后运行。

'首先打开一个最大化的浏览器，然后将浏览器窗口最小化，
'运行生成的exe，立即点出浏览器窗口，稍等一下就会出现notepad，
'但仅仅是显示在任务栏中，没有显示在浏览器窗口的前面，需要手动点击notepad。
'我想让notepad显示在浏览器的前面，并且是有焦点的活动状态。
'用SetForegroundWindow SetActiveWindow SetFocus
'SwitchToThisWindow等都只能让notepad在任务栏里用橙色显示，
'但没显示在浏览器前面。用SetWindowPos设为TOPMOST之后用
'SetForegroundWindow只能让notepad显示在浏览器前，但焦点还
'在浏览器窗口上，notepad标题栏还是灰色的。请指教。

'不想用模拟鼠标键盘点击的方式。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Shell "notepad.exe", vbNormalFocus
Sleep 3000
Unload Me

End Sub

Answer 1

给系统传递窗口消息。时钟周期锁定循环给这个窗口发送激活消息。代码这个是系统函数，我英语不好。我得给你找找。
发送激活消息和窗口总在最前直接调用系统基本函数可以实现