您的位置：首页 > 编程语言 > VB

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

2016-03-31 04:09 399 查看
通过执行一段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


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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航