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," ") + 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

空间只面向新手,

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!