请问,保存在模块中的函数,运行的时候,怎样取得当前的活动窗体名称?

Question

请问,保存在模块中的函数,运行的时候,怎样取得当前的活动窗体名称?

Answer 1

在模块中，用一个全局变量ac_form确定。public ac_form as string每个窗体载入时
Private Sub Form_Load()
ac_form=me.name
End Sub
最后载入的是活动窗体，名称在变量ac_form中（窗体为活动时，必重载Form_load)。

Answer 2

用 API 判断
GetForegroundWindow()取得活动窗口
GetWindowText()取得窗口标题