以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何记录当前窗口的名称问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82579)

--  作者:凡夫俗子
--  发布时间:2016/3/21 9:22:00
--  如何记录当前窗口的名称问题


有窗口1,窗口2 等均为独立窗口。有变量 vars("当前窗口“) 记录当前窗口名称。

窗口1,窗口2,均已打开。

要求当点击窗口1 任何位置将当前窗口切换为 窗口1 时,vars("当前窗口“)的值为 窗口1
要求当点击窗口2 任何位置将当前窗口切换为 窗口2 时,vars("当前窗口“)的值为 窗口2
[此贴子已经被作者于2016/3/21 9:22:17编辑过]

--  作者:wyz20130512
--  发布时间:2016/3/21 9:50:00
--  
Vars("活动窗口") = Forms.ActiveForm.Name
--  作者:凡夫俗子
--  发布时间:2016/3/21 10:05:00
--  
这样测试是不行的
目前测试可行的方法是
定义一个函数
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
    vars("当前窗口") =  frm.name
End If

然后定义一个计划 任务 间隔时间要定得很小。

然后才能获取到当前的名称vars("当前窗口") 。 但这种用法有好多执行系统是在做无用功,不想这样用,FT就没有一个事件在当前窗口切换的执行事件 ?

--  作者:大红袍
--  发布时间:2016/3/21 10:47:00
--  
 只有3楼这种方法了,判断一下,也不怎么耗时。