只能逐个单元格处理,借助样式进行处理。做网页开发,如果要做好的效果,建议花时间学学html和css的基础知识
Select Case e.Path
Case "table.htm"
Dim wb As New WeUI
wb.AppendHTML("<style>.td1,.td2,.td3{word-break: break-all;} .td1{width: 80px;}.td2{width: 60px;}</style>",True)
With wb.AddTable("","Table1")
.ColWidth = "80px,60px," '设置列宽
.head.AddRow("部门","姓名","地址") '表头
End With
wb.InsertHTML("","<div id='div1' style='overflow-y:auto;height:300px'>")
With wb.AddTable("","Table2")
For i As Integer = 1 To 20
With .body.AddRow()
.AddCell("技术部","class=""td1""") '逐个单元格增加
.AddCell("张三","class=""td2""")
.AddCell("中国北京中国北京中国北京中国北京中国北京中国北京","class=""td3""")
End With
Next
End With
wb.InsertHTML("","</div>")
e.WriteString(wb.Build)
End Select