- 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=191423)
-- 发布时间：2024/4/16 9:44:00
-- 获得主窗口的名字
判断当前的窗口是系统的主窗口，并且 点击顶部的按钮，怎么写？
这里的主窗口是指系统的主窗口，不是自己建立的form。
没有打开任何自建的form
仅仅是MainTable = Tables("xxxxx")
-- 发布时间：2024/4/16 9:49:00
--
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
MessageBox.Show("活动窗口为:" & frm.Name)
Else
MessageBox.Show("无活动窗口!")
End If
在界面显示无活动窗口。。如何模拟点击菜单？
-- 发布时间：2024/4/16 9:55:00
--
ActiveForm这是活动窗口啊
-- 发布时间：2024/4/16 9:57:00
--
是啊，我把这个放在菜单按钮，显示活动窗口，当前的主窗口的名字获取不到。
-- 发布时间：2024/4/16 9:59:00
--
当前窗口名就这样啊：
MessageBox.Show(e.Form.Name)
此主题相关图片如下：qq截图20240416095939.png
[此贴子已经被作者于2024/4/16 10:00:30编辑过]
-- 发布时间：2024/4/16 10:01:00
--
如果是指系统菜单，只有标准按钮可以模拟点击：http://www.foxtable.com/webhelp/topics/1103.htm
其它类型菜单没有办法
-- 发布时间：2024/4/16 10:08:00
--
如何判断当前是在系统菜单，无自定义的窗口？
-- 发布时间：2024/4/16 10:16:00
--
MessageBox.Show (BaseMainForm.Name)
MessageBox.Show (BaseMainForm.Text)
-- 发布时间：2024/4/16 10:28:00
--
遍历所有窗口判断有没有打开的
for each frm As WinForm.Form in Forms
if frm.opened then
msgbox("有窗口打开")
end if
next