判断当前的窗口是系统的主窗口,并且 点击顶部的按钮,怎么写?
这里的主窗口是指系统的主窗口,不是自己建立的form。
没有打开任何自建的form
仅仅是MainTable = Tables("xxxxx")
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
MessageBox.Show("活动窗口为:" & frm.Name)
Else
MessageBox.Show("无活动窗口!")
End If
在界面显示无活动窗口。。如何模拟点击菜单?
是啊,我把这个放在菜单按钮,显示活动窗口,当前的主窗口的名字获取不到。
当前窗口名就这样啊:
MessageBox.Show(e.Form.Name)
此主题相关图片如下:qq截图20240416095939.png
[此贴子已经被作者于2024/4/16 10:00:30编辑过]
MessageBox.Show (BaseMainForm.Name)
MessageBox.Show (BaseMainForm.Text)
遍历所有窗口判断有没有打开的
for each frm As WinForm.Form in Forms
if frm.opened then
msgbox("有窗口打开")
end if
next