wb.InsertHTML("page1","<div id='p1' style='margin:0.5em'></div>") 改为
wb.InsertHTML("page1","<div id='p1' style='margin:0.5em'>")
获取列表显示到这里,比如
- With wb.AddPanelGroup("page1","pg1", s & "列表")
- For i As Integer = 1 To 3
- .Add("pn" & i,s & "新闻" & i,txt,"./images/button.png","http://www.foxtable.com")
- Next
- End With
wb.InsertHTML("page1","</div>")