原来是因为多加了一句,去掉就正常了(可以动态加载内容),你6楼给的代码,没有这句的,太感谢了
With wb.AddTabBar("", "tb1", 1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.AddButton("bt1","首页","./images/a.png","http://www.foxtable.com")
.AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")
.AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")
.AddButton("bt4","我的","./images/d.png","/personal.htm")
’.Attribute = "style='height:55px'"
End With
[此贴子已经被作者于2017/4/4 22:29:32编辑过]