下面写的是一段显示和隐藏标题栏的过程,在隐藏时通过一个静态数组来保存原标题,在显示时再恢复过来。
Private Sub mnuTextCaption_Click()
Static sCaptions(20) As String, i%
With Me.mnuTextCaption
If .Caption = "显示标题" Then
For i = 1 To Toolbar1.Buttons.Count
Toolbar1.Buttons(i).Caption = sCaptions(i)
Next i
.Caption = "隐藏标题"
Else
For i = 1 To Toolbar1.Buttons.Count
sCaptions(i) = Toolbar1.Buttons(i).Caption
Toolbar1.Buttons(i).Caption = ""
Next i
.Caption = "显示标题"
End If
End With
End Sub