在一些使用场景中,需要使Table自适应页面宽度,在特殊情况下,如果TX宽度自适应窗体大小,当窗体大小变化时,TX 宽度也将变化,这是Table将不会自适应。
这个例子就将向您展示如何是 Table自适应页面大小。
这个功能我们可以通过调整单元格的大小来实现。
Private Sub resizeTable(ByVal tableID As Integer)Dim columns As Integer = TextControl1.Tables.GetItem(tableID).Columns.CountDim rows As Integer = TextControl1.Tables.GetItem(tableID).Rows.CountFor i As Integer = 1 To rowsDim curWidth As Integer = 0For e As Integer = 1 To columnscurWidth += TextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width()NextDim txWidth As Integer = TextControl1.Width * 15Dim percentageDelta As Double = (txWidth / curWidth)For e As Integer = 1 To columnsTextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width = _TextControl1.Tables.GetItem(tableID).Cells.GetItem(i, e).Width * percentageDeltaNextNextEnd Sub
可以下载Demo体验该功能:
了解更多 TX TextControl 功能,请参考: