回复 8楼yangjianlang的帖子
选择一整行代码如下：
- Private Sub SelectTableRow(TableID As Integer, Row As Integer)
- Dim iTableCols As Integer
- iTableCols = TXTextControl1.TableRows(TableID)
-
- TXTextControl1.SelStart = TXTextControl1.TableCellStart(TableID, Row, 1) - 1
- TXTextControl1.SelLength = TXTextControl1.TableCellStart _
- (TableID, Row, iTableCols) - _
- TXTextControl1.TableCellStart(TableID, Row, 1)
- End Sub
选择一整列代码如下：
- Private Sub SelectTableColumn(TableID As Integer, Col As Integer)
- Dim iTableRows As Integer
- iTableRows = TXTextControl1.TableRows(TableID)
-
- TXTextControl1.SelStart = TXTextControl1.TableCellStart(TableID, 1, Col) - 1
- TXTextControl1.SelLength = TXTextControl1.TableCellStart _
- (TableID, iTableRows, Col) - _
- TXTextControl1.TableCellStart(TableID, 1, Col)
- End Sub
|
陕公网安备：61019002000258 |
隐私政策 |
网站地图