以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110343)

--  作者:whyxd
--  发布时间:2017/12/1 10:58:00
--  [求助]
内部函数:frmname
Dim frm As WinForm.Form = Forms.ActiveForm
If frm Is Nothing Then
    Return 0
End If
Dim frmname As String = frm.name
msgbox(frmname)

窗口的 afterload 事件中 
Functions.Execute("frmname")

我本意是想打开窗口时,跳出窗口名称的对话框,这样实现不了,不知怎样能实现。



--  作者:有点蓝
--  发布时间:2017/12/1 11:24:00
--  
直接

窗口的 afterload 事件中
msgbox(e.form.name)

--  作者:whyxd
--  发布时间:2017/12/1 11:42:00
--  回复:(有点蓝)直接窗口的 afterload 事件中msgbox(...
我需要调用内部函数,内部函数中有很多代码,而且很多窗口都用,这些代码执行的前提就是获取到即将打开的窗口的名字。
--  作者:有点甜
--  发布时间:2017/12/1 11:48:00
--  

afterload 事件,窗口还没有显示出来, ActiveForm 的值肯定不对。

 

你可以写到窗口的timertick事件

 

http://www.foxtable.com/webhelp/scr/1301.htm

 

http://www.foxtable.com/webhelp/scr/1322.htm

 


--  作者:whyxd
--  发布时间:2017/12/1 12:36:00
--  回复:(有点甜)afterload 事件,窗口还没有显示出来...
明白了,写在了timertick事件了,暂时看运行没什么问题。
--  作者:有点蓝
--  发布时间:2017/12/1 14:57:00
--  
把窗口名称,或者窗口本身作为参数值传入不就行了

窗口的 afterload 事件中 
Functions.Execute("frmname",e.form.name)

--  作者:whyxd
--  发布时间:2017/12/5 18:17:00
--  回复:(有点蓝)把窗口名称,或者窗口本身作为参数值...
嗯,多谢。