Table 无法自适应页面的宽度

收藏

在删除列或添加列的时候 Table的宽度不能自动适应页面的宽度

iceman · iceman

回复 1楼xingaoyang的帖子

问题已经重现了，需要反馈给厂商进行进一步沟通。有结果第一时间反馈给你。

iceman · iceman

回复 1楼xingaoyang的帖子

Table 自适应宽度需要手动计算：

Private Sub MenuItem5_Click(sender As Object, e As EventArgs) Handles MenuItem5.Click
Me.TextControl1.Tables.Add(2, 2, 111)
End Sub
Private Sub MenuItem6_Click(sender As Object, e As EventArgs) Handles MenuItem6.Click
Dim t As TXTextControl.Table
t = Me.TextControl1.Tables.GetItem(111)
t.Columns.Remove()
resizeTable(111)
End Sub
Private Sub resizeTable(ByVal tableID As Integer)
Dim columns As Integer = TextControl1.Tables.GetItem(tableID).Columns.Count
Dim rows As Integer = TextControl1.Tables.GetItem(tableID).Rows.Count
For i As Integer = 1 To rows
Dim curWidth As Integer = 0
For e As Integer = 1 To columns
curWidth += TextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width()
Next
Dim txWidth As Integer = TextControl1.Width * 15 ' 1/100 inch to Twips
Dim percentageDelta As Double = (txWidth / curWidth) ' get the difference
For e As Integer = 1 To columns
TextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width = TextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width * percentageDelta
Next
Next
End Sub

复制代码

xingaoyang · xingaoyang

回复 3楼iceman的帖子

你这是用VB写的吗，这个问题我已经解决了，就是通过改变列宽实现的。

iceman · iceman

回复 4楼xingaoyang的帖子

是VB代码，好的。感谢反馈。

您也可以把解决方法发到论坛和大家共享下，我会给您1000金币作为奖励。谢谢

xingaoyang · xingaoyang

回复 5楼iceman的帖子

好的，和普通的发帖一样吗，还是有固定的发帖位置

iceman · iceman

回复 6楼xingaoyang的帖子

和发普通帖子相同，我这边给您加精华。

xingaoyang · xingaoyang

回复 7楼iceman的帖子

好的，谢谢

iceman · iceman

回复 8楼xingaoyang的帖子

感谢您的支持和共享

		自动登录	找回密码
密码			立即注册

[已处理] Table 无法自适应页面的宽度