MSScript.OCX:set gscCalc = CreateObject("ScriptControl")
gscCalc.Language = "VBScript"gscCalc.AddObject form1, "Form1"
gscCalc.AddObject form2, "Form2"
dim n as string
n = "form1"dim nObj as Object
set nObj = gscCalc.EVal(n)'now nObj is form1
gscCalc.Language = "VBScript"gscCalc.AddObject form1, "Form1"
gscCalc.AddObject form2, "Form2"
dim n as string
n = "form1"dim nObj as Object
set nObj = gscCalc.EVal(n)'now nObj is form1
解决方案 »
- VB有类似C语言里的memset函数吗?
- 送分100分:请问如何根据ACCESS中现有的表自动生成创建该表的SQL代码
- 关于 byte数组的含义和应用
- 如何在自己建的模块里使用UserControl里的控件?
- 窗体属性BorderStyle = 0时,如何在窗体右下脚控制窗体大小?
- 怎样判断是否得到焦点呀
- 一个在线更新的问题
- SQL语句,稍微有些难度。
- 当打开一个word时,我想屏蔽掉word 中鼠标的右键菜单,不知如何去做?
- vb编写的程序是否能够直接访问unix系统下的数据库,进行存取操作?
- 关于DataGrid的问题,高分征集解决办法!!!!!
- vb的数据类型和sql server数据类型如何对应
Private Sub Form_Click()
Dim n As Form
Set n = Form1
MsgBox n.Name
End Sub