Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有1963人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
whyxd
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1904 威望:0 精华:0 注册:2016/2/17 12:11:00
[求助]  发帖心情 Post By: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")

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



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/1 11:24:00 [只看该作者]

直接

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

 回到顶部
帅哥哟,离线,有人找我吗?
whyxd
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1904 威望:0 精华:0 注册:2016/2/17 12:11:00
回复:(有点蓝)直接窗口的 afterload 事件中msgbox(...  发帖心情 Post By:2017/12/1 11:42:00 [只看该作者]

我需要调用内部函数,内部函数中有很多代码,而且很多窗口都用,这些代码执行的前提就是获取到即将打开的窗口的名字。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1904 威望:0 精华:0 注册:2016/2/17 12:11:00
回复:(有点甜)afterload 事件,窗口还没有显示出来...  发帖心情 Post By:2017/12/1 12:36:00 [只看该作者]

明白了,写在了timertick事件了,暂时看运行没什么问题。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/1 14:57:00 [只看该作者]

把窗口名称,或者窗口本身作为参数值传入不就行了

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

 回到顶部
帅哥哟,离线,有人找我吗?
whyxd
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:204 积分:1904 威望:0 精华:0 注册:2016/2/17 12:11:00
回复:(有点蓝)把窗口名称,或者窗口本身作为参数值...  发帖心情 Post By:2017/12/5 18:17:00 [只看该作者]

嗯,多谢。

 回到顶部