vbs+hta中实现在单个 onClick 参数中包括多个子例程的代码

网络编程 vbs+hta中实现在单个 onClick 参数中包括多个子例程的代码 06-21

问：
您好，脚本专家！在您的 HTA 示例中，您为我们展示了如何单击一个按钮使一个子例程得以运行。那么，如何向一个按钮的 onClick 参数添加两个或多个子例程呢？

-- FM

答：
您好，FM。您知道，在认知心理学中有一个有趣的分支，称为问题发现；其理论是您回答问题的能力通常首先取决于您问到的问题。例如，您 ? 以及其他几个人 ? 想要知道如何在一个按钮的 onClick 参数中指定多个子例程。我们见过人们尝试对代码做出各种修改，以下就是一个例子：

<input type="button" value="Run Button" onClick="Script_1; Script_2; Script_3">

正如您所见，这不能解决问题。

那么让我们将发现问题的技能应用到测试中，看看是否能够用其它方式来描述该问题。（通常，脚本专家无需发现问题；问题会设法找到我们。）下面是问题的关键所在：我们是真的要向 onClick 参数添加多个子例程，还是仅想要在任何时候单击按钮时能够运行多个子例程？

如果是后者，我们有下面的答案：


<html>  
<head>  
<title>Multiple Subroutines</title>  

<HTA:APPLICATION   
     ID="objHTAHelpomatic"  
     APPLICATIONNAME="MultipleSubroutines"  
     SCROLL="yes"  
     SINGLEINSTANCE="yes"  
     WINDOWSTATE="maximize"  
>  
</head>  

<SCRIPT Language="VBScript">  

Sub RunScripts  
    Script_1  
    Script_2  
    Script_3  
End Sub  

Sub Script_1  
    Msgbox "This is subroutine 1."  
End Sub  

Sub Script_2  
    Msgbox "This is subroutine 2."  
End Sub  

Sub Script_3  
    Msgbox "This is subroutine 3."  
End Sub  

</SCRIPT>  

<body>  
    <input type="button" value="Run Button" onClick="RunScripts">  
</body>  
</html>

注意：前面的代码被设计为从一个 HTA（HTML 应用程序）运行。如果想要测试该代码，只需复制该脚本，将其粘贴到记事本或者其它的文本编辑器，并且用 .HTA 文件扩展名保存。

如果粗略地看一下该代码，您可能会注意到按钮的 HTML 标记：

<input type="button" value="Run Button" onClick="RunScripts">

正如您所见到的那样，我们仅在 onClick 参数中指定了一个单一子例程 (RunScripts)。哦，但是看一下子例程 RunScripts 的代码：

Sub RunScripts
Script_1
Script_2
Script_3
End Sub

答案就在这里。在该子例程中我们所做的就是调用其它三个子例程： Script_1、Script_2 和 Script_3。这就是我们如何从一个按钮的单击事件中运行多个子例程的方法：我们并不把所有那些子例程都放入 onClick 参数中，而是将其放入 onClick 所调用的单个子例程中。

vbs中实现启动两个应用程序，一直等到其中一个程序结束，然后关闭另一个？
问：嗨，脚本专家！这是我想要完成的任务：我想要用一个脚本启动两个可执行文件。第一个应用程序关闭后，我想让这个脚本关闭第二个应用程序，

用vbs实现对文本文件中的项计数
问：嗨，脚本专家！如何向文本文件的顶部添加行？--FT答：您好，FT。您知道，在亚瑟·柯南·道尔爵士生涯的某一时刻，他实际上将夏洛克·福尔摩斯

用vbs对文本文件的内容进行排序
问：您好，脚本专家！我有一个包含计算机名称列表的文本文件。如何按照字母顺序对该文件进行排序？--LR答：您好，LR。如果想偷懒的话，我们就会

编辑：编程语言

标签：例程,脚本,多个,按钮,您好