通过变量调用窗体
2007-02-12 16:02
302 查看
添加一个新工程,添加两个窗体Form1,Form2,然后在form1上面放一个命令按钮即可看到效果:
Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Command1_Click()
Dim strTest As String
strTest = "Form2.Show vbModal"
ExecuteLine strTest
End Sub
---------------------------------------------------------------
第二种方法(我更喜欢第一种,因为它可以执行任何命令行,第二种只能显示窗体),在Form1上再添加一个文本框Text1:
Option Explicit
Private Function ShowNamedForm(strForm As String) As Form
Dim frmTemp As Form
Set frmTemp = Forms.Add(strForm)
frmTemp.Show
Set ShowNamedForm = frmTemp
End Function
Private Sub Command1_Click()
ShowNamedForm Text1.Text
End Sub
Private Sub Form_Load()
Text1.Text = "Form2"
End Sub
Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
Private Sub Command1_Click()
Dim strTest As String
strTest = "Form2.Show vbModal"
ExecuteLine strTest
End Sub
---------------------------------------------------------------
第二种方法(我更喜欢第一种,因为它可以执行任何命令行,第二种只能显示窗体),在Form1上再添加一个文本框Text1:
Option Explicit
Private Function ShowNamedForm(strForm As String) As Form
Dim frmTemp As Form
Set frmTemp = Forms.Add(strForm)
frmTemp.Show
Set ShowNamedForm = frmTemp
End Function
Private Sub Command1_Click()
ShowNamedForm Text1.Text
End Sub
Private Sub Form_Load()
Text1.Text = "Form2"
End Sub
相关文章推荐
- 通过字符串变量动态打开窗体并动态调用其方法
- 通过字符串变量动态打开窗体并动态调用其方法
- 如何通过from语句调用模块的变量名?
- 通过调用类变量,实现全局变量共享(类变量和实例变量)
- 通过调用API函数实现的无边框窗体的拖拽,比判断坐标更快捷
- python 进制运算 位运算 property的使用 通过property调用私有变量
- 如何通过变量去调用对应的函数
- 通过a4j:jsFunction 调用原生的javascript方法,并且共享和传递后台bean里面的变量
- 通过按钮调用帮助(模拟窗体上的‘?’功能)
- 存储过程调用,java中通过bboss persistent实现数据库存储过程的调用(命名变量绑定)
- Java 中的 int 与 Integer 用于 List<Integer> 时,以及通过打印变量检測程序执行和函数调用次数计数
- Iframe 子窗体调用父窗体函数、变量
- 通过事件调用窗体间的方法
- 通过asp js调用组件模式窗体showdialog,模式窗体却以非模式窗体显示
- 从一个窗体控件另一窗体,需要通过共享变量...
- java通过反射获取调用变量以及方法
- 通过回调函数 调用parent窗体 关闭子窗体 因为没有运行完需要的函数 回调关闭会出错 需要延时执行
- C#通过委托和异步调用实现窗体间的通讯
- 最近接触到的一些js调用window窗体的属性及通过JavaScript获取页面大小
- 通过自定义消息调用主窗体的菜单项