主题：有关多窗口打开时，可否获得当前显示的窗口名?

ActiveForm,在菜单中无效

还是放在状态栏显示吧

With CurrentTable
    Dim Str1 As String 
  Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
 Str1 =" 活动窗口为:" & frm.Name
Else
Str1 ="  无活动窗口!"
End If
    StatusBar.Message1 = Str1
End With

项目中的

SystemIdle事件中

在系统空闲的时候执行。
此事件执行较为频繁，所以请不要出现"负荷"较重的代码。




StatusBar.Message1 = Str1

将在最下方的就绪处显示

你想一下,为何没用,活动窗口,就是只焦点所在的窗口,才是活动窗口,如果你在菜单中点按钮,那时焦点在按钮上,当然出现的是无活动窗口的提示了,呵呵