博客

VB 切换到指定的应用程序上写回答

VB 切换到指定的应用程序上比如说按一下Command按钮就自动切换到”哈哈”这个游戏程序然后执行按键代码要详细点- – 展开写回答有奖励共3个回答hankcs2016-04-08 超过15用户采纳过TA的回答关注用AppActivate其实挺容易实现的，代码如下——————————————————————-‘一个窗体，一个textbox，一个cmdButton，textbox内填写你要切换的程序窗口标题，比如说“PopKart Client”或者“诛仙” （注意不含引号）’以下是代码Private Sub Command1_Click()Dim MyAppID, ReturnValue ‘调用AppActivateIf Text1.Text = “” Then ‘防止出现空字符串MsgBox “请填写窗口标题”Else: AppActivate Text1.Text ‘将制定的窗口激活End IfEnd Sub

你也可以看看相关的教程：

激活一应用程序窗口。

语法

AppActivate title[, wait]

AppActivate 语句的语法具有以下几个命名参数：

部分 描述

title 必需的。字符串表达式，所要激活的应用程序窗口的标题。可以使用 Shell 函数返回的任务识别码来替换 title，以激活应用程序。

wait 可选的。Boolean 值，说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为 False（缺省），那么，即使调用的应用程序没有焦点，也直接激活指定的应用程序。如果为 True，则调用的应用程序会等到有焦点后，才激活指定的应用程序。

说明

AppActivate 语句将焦点移动到命名的应用程序或窗口，但并不影响焦点是否最大化或最小化。当用户采取行动改变焦点或将窗口关闭时，就会将焦点从活动的应用程序窗口移动出去。可用 Shell 函数启动一个应用程序并设置窗口样式。

在决定激活哪个应用程序时，请将 title 与每一个运行中的应用程序的标题字符串进行比较。如果没有完全匹配，就激活任何这样的应用程序，其标题字符串以 title 开头。如果以 title 命名的应用程序有很多实例，则激活任何一个实例。

AppActivate 语句示例

本示例说明使用 AppActivate 语句来激活应用程序的各种用法。示例中用到的 Shell 语句均假定该应用程序已经存在指定的路径中。

Dim MyAppID, ReturnValue

AppActivate “Microsoft Word” ’ 激活 Microsoft

’ Word。

’ AppActivate 也可利用 Shell 函数的返回值。

MyAppID = Shell(“C:\WORD\WINWORD.EXE”, 1) ’ 运行 Microsoft Word。

AppActivate MyAppID ’ 激活 Microsoft

’ Word。

’ 您也可使用 Shell 函数的返回值。

ReturnValue = Shell(“c:\EXCEL\EXCEL.EXE”,1) ’ 运行 Microsoft Excel。

AppActivate ReturnValue ’ 激活 Microsoft

’ Excel。

相关基础知识：

命名参数

一参数，在对象库中预先定义了其名称。对每个参数，不必拘泥于语法所规定的特定顺序来提供值，而是只需按任何顺序用命名参数分配值。例如，假设一方法接受了三个参数：

DoSomeThing namedarg1, namedarg2, namedarg3

在对命名参数赋值时，可使用以下语句：

DoSomeThing namedarg3 := 4, namedarg2 := 5, namedarg1 := 20

注意，命名的参数不必按语法中安排的正规顺序出现。

字符串表达式

任何其值为一连串字符的表达式。字符串表达式的元素可包含返回字符串的函数、字符串文字、字符串常数、字符串变量、字符串 Variant 或返回字符串 Variant (VarType 8) 的函数。

Boolean 数据类型

只有两种值的数据类型，这两种值分别为 True(-1) 或 False(0)。布尔变量是以 16 位 ( 2 字节 ) 数字存储的。

另外一些方法

Private Sub Command1_Click()

Shell “C:\Program Files\StormII\Storm.exe”, 1

end sub

如果不是可执行程序，你就要指定找开此文件的程序，如我要打开C盘上的一个叫123.txt的文件，

Private Sub Command1_Click()

Shell “notepad.exe C:\123.txt”, 1

end sub