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

空间只面向新手,,,