主题：NavBar页面显示和隐藏

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
For Each p As WinForm.NavPage In bar.NavPages
    If p.Butt Then
        p.Visible = True
    Else
        p.Visible = False
    End If
Next