VB中AppActivate函数的用法 急急急,等着答案呢。

大哥们,打扰一下,VB中AppActivate函数的用法 急急急,等着答案呢。?

我用的是VB6.0企业版
问题是,我想用程序激活一个已经打开的IE窗口。比如IE已经打开
http://www.key009.cn/index.asp
,并且此时IE窗口没有接受到焦点,该怎么用AppActivate函数把这个IE窗口激活为当前的活动窗口呢?

注意,程序运行之前IE就已经打开了哦,在把这个IE窗口激活之前它可不是当前活动窗口哦。
我比较菜,请讲细一点哈,谢谢了,拜托了。
最新回答
安非他命

2025-03-27 03:53:23

●AppActivate。用法:AppActivate 视窗的Title,是否等待。
是否等待,其值为布尔数(Boolean),当值为True,也就是等到该程序调用完成后,本程序才会继续执行,当值为False,也就是不理会该程序是否调用完成后,本程继续执行。 EX:假若我们已经启动了Microsoft Word..我们要将他推到最上一层..
Private Sub Command1_Click()
AppActivate "Microsoft Word"
End Sub

EX:假若我们已经启动了NC4,且正在阅读千千VB站,Title会变成 "千千VB站 - Netscape",我们要将他推到最上一层..

Private Sub Command1_Click()
AppActivate "千千VB站 - Netscape"
End Sub

●Shell。用法:Shell 程序路径、名称,视窗类型。 视窗类型 值 作用
0 隐藏视窗
1 视窗普通状态且得到焦点
2 视窗最小化且得到焦点
3 视窗最大化且得到焦点
4 视窗普通状态但失去焦点
6 视窗最小化但失去焦点
EX:

Private Sub Command1_Click()
Shell "C:\Windows\NotePad.EXE", 1
End Sub
--------------------------------------------------------------------------------
●AppActivate与Shell的应用。
Shell会传回一个程序的ProcessID,我们可以用ProcessID来用AppActivate来启动

Private Sub Command1_Click()
Dim MyProID
MyProID = Shell ("C:\Windows\Notepad.exe")
AppActivate MyProID
End Sub
※若是AppActivate ProcessID发生错误,表示该程序(Process)并没有启动、执行。