Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
With tpb.Pages
.Add("项目配方", "项目配方", "00022.ico").Collapsed = True
.Add("配方数据", "配方数据", "09154.ico").Collapsed = True
.Add("日志文件", "日志文件", "09148.ico").Collapsed = True
End With
With tpb.Pages("项目配方").Links
.Add("园林固废配方表", "园林固废配方表","01773.ico")
.Add("建筑垃圾配方表", "建筑垃圾配方表","01773.ico")
.Add("鄂尔多斯砂配方表", "鄂尔多斯砂配方表","01773.ico")
.Add("海砂配方表", "海砂配方表","01773.ico")
.Add("风积砂配方表", "风积砂配方表","01773.ico")
.Add("乐亭砂配方表", "乐亭砂配方表","01773.ico")
.Add("泉州砂配方表", "泉州砂配方表","01773.ico")
.Add("铅锌矿配方表", "铅锌矿配方表","01773.ico")
.Add("铜尾矿配方表", "铜尾矿配方表","01773.ico")
.Add("金尾矿配方表", "金尾矿配方表","01773.ico")
.Add("铁尾矿配方表", "铁尾矿配方表","01773.ico")
.Add("铬渣配方表", "铬渣配方表","01773.ico")
.Add("碳铬渣配方表", "碳铬渣配方表","01773.ico")
.Add("碱渣配方表", "碱渣配方表","01773.ico")
.Add("广丰泥配方表", "广丰泥配方表","01773.ico")
.Add("硼泥配方表", "硼泥配方表","01773.ico")
.Add("赤泥配方表", "赤泥配方表","01773.ico")
.Add("污泥配方表", "污泥配方表","01773.ico")
End With
With tpb.Pages("配方数据").Links
.Add("园林固废数据表", "园林固废数据表","01774.ico")
.Add("建筑垃圾数据表", "建筑垃圾数据表","01774.ico")
.Add("鄂尔多斯砂数据表", "鄂尔多斯砂数据表","01774.ico")
.Add("海砂数据表", "海砂数据表","01774.ico")
.Add("风积砂数据表", "风积砂数据表","01774.ico")
.Add("乐亭砂数据表", "乐亭砂数据表","01774.ico")
.Add("泉州砂数据表", "泉州砂数据表","01774.ico")
.Add("铅锌矿数据表", "铅锌矿数据表","01774.ico")
.Add("铜尾矿数据表", "铜尾矿数据表","01774.ico")
.Add("金尾矿数据表", "金尾矿数据表","01774.ico")
.Add("铁尾矿数据表", "铁尾矿数据表","01774.ico")
.Add("铬渣数据表", "铬渣数据表","01774.ico")
.Add("碳铬渣数据表", "碳铬渣数据表","01774.ico")
.Add("碱渣数据表", "碱渣数据表","01774.ico")
.Add("广丰泥数据表", "广丰泥数据表","01774.ico")
.Add("硼泥数据表", "硼泥数据表","01774.ico")
.Add("赤泥数据表", "赤泥数据表","01774.ico")
.Add("污泥数据表", "污泥数据表","01774.ico")
End With
With tpb.Pages("日志文件").Links
.Add("日志文件表", "日志文件表","01676.ico")
End With