主题：[求助]请问如图主界面功能是怎么实现的？

1、参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89472&replyID=&skin=1

2、就加入一个按钮，然后参考这样写代码

If e.sender.Text = "<<"
    e.Form.Controls("NavBar1").Width = 10
    e.sender.text = ">>"
    e.sender.left = 0
Else
    e.Form.Controls("NavBar1").Width = 300
    e.sender.text = "<<"
    e.sender.left = 280
End If