zoukankan      html  css  js  c++  java
  • 在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

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

  • 相关阅读:
    windows nginx
    stdClass 标准
    array_merge
    array_pop
    array_push
    array_unique
    GMT与UTC简介(转)
    curl-手册
    13.5. zipfile — Work with ZIP archives
    7. Input and Output
  • 原文地址:https://www.cnblogs.com/xiii/p/7215726.html
Copyright © 2011-2022 走看看