- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口判断 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93986)
-- 发布时间：2016/12/12 17:36:00
-- [求助]窗口判断
老师您好 我想做一个通用类的功能区
当当前窗口是A时，执行代码1
当前窗口是B时，执行代码2
请问老师 判断主窗口的代码怎样写？谢谢
-- 发布时间：2016/12/12 17:44:00
--
参考：http://www.foxtable.com/webhelp/scr/1547.htm
-- 发布时间：2016/12/12 18:46:00
--
Dim frm As WinForm.Form = Forms("主窗口")
Dim grm As WinForm.Form = Forms("供应商管理")
If frm IsNot Nothing Then \'当前窗口为主窗口时执行以下代码
Forms("主窗新增").open
ElseIf grm IsNot Nothing Then \'当前窗口供应商管理时执行以下代码
Forms("供应商新增").open
Else
MessageBox.Show("无活动窗口!" )
End If
老师 上面是我的代码 有点问题 麻烦您帮我看看
两个主窗口 不管我在哪个窗口 都是执行 Forms("主窗新增").open 这个。？
此主题相关图片如下：11.png
此主题相关图片如下：12.png
-- 发布时间：2016/12/12 20:20:00
--
想在什么地方用？如果是菜单可以这样
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
If frm.Name = "主窗口"
Forms("主窗新增").open
ElseIf frm.Name = "供应商管理"
Forms("供应商新增").open
End If
End If