<!--StartFragment -->
Class clsTest1
Public oDict
Private Sub class_initialize()
Set oDict = CreateObject("Scripting.Dictionary")
End Sub
Public Function setting
oDict.Add "a",""
oDict.Add "b",""
oDict.Add "c",""
oDict.Add "d",""
End Function
Public Function test1()
oDict("a") = "aaaa"
oDict("b") = "bbbb"
End Function
Public Function test2()
oDict("c") = "cccc"
oDict("d") = "dddd"
End Function
Public Function ShowODict(name)
Call test1()
Call test2()
ShowODict = oDict.Item(name)
End Function
End Class
Class clsTest2
Dim aaa
Private Sub class_initialize
Set aaa = New clsTest1
End Sub
Public Function getValue()
msgbox aaa.ShowODict("c")
End Function
End Class
Set aa=new clsTest2
aa.getValue()
Public oDict
Private Sub class_initialize()
Set oDict = CreateObject("Scripting.Dictionary")
End Sub
Public Function setting
oDict.Add "a",""
oDict.Add "b",""
oDict.Add "c",""
oDict.Add "d",""
End Function
Public Function test1()
oDict("a") = "aaaa"
oDict("b") = "bbbb"
End Function
Public Function test2()
oDict("c") = "cccc"
oDict("d") = "dddd"
End Function
Public Function ShowODict(name)
Call test1()
Call test2()
ShowODict = oDict.Item(name)
End Function
End Class
Class clsTest2
Dim aaa
Private Sub class_initialize
Set aaa = New clsTest1
End Sub
Public Function getValue()
msgbox aaa.ShowODict("c")
End Function
End Class
Set aa=new clsTest2
aa.getValue()
相关推荐
vbs-远程调用vbs-远程调用vbs-远程调用vbs-远程调用
VBS 调用程序VBS 调用程序VBS 调用程序VBS 调用程序VBS 调用程序
在vbs中调用win32 api,使VBS如虎添翼。
winccSp7.4中使用脚本调用画面(VBS),对阀门、电机等调用一个画面,方便阀门、电机等的控制
简单的登录界面,使用vbs文件调用bat格式形式,来调用其他模块儿。使用sprintboot技术。
Dim objHTTP,xmlDOC,strWebserviceURL,strRequest,bOK,xmlStr Set objHTTP = CreateObject("MSXML2.XMLHTTP
Qt工程,c++代码调用vbs脚本函数,一个很简单的demo,参考学习
西门子WinCC 如何使用 VBS 调用文件打开对话框pdf,本文介绍了在WinCC 中如何使用 VBS 调用文件打开对话框,系统环境 XP SP3, IE 6.0 SP3。
电脑学习vbs整蛊代码.vbs电脑学习vbs整蛊代码.vbs电脑学习vbs整蛊代码.vbs电脑学习vbs整蛊代码.vbs电脑学习vbs整蛊代码.vbs电脑学习vbs整蛊代码.vbs电脑学习vbs整蛊代码.vbs电脑学习vbs整蛊代码.vbs电脑学习vbs整蛊...
vbs脚本调用windows api范例经典 ,一看就懂!
用VBS获取网页源代码.vbs set http=createobject("Microsoft.XMLHTTP") '\\调用XMLHTTP对象 url="http://www.119880.com/qq.txt" '\\赋予变量URL值 Set hhh = createObject("Microsoft.XMLHTTP") hhh.open "get",...
软件安装无管理员权限的user账户的PC客户端只能使用第三方工具,但又担心不安全,本工具是系统自带vbs支持的,简单代码来实现以vbs文件调用runas命令运行需要管理用户授权的程序或批处理文件,并自动输入密码,真正...
vb调用vbs脚本的一个小例子
c#(winform)调用VBS脚本 c#(winform)调用VBS脚本
2.调用QTP的接口文档中,我没有过多的给大家说明,但是提供了vbs调用接口的程序示例.希望依葫芦画瓢,能给大家带来方便。 3.不需要资源分下载 4.百度云上也分享了: http://pan.baidu.com/s/1kThvmBl
一个恶搞的程序代码 一个恶搞的程序代码 一个恶搞的程序代码 一个恶搞的程序代码 一个恶搞的程序代码
大漠插件(VBS调用).rar
vbs的具体应用vbs的具体应用vbs的具体应用
vbs显示窗体(显示控件,调用标准DLL还要大家再去扩展) 用一个方法可以直接让PY显示任意控件,VBS也可以做界面 VBS就可以当软件用了,支持API调用(Findwindow),支持加载控件,他本身就支持调用对象creatobject,那...