how to control child window in mdiform statusbar as like windows task bar ?
' i m trying
Private Sub mnuNew_Click(index As Integer)
Select Case index
Case 0 ' MSDN - WindowList Property Example
Dim nn As New explorer
nn.Caption = nn.Name & Forms.Count
Dim mm As Panel
Set mm = StatusBar1.Panels.Add()
mm.Text = nn.Caption
mm.Key = nn.Caption
mm.Bevel = sbrRaised
mm.AutoSize = sbrSpring
End Select
End Sub
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
On Error Resume Next
If Panel.Key = ActiveForm.Caption Then
If ActiveForm.Visible = True Then
ActiveForm.Visible = False
Else
ActiveForm.Visible = True
End If
End If
End Sub
' i m trying
Private Sub mnuNew_Click(index As Integer)
Select Case index
Case 0 ' MSDN - WindowList Property Example
Dim nn As New explorer
nn.Caption = nn.Name & Forms.Count
Dim mm As Panel
Set mm = StatusBar1.Panels.Add()
mm.Text = nn.Caption
mm.Key = nn.Caption
mm.Bevel = sbrRaised
mm.AutoSize = sbrSpring
End Select
End Sub
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
On Error Resume Next
If Panel.Key = ActiveForm.Caption Then
If ActiveForm.Visible = True Then
ActiveForm.Visible = False
Else
ActiveForm.Visible = True
End If
End If
End Sub