VB程序中使用脚本支持

 正在开发小秘书系统并不断提高其智能水平,其中用到的是脚本支持的技术
虽然这部分不属于初学者使用,然而有些人想学这个东东,这里就发~~~布出去吧!
新建一个标准exe工程(Standard EXE);
"工程"(Project)-->"部件"(Components)
选定"Microsoft Script Control 1.0" ,位置是C:\WINDOWS\system32\msscript.ocx
添加控件到工程,个人爱好我命名mscScript
然后添加一些控件,得到如下图的界面,然后是下面这些函数,过程:
Private Sub Form_Load()
 mscScript.AddObject "frmMain", frmMain
 mscScript.AddObject "objScript", objScript
End Sub
'---------------------------------------
'vbClass Moudle clsFunction
'---------------------------------------
Public Function strRun(ByVal str As String) As String
 Dim strName As String
 Dim strExpress() As String
 strName = Left(str, InStr(str, " ") - 1)
 strExpress = Split(Mid(str, InStr(str, " ") + 1), ",")
 strRun = CStr(frmMain.mscScript.Run(strName, strExpress(0), strExpress(1)))
End Function
需要注意是类模块要生成对象:Public objScript As New clsFunction,这个知识在一般程序开发下很少接触;
然后就是vbScript(脚本)和Visual Basic的区别,前者是后者的子集,语法上不能混乱
最常见的错误是:vbscript的变量只有Variant类型,Next 后面不跟变量名等...
源代码在我的资源那里有,
http://prsniper.download.csdn.net/user/prsniper/all/1
希望更多的人学好编程,不断提高技术,深度的探讨可以加我QQ:627666017
空间只面向新手,,,