Question

vb如何使状态栏显示当前活动窗口的名称

Answer 1

在每个子窗体的Activate事件中加入以下代码即可（假定MDI主窗体为MDIForm1，状态栏是StatusBar1）

Private Sub Form_Activate()
MDIForm1.StatusBar1.Panels(1).Text = Me.Name
'如果是显示窗体标题则改为：
'MDIForm1.StatusBar1.Panels(1).Text = Me.Caption
End Sub

Answer 2

用一个Timer计时器控件：

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim str As String
str = Space(GetWindowTextLength(GetForegroundWindow) + 1)
GetWindowText GetForegroundWindow, str, GetWindowTextLength(GetForegroundWindow) + 1
Text1.Text = str
End Sub