作者： | 来源：互联网 | 2023-09-24 20:28
通过执行一段VBS代码来操控窗体内的控件也可以使用AddObject方法添加自己的类,那么在动态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
>>>运行效果如下图<<<
京公网安备 11010802041100号