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

发布时间:2015/11/30 00:11 发布者:iceman

返回博客中心

在一些使用场景中,需要使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 功能,请参考:

/developer/textcontrol-winform


关于葡萄城

赋能开发者!葡萄城是专业的集开发工具、商业智能解决方案、低代码开发平台于一身的软件和服务提供商,为超过 75% 的全球财富 500 强企业提供服务。葡萄城专注控件软件领域30年,希望通过模块化的开发控件、灵活的低代码应用开发平台等一系列开发工具、解决方案和服务,帮助开发者快速响应复杂多变的业务需求,最大程度地发挥开发者的才智和潜能,让开发者的 IT 人生更从容更美好。

了解详情,请访问葡萄城官网