ScriptControl控件执行自定义VBS脚本示例分析

ScriptControl控件-msscript.ocx msscript.oca


代码如下:

'AllowUI:可读写,布尔值,检测是否允许运行用户的接口元素.如果为False,则诸如消息框之类的界面元素不可见.
'CodeObject: 返回宿主被调用的特定的公用成员对象.只读.
'Modules:只读.返回宿主提供给脚本的组件库模块.COM组件通常都是以对象收集的形式向用户提供可以留给用户二次开发的对象集合,每一个收集即一个Modules（模块）.
'Language:设置或获取脚本引擎解释的语言,例如:VBScript.JScript.
'Name:返回模块.过程.或者对象的名字,只读属性.
'Procedures:返回模块中定义的过程,只读.
'SitehWnd:窗口句柄,如果本控件以ActiveX控件创建,则此属性为控件的容器；如果是以自动化对象创建,则为0,即桌面.此属性可读写.
'State:设置或返回控件的状态,如果为0,控件只执行语句但不转发事件,为1则为加入的本控件接受的对象转发事件.
'Timeout:设置或返回控件的相应脚本的超时值.当超时值到达时,将引发Timeout事件.也可设为-1,表示无超时设定.
'UseSafeSubset: 设置或返回宿主程序是否关心安全.宿主程序的安全级别可以从此属性设置.
'Error:错误对象,发生错误时,此属性返回一个错误对象.
'AddCode :往一个模块加入一些代码.格式为:AddCode code,可以调用多次.
'AddObject:向一个模块加入一个对象,格式:ScriptControl.AddObject(name, object[,addMembers]),name为欲加入的对象名字,Object为实际的对象,addMembers为可选指示此对象是否为全局对象,False为局部对象.只有往本对象中加入对象后才能在脚本中使用
'Eval:求值表达式.格式为object.eval_r(expression) .
'ExecuteStatement: 解释并执行脚本语句.格式: object.ExecuteStatement statement.
'Reset: 丢弃所有的对象和代码.State属性将为0.
'Run:运行一个指定的过程.格式:object.Run(procedureName,parameters()),procedureName为要运行的过程名,parameters()为参数
'仅有两个事件:error 和TimeOut.前者可以用于错误捕获,后者在脚本得不到响应时发生.
Private Sub Command1_Click()
Dim strFun As String
Dim a, b As Long
a = 2
b = 3
strFun = "function Add(a,b)" & vbCrLf & "Add=a+b" & vbCrLf & "End   Function" & vbCrLf
ScriptControl1.Modules.Add "MyCode"
ScriptControl1.Modules.Item(1).AddCode strFun
MsgBox ScriptControl1.Run("Add", a, b)
End Sub
Private Sub Command2_Click()
Dim CodeStr As String
CodeStr = "msgbox 2+3" & vbCrLf   
ScriptControl1.ExecuteStatement CodeStr
End Sub
Private Sub Command3_Click()      //运行print 运算表达式
Dim CodeStr As String
CodeStr = Text1.Text
CodeStr = Mid(CodeStr, 6)
MsgBox ScriptControl1.Eval(CodeStr)
End Sub

赞 (0)

相关推荐

  • VC++中HTControl控件类的CHTSlider控制杆控件类简介

    本文所述的是HTControl控件中的一个控制杆控件类文件代码,此类是完全独立的,没有任何基类.直接由WIN32 API实现.你可以在SDK,MFC,wxWidget等等方式下使用它.控制中包括一个垂直的控制杆控件,使用方式和水平的完全相同.窗体必须动态创建,具体代码段如下: m_HTSliderR.Create(130, 500, 400, 14, m_hWnd, iChildId++, 0, 9, 14); m_HTSliderR.SetBgPic(_T(".\\pic\\SliderBg.

  • C++中MFC Tab Control控件的使用详解

    1. 新建一个MFC工程, 取名MyTab, 选择Dialog based, 然后Finish. 2. 删除对话框上默认添加的三个控件. 添加Tab Control控件并在Property属性中设置ID为IDC_TABTEST 在More Styles里勾上Bottom. 调速尺寸使其布满整个对话框, 我这边Tab Control的尺寸最后为164X203. 在ClassWizard为其添加变量, 变量名为m_tab. 类型为CTabCtrl. 3. 在对话框的初始化函数OnInitDialog

  • c#重写TabControl控件实现关闭按钮的方法

    c#重写TabControl控件实现关闭按钮的方法

    1.c#里面的TabControl控件没有关闭按钮,而且很难看. 2.有一些已经做好的第三方控件,但是收费. 3.由于我的故障树推理诊断项目在绘图的时候允许同时打开多个文档进行操作,就要实现类似于浏览器的多标签功能,而且要可以关闭. 4.所以自己写一个类继承TabControl类,然后重写一些里面的方法即可实现. 5.特色:有关闭按钮,标签有背景颜色,选中的标签和没选中的颜色不一样,实现鼠标中键和右键的功能 先看我的项目中的完整代码,有很多代码是我的项目需要,可根据你的项目需求删减,核心的代码后

  • VC++中HTControl控件类之CHTRichEdit富文本编辑控件实例

    本文所述CHTRichEdit控件类继承自CRichEditCtrl,为了避免CRichEditCtrl的界面风格与CRichEditCtr的滚动条不相协调,因此在CHTRichEdit控件中去掉了CRichEditCtrl的默认滚动条,替换成自己绘制的滚动条,这样就不会破坏整体外观了.替换的滚动条并不需要与默认的滚动条同样的宽度,不受操作系统主题的影响,可以支持任意的宽度,而且在不需要滚动条时它会自动消失,使软件布局不会受到影响. 具体实现代码如下: #if !defined(__CHTRic

  • VC中Tab control控件的用法详细解析

    VC中Tab control控件的用法详细解析

    1. 新建一个MFC工程, 取名MyTab, 选择Dialog based, 然后Finish. 2. 删除对话框上默认添加的三个控件. 添加Tab Control控件并在Property属性中设置ID为IDC_TABTEST 在More Styles里勾上Bottom. 调速尺寸使其布满整个对话框, 我这边Tab Control的尺寸最后为164X203. 在ClassWizard为其添加变量, 变量名为m_tab. 类型为CTabCtrl. 3. 在对话框的初始化函数OnInitDialog

  • C++ Custom Control控件向父窗体发送对应的消息

    C++ Custom Control控件向父窗体发送对应的消息

    向父窗体发送消息 ,这里只讲发送 WM_NOTIFY  消息, 其它消息是相同的 在 控件中的某个函数中 设置发送消息的程序 首先定义一个WM_NOTIFY消息的专用结构. NMHDR nm; nm.code = 123456; // 这里是消息的区别代码 nm.hwndFrom = m_hWnd;//这是控件的HWND句柄 nm.idFrom = GetDlgCtrlID();//这是得到的对话框的ID CWnd* pWnd; pWnd = GetParent(); //得到父窗体 窗口 if

  • ScriptControl控件执行自定义VBS脚本示例分析

    ScriptControl控件-msscript.ocx msscript.oca 复制代码 代码如下: 'AllowUI:可读写,布尔值,检测是否允许运行用户的接口元素.如果为False,则诸如消息框之类的界面元素不可见.'CodeObject: 返回宿主被调用的特定的公用成员对象.只读.'Modules:只读.返回宿主提供给脚本的组件库模块.COM组件通常都是以对象收集的形式向用户提供可以留给用户二次开发的对象集合,每一个收集即一个Modules(模块).'Language:设置或获取脚本引

  • 自定义vbs脚本实现开机后延时启动指定程序的方法

    概述 系统开机时,顺带自动启动了不少驱动程序,使得电脑开机后鼠标要呆滞许久.为了加快windows的开机速度,在参考网上不少大牛的资料后,整理出使用vbs脚本实现开机后延时启动程序的方法 vbs内容示例: 复制代码 代码如下: Dim delayer Set delayer = CreateObject("WScript.Shell") WScript.sleep 8000 delayer.Run """C:\Program Files(x86)\King

  • ios的collection控件的自定义布局实现与设计

    ios的collection控件的自定义布局实现与设计

    collection控件用来实现界面的各种自定义布局,最常用其作为横向.竖向的布局控件.很早之前,系统对于collection的支持并不是很好.所以自己实现了支持自定义布局.自定义cell的collection控件.自定义的collection可以满足所有的产品特殊需求及动态效果,例如在某些特殊情况下可能需要除选中cell之外的其它cell执行布局动画等.在collection的基础之上,我又实现了支持cell拖动.拖离窗体的tabview控件.本文主要介绍自定义collection的设计与实现

  • Android APT 实现控件注入框架SqInject的示例

    Android APT 实现控件注入框架SqInject的示例

    作者 大家好,我叫小鑫,也可以叫我蜡笔小鑫

  • Android自定义组合控件之自定义下拉刷新和左滑删除实例代码

    Android自定义组合控件之自定义下拉刷新和左滑删除实例代码

    绪论 最近项目里面用到了下拉刷新和左滑删除,网上找了找并没有可以用的,有比较好的左滑删除,但是并没有和下拉刷新上拉加载结合到一起,要不就是一些比较水的结合,并不能在项目里面使用,小编一着急自己组合了一个,做完了和QQ的对比了一下,并没有太大区别,今天分享给大家,其实并不难,但是不知道为什么网上没有比较好的Demo,当你的项目真的很急的时候,又没有比较好的Demo,那么"那条友谊的小船儿真是说翻就翻啊",好了,下面先来具体看一下实现后的效果吧: 代码已经上传到Github上了,小伙伴们记

  • Element-ui树形控件el-tree自定义增删改和局部刷新及懒加载操作

    需求: vue-cli项目树形控件:一级节点为本地节点,默认展开一级节点,增删改后局部刷新数据. 增加节点,点击确定后局部刷新,渲染新数据. 源码 element组件样式 <el-tree class="treeitems" :data="data" node-key="id" :props="defaultProps" :load="loadNode" lazy :default-expanded-

  • asp.net使用原生控件实现自定义列导出功能的方法

    asp.net使用原生控件实现自定义列导出功能的方法

    目录 自定义列实现 尝试一 尝试二 总结 自定义列实现 最近负责开发公司内部使用的人事信息化系统时,有一个需求是这样的,需要在页面中可以用户每次导出Excel时自定义需要导出哪些列,经过半天的琢磨和倒腾,总算完成了这个需求.写篇blog记录一下小菜鸡的成长历程.哈哈哈. 需求见截图所示: tbg:数据源使用DataTable.且GridView中用于绑定数据的BoundFiled列中使用的DataField全部是与CheckBox中的ID一一对应,这样方便后面循环这些控件时进行操作. 尝试一 数

  • 验证用户必选CheckBox控件与自定义验证javascript代码

    验证用户必选CheckBox控件与自定义验证javascript代码

    CheckBox控件,由于它的值是选择与非选择.因此在提交数据时,想让用户必须选择CheckBox,普通情况之下,不好做验证. 但我们可以使用asp:CustomValidator来验证,不过还得写自定义验证Javascript代码,可参考如下: 复制代码 代码如下: function ValidateCheckBox(sender, args) { var checkbox = document.getElementById("<%=CheckBox1.ClientID %>&qu

  • JS实现动态给标签控件添加事件的方法示例

    本文实例讲述了JS实现动态给标签控件添加事件的方法.分享给大家供大家参考,具体如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <

  • AspNetPager控件的最基本用法示例介绍

    AspNetPager控件的最基本用法示例介绍

    AspNetPager控件是一个基于.net的第三方免费开源控件,具有开发高效.使用方便.功能完整等优点.它弥补了GridView内置分页以及PageDatasource类辅助分页的不足,将分页数据逻辑和页面UI分离开来,非常有利于SQL分页的实现.下面仅举一个最基本的用法,帮助初学者入门. 到AspNetPage官方网站相应页面下载控件:点击打开链接 下载后解压缩,里面有一个AspNetPager.dll文件,它就是我们要使用的控件.另外还有一个AspNetPager.xml文件,它是对应的文

随机推荐