做過(guò)工控的人都知道，對(duì)腳本語(yǔ)言的支持是標(biāo)準(zhǔn)組態(tài)軟件應(yīng)具備的一個(gè)基本功能（如 iFix，組態(tài)王等）。如果我們用VB開發(fā)類似的功能，能實(shí)現(xiàn)嗎？

想必大家都知道微軟提供了 Micrsoft Script Control 1.0 控件，在 VB 版也見(jiàn)到了大家對(duì)這個(gè)控件的使用（如用 ExecuteStatement 方法執(zhí)行腳本命令 ExecuteStatement （" msgbox “ 你好 ”” ） ??? ）。但最重要的一點(diǎn)， ActiveX 腳本與宿主應(yīng)用程序數(shù)據(jù)交互與傳遞，卻沒(méi)有完整的解決方案。

我也是探索了很長(zhǎng)一段時(shí)間，才摸索出一點(diǎn)數(shù)據(jù)傳遞與交互的技巧，現(xiàn)在共享出來(lái)，供大家討論研究。

示例程序介紹：

1、 首先加載 Micrsoft Script Control 1.0 控件。

對(duì)它基本上不用配置，默認(rèn)語(yǔ)言 VBScript，對(duì)該部分的介紹請(qǐng)下載VBScript命令集 （ http://blog.csdn.net/yefanqiu 【葉帆資源】[03] VBScript指令集）

2、 添加一個(gè)窗體（frmTest），里面添加如下代碼：

'************************************************************************* '**模 塊 名：frmTest '**說(shuō) 明：YFsoft 版權(quán)所有2004 - 2005(C) '**創(chuàng) 建 人：葉帆 '**日 期：2004-10-15 11:00:32 '**修 改 人： '**日 期： '**描 述：腳本語(yǔ)言運(yùn)用探索 '**版 本：V1.0.0 '************************************************************************* Option Explicit '************************************************************************* '**函 數(shù) 名：chkRun_Click '**輸 入：無(wú) '**輸 出：無(wú) '**功能描述：腳本運(yùn)行控制 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 11:19:31 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Private Sub chkRun_Click() If chkRun.value = 1 Then tmrRun.Interval = cmbRunTime.Text '運(yùn)行間隔 tmrRun.Enabled = True '開始運(yùn)行 以固定間隔循環(huán)運(yùn)行 txtEdit.Enabled = False Else tmrRun.Enabled = False '停止運(yùn)行 txtEdit.Enabled = True End If End Sub '************************************************************************* '**函 數(shù) 名：cmbType_Click '**輸 入：無(wú) '**輸 出：無(wú) '**功能描述：操作類型切換 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 12:56:19 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Private Sub cmbType_Click() cmdSCDemo1_Click End Sub '************************************************************************* '**函 數(shù) 名：cmdRun_Click '**輸 入：無(wú) '**輸 出：無(wú) '**功能描述：?jiǎn)未芜\(yùn)行腳本 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 11:51:29 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Private Sub cmdRun_Click() Call tmrRun_Timer End Sub '************************************************************************* '**函 數(shù) 名：cmdSCDemo1_Click '**輸 入：無(wú) '**輸 出：無(wú) '**功能描述：參數(shù)傳遞演示 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 11:03:29 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Private Sub cmdSCDemo1_Click() Dim strType As String '內(nèi)部變量定義 類似組態(tài)王中的數(shù)據(jù)字典 valMem.Clear valMem.SetValue "Value1", txtValue(0) valMem.SetValue "Value2", txtValue(1) valMem.SetValue "Value3", 0 Select Case cmbType.ListIndex Case 0: strType = "+" Case 1: strType = "-" Case 2: strType = "*" Case 3: strType = "/" End Select txtEdit = "dim lngValue1" & vbCrLf txtEdit = txtEdit & "dim lngValue2" & vbCrLf txtEdit = txtEdit & "dim lngValue3" & vbCrLf txtEdit = txtEdit & "lngValue1=vm.getvalue(" & Chr(34) & "Value1" & Chr(34) & ")" & vbCrLf txtEdit = txtEdit & "lngValue2=vm.getvalue(" & Chr(34) & "Value2" & Chr(34) & ")" & vbCrLf txtEdit = txtEdit & "lngValue3=CInt(lngValue1)" & strType & "CInt(lngValue2)" & vbCrLf txtEdit = txtEdit & "vm.setvalue " & Chr(34) & "Value3" & Chr(34) & ",lngValue3 " & vbCrLf End Sub '************************************************************************* '**函 數(shù) 名：cmdSCDemo2_Click '**輸 入：無(wú) '**輸 出：無(wú) '**功能描述：對(duì)象操作演示 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 13:41:23 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Private Sub cmdSCDemo2_Click() txtEdit = "dim lngC" & vbCrLf txtEdit = txtEdit & "lngC=clng(fm.txtdemo.text)" & vbCrLf txtEdit = txtEdit & "lngC=lngC+10" & vbCrLf txtEdit = txtEdit & "if lngC>255 then lngC=0" & vbCrLf txtEdit = txtEdit & "fm.picdemo.backcolor=rgb(lngC,0,0)" & vbCrLf txtEdit = txtEdit & "fm.txtdemo.text=cstr(lngC)" & vbCrLf End Sub '************************************************************************* '**函 數(shù) 名：Form_Load '**輸 入：無(wú) '**輸 出：無(wú) '**功能描述：初始化 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 11:13:03 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Private Sub Form_Load() '添加參數(shù)運(yùn)用的 內(nèi)部可使用的變名 外部實(shí)際變量名 scCommand.AddObject "vm", valMem, True '向腳本添加外部可用的對(duì)象 '最后一個(gè)參數(shù): True表示它的子類屬性方法在腳本中可以操作 false 表示今該對(duì)象本身的方法屬性可用 scCommand.AddObject "fm", Me, True '腳本運(yùn)行間隔設(shè)置 cmbRunTime.ListIndex = 0 '參數(shù)操作類型 cmbType.ListIndex = 0 End Sub '************************************************************************* '**函 數(shù) 名：tmrRun_Timer '**輸 入：無(wú) '**輸 出：無(wú) '**功能描述：腳本運(yùn)行 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 11:29:46 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Private Sub tmrRun_Timer() On Error GoTo ToExit '打開錯(cuò)誤陷阱 '------------------------------------------------ Dim i As Long '參數(shù)輸入 valMem.SetValue "Value1", txtValue(0).Text valMem.SetValue "Value2", txtValue(1).Text valMem.SetValue "Value3", 0 '腳本運(yùn)行 scCommand.ExecuteStatement txtEdit.Text '參數(shù)輸出 lstValueOut.Clear For i = 1 To valMem.Count lstValueOut.AddItem valMem.GetValue("", i) Next '------------------------------------------------ Exit Sub '---------------- ToExit: txtError = "錯(cuò) 誤 號(hào):" & Err.Number & " 時(shí)間:" & Format(Now, "YYYY-MM-DD HH:MM:SS") & vbCrLf txtError = txtError & "錯(cuò)誤信息:" & Err.Description & vbCrLf txtError = txtError & "錯(cuò)誤來(lái)源:" & Err.Source End Sub

3、 添加一個(gè)模塊（mdlBase），里面添加如下代碼：

'************************************************************************* '**模 塊 名：mdlBase '**說(shuō) 明：YFsoft 版權(quán)所有2004 - 2005(C) '**創(chuàng) 建 人：葉帆 '**日 期：2004-10-15 11:10:58 '**修 改 人： '**日 期： '**描 述：公共變量區(qū) '**版 本：V1.0.0 '************************************************************************* Option Explicit Public valMem As New clsScriptIO '腳本語(yǔ)言參數(shù)交換的變量設(shè)置區(qū)

4、 添加一個(gè)類（clsScriptIO），類名為clsScriptIO，里面添加如下代碼：

'************************************************************************* '**模 塊 名：clsScriptIO '**說(shuō) 明：YFsoft 版權(quán)所有2004 - 2005(C) '**創(chuàng) 建 人：葉帆 '**日 期：2004-10-15 11:56:32 '**修 改 人： '**日 期： '**描 述：與腳本語(yǔ)言參數(shù)交互的類模塊 '**版 本：V1.0.0 '************************************************************************* Option Explicit Private cltScriptMem As New Collection '變量設(shè)置區(qū) '************************************************************************* '**函 數(shù) 名：Count '**輸 入：無(wú) '**輸 出：(Variant) - '**功能描述：內(nèi)存變量個(gè)數(shù) '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 12:00:57 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Public Property Get Count() As Variant Count = cltScriptMem.Count End Property '************************************************************************* '**函 數(shù) 名：GetValue '**輸 入：strKey(String) - 變量名稱 '** ：Optional lngNo(Long = 0) - 變量索引 '**輸 出：(Variant) - 返回值 '**功能描述：取得制定名稱的變量值 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 12:01:59 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Public Function GetValue(strKey As String, Optional lngNo As Long = 0) As Variant On Error GoTo ToExit '打開錯(cuò)誤陷阱 '------------------------------------------------ If lngNo > 0 Then '如果輸入索引號(hào)，則返回索引號(hào)指定的變量 GetValue = cltScriptMem.Item(lngNo) Else GetValue = cltScriptMem.Item(strKey) End If '------------------------------------------------ Exit Function '---------------- ToExit: End Function '************************************************************************* '**函 數(shù) 名：SetValue '**輸 入：strKey(String) - 變量名 '** ：value(Variant) - 設(shè)置變量 '**輸 出：無(wú) '**功能描述：為指定的變量賦值 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 12:07:05 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Public Sub SetValue(strKey As String, value As Variant) On Error GoTo ToExit '打開錯(cuò)誤陷阱 '------------------------------------------------ cltScriptMem.Remove (strKey) cltScriptMem.Add value, strKey '------------------------------------------------ Exit Sub '---------------- ToExit: Resume Next End Sub '************************************************************************* '**函 數(shù) 名：DelValue '**輸 入：strKey(String) - 變量名 '** ：Optional lngNo(Long = 0) -索引號(hào) '**輸 出：無(wú) '**功能描述：刪除制定的變量 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 12:08:55 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Public Sub DelValue(strKey As String, Optional lngNo As Long = 0) On Error GoTo ToExit '打開錯(cuò)誤陷阱 '------------------------------------------------ If lngNo > 0 Then '如果輸入索引號(hào)，則刪除索引號(hào)指定的變量 cltScriptMem.Remove (lngNo) Else cltScriptMem.Remove (strKey) End If '------------------------------------------------ Exit Sub '---------------- ToExit: End Sub '************************************************************************* '**函 數(shù) 名：Clear '**輸 入：無(wú) '**輸 出：無(wú) '**功能描述：刪除變量 '**全局變量： '**調(diào)用模塊： '**作 者：葉帆 '**日 期：2004-10-15 13:15:15 '**修 改 人： '**日 期： '**版 本：V1.0.0 '************************************************************************* Public Sub Clear() On Error GoTo ToExit '打開錯(cuò)誤陷阱 '------------------------------------------------ While cltScriptMem.Count > 0 cltScriptMem.Remove (1) Wend '------------------------------------------------ Exit Sub '---------------- ToExit: Resume Next End Sub

功能演示：

1、 參數(shù)傳遞（單擊【傳遞參數(shù)演示】按鈕，自動(dòng)添加相應(yīng)腳本代碼。可以執(zhí)行加減乘除等操作。

下圖演示了錯(cuò)誤捕捉（被 0 除錯(cuò)誤）

2、對(duì)象操作（單擊【對(duì)象操作演示】按鈕，自動(dòng)添加相應(yīng)腳本代碼。可以執(zhí)行控件的賦值和背景色變化操作。