Table 无法自适应页面的宽度

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

回复 1楼xingaoyang的帖子

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

回复 1楼xingaoyang的帖子

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

1. 
   
2. Private Sub MenuItem5_Click(sender As Object, e As EventArgs) Handles MenuItem5.Click
   
3.         Me.TextControl1.Tables.Add(2, 2, 111)
   
4.     End Sub
   
5. 
   
6.     Private Sub MenuItem6_Click(sender As Object, e As EventArgs) Handles MenuItem6.Click
   
7.         Dim t As TXTextControl.Table
   
8.         t = Me.TextControl1.Tables.GetItem(111)
   
9. 
   
10.         t.Columns.Remove()
    
11.         resizeTable(111)
    
12.     End Sub
    
13.     Private Sub resizeTable(ByVal tableID As Integer)
    
14.         Dim columns As Integer = TextControl1.Tables.GetItem(tableID).Columns.Count
    
15.         Dim rows As Integer = TextControl1.Tables.GetItem(tableID).Rows.Count
    
16. 
    
17.         For i As Integer = 1 To rows
    
18.             Dim curWidth As Integer = 0
    
19. 
    
20.             For e As Integer = 1 To columns
    
21.                 curWidth += TextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width()
    
22.             Next
    
23. 
    
24.             Dim txWidth As Integer = TextControl1.Width * 15 ' 1/100 inch to Twips
    
25. 
    
26.             Dim percentageDelta As Double = (txWidth / curWidth) ' get the difference
    
27. 
    
28.             For e As Integer = 1 To columns
    
29.                 TextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width = TextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width * percentageDelta
    
30.             Next
    
31.         Next
    
32.     End Sub
    

复制代码

回复 3楼iceman的帖子

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

回复 4楼xingaoyang的帖子

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

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

回复 5楼iceman的帖子

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

回复 6楼xingaoyang的帖子

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

回复 7楼iceman的帖子

好的，谢谢

回复 8楼xingaoyang的帖子

感谢您的支持和共享