在VB中动态执行VBS代码,可操控窗体控件

Posted 一个码农的蹉跎岁月

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了在VB中动态执行VBS代码,可操控窗体控件相关的知识,希望对你有一定的参考价值。

通过执行一段VBS代码来操控窗体内的控件

也可以使用AddObject方法添加自己的类,那么在动态VBS代码中也一样可以使用

在增加程序扩展性或是有脚本化需求的时候,这个方法还是不错的.

Option Explicit
Dim vbs As Object

Private Sub Command1_Click()
    vbs.ExecuteStatement "showtime"
End Sub

Private Sub Form_Load()
    Set vbs = CreateObject("MSScriptControl.ScriptControl")
    vbs.Language = "VBScript"
    vbs.AddObject "form1", Me, True
    vbs.AddCode "sub showtime()" & vbCrLf & "form1.command1.caption=now" & vbCrLf & "end sub"
End Sub

>>>运行效果如下图<<<

技术分享

以上是关于在VB中动态执行VBS代码,可操控窗体控件的主要内容,如果未能解决你的问题,请参考以下文章

如何VB 中在一个窗体中执行另一个窗体中的代码

vb中如何使窗体和控件的相对位置不发生改变

VB模拟鼠标点击webbrowser控件网页

vb.net2005中如何调用外部vbs文件

vb中怎样设置窗体中的控件为透明

如何用vb向excel中添加控件,并响应事件