[求助]窗口判断 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有1835人关注过本帖树形打印复制链接主题：[求助]窗口判断

yupeng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：2933 威望：0 精华：0 注册：2015/4/23 19:53:00

[求助]窗口判断 发帖心情

Post By：2016/12/12 17:36:00 [只看该作者]

老师您好我想做一个通用类的功能区

当当前窗口是A时，执行代码1

当前窗口是B时，执行代码2

请问老师判断主窗口的代码怎样写？谢谢

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/12/12 17:44:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/scr/1547.htm

yupeng

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：2933 威望：0 精华：0 注册：2015/4/23 19:53:00

Post By：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 这个。？

dvubb 此主题相关图片如下：11.png