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

在一些使用场景中，需要使Table自适应页面宽度，在特殊情况下，如果TX宽度自适应窗体大小，当窗体大小变化时，TX 宽度也将变化，这是Table将不会自适应。这个例子就将向您展示如何是 Table自适应页面大小。这个功能我们可以通过调整单元格的大小来实现。

发布于 2015/11/30 00:00

在一些使用场景中，需要使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体验该功能：

table_resize.zip

了解更多 TX TextControl 功能，请参考：

/developer/textcontrol-winform

关于葡萄城

葡萄城是专业的软件开发技术和低代码平台提供商，以“赋能开发者”为使命，致力于通过表格控件、低代码和BI等各类软件开发工具和服务，一站式满足开发者需求，帮助企业提升开发效率并创新开发模式。葡萄城开发技术始于1980年，40余年来始终聚焦软件开发技术，有深厚的技术积累和丰富的产品线。是业界能够同时赋能软件开发和低代码开发的企业。凭借过硬的产品能力、活跃的开发者社区和丰富的伙伴生态，与超过3000家合作伙伴紧密合作，产品广泛应用于信息和软件服务、制造、交通运输、建筑、金融、能源、教育、公共管理等支柱产业。