我们在VB中,
比如
aa="frmProduct"
是否有啥代码可以实现
aa.show这样调用表单?请大家勇跃发言
比如
aa="frmProduct"
是否有啥代码可以实现
aa.show这样调用表单?请大家勇跃发言
解决方案 »
- 求助DataDrid错误解决办法
- 水晶报表分页难题,想挑战一下的请进.
- 数据不能马上更新的问题,请大家帮帮忙
- 水晶报表8打包问题Crpe32.dll/Crviewer.dll/Crystl32.ocx我都用SETUP FACTORY打包进去了,可是还是显示不出水晶报表,为何?
- 请问.db的数据库是什么类型的数据库。是用什么数据库软件的
- 谁用过ActiveDocument.Shapes.AddCurve,进来帮帮我
- 请救一个简单问题,在线等待
- 各位大虾,请问如何把MSHFlexGrid中的数据以最快的方式生成excel文件???
- 我的程序在2K下编译,在98下安装时出错,高手指点
- <1元版权>推荐一下,哪个远端控制软件做的最好?冰河?还是?............
- 请问?
- 请问如何从ado2.6或2.7版本降到2.5呀?
object 必需的;变体型(对象)。函数将要执行的对象的名称。
procedurename 必需的;变体型(字符串)。一个包含该对象的属性名称或者方法名称的字符串表达式。
calltype 必需的;常数。一个 vbCallType 类型的常数,代表正在被调用的过程的类型。
arguments() 可选的:变体型(数组)。
说明CallByName 函数用于获取或者设置一个属性,或者在运行时使用一个字符串名称来调用一个方法。在下面的例子中,第一行使用 CallByName 来设置一个文本框的 MousePointer 属性,第二行得到 MousePointer 属性的值,第三行调用 Move 方法来移动文本框:CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongPublic Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End FunctionPrivate Sub Command1_Click()
ExecuteLine "msgbox (1+2)*3/4"
ExecuteLine "dim a as integer"
ExecuteLine "a = 10"
ExecuteLine "Print a"
ExecuteLine "form2.show"
End Sub