国家  china

TX TextControl: 使 Table 自适应页面宽度

在一些使用场景中,需要使Table自适应页面宽度,在特殊情况下,如果TX宽度自适应窗体大小,当窗体大小变化时,TX 宽度也将变化,这是Table将不会自适应。

这个例子就将向您展示如何是 Table自适应页面大小。

这个功能我们可以通过调整单元格的大小来实现。

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 
        Dim percentageDelta As Double = (txWidth / curWidth) 
 
        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

 

可以下载Demo体验该功能:

 

了解更多 TX TextControl 功能,请参考:

http://www.gcpowertools.com.cn/products/textcontrol_winform.htm

转载声明:
欢迎将本站文章进行转载、演绎或用于商业目的,转载时请注明以下信息
文章转自:葡萄城控件产品博客,http://blog.gcpowertools.com.cn
原文地址:http://blog.gcpowertools.com.cn/post/tx_win_autoresizetable.aspx

不允许评论