xingaoyang 发表于 2015-11-26 09:22:00

Table 无法自适应页面的宽度

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

iceman 发表于 2015-11-26 13:48:00

回复 1楼xingaoyang的帖子

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

iceman 发表于 2015-12-2 09:24:00

回复 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 发表于 2015-12-2 14:22:00

回复 3楼iceman的帖子

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

iceman 发表于 2015-12-3 09:00:00

回复 4楼xingaoyang的帖子

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

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

xingaoyang 发表于 2015-12-3 11:10:00

回复 5楼iceman的帖子

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

iceman 发表于 2015-12-3 13:51:00

回复 6楼xingaoyang的帖子

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

xingaoyang 发表于 2015-12-4 16:35:00

回复 7楼iceman的帖子

好的，谢谢

iceman 发表于 2015-12-7 12:14:00

回复 8楼xingaoyang的帖子

:i0tw:感谢您的支持和共享
页: [1]
查看完整版本: Table 无法自适应页面的宽度