在设定Datasource的multirow上，在后几行位置加新行后，重新设定datasource，并把选中单元格，放在加行之前的位置时，光标会跳到0，0位置，再跳到所设定的位置。当行数多时会看到滚动条在上下蹦，同时会闪现第一行。
如何在这个过程中不让滚动条不动和不出现闪现？
以下是测试代码。需要在Form中先拖出一个空的GcMultirow
按enter键会加一行。在最后一行多次按enter键时会出闪现。持续按住enter键效果明显。
在做的项目中因操作复杂，所以每加一行必闪现第一行
- Imports GrapeCity.Win.MultiRow
- Imports GrapeCity.Win.MultiRow.InputMan
- Public Class Form1
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
- Me.Size = New Size(760, 350)
- InitMultirow()
-
- End Sub
- Private Sub GcMultiRow1_KeyDown(sender As Object, e As KeyEventArgs) Handles GcMultiRow1.KeyDown
- If e.KeyCode = Keys.Enter Then
- GcMultiRow1.SuspendLayout()
- Dim tmpDt As DataTable = GcMultiRow1.DataSource.Copy
- Dim dr As DataRow = tmpDt.NewRow
- Dim position As CellPosition = GcMultiRow1.CurrentCellPosition
- dr(0) = position.RowIndex + 1
- dr(1) = "AddRow"
- tmpDt.Rows.InsertAt(dr, position.RowIndex + 1)
- For i As Integer = position.RowIndex To tmpDt.Rows.Count - 1
- tmpDt.Rows(i)(0) = i + 1
- Next
- GcMultiRow1.DataSource = tmpDt
- GcMultiRow1.CurrentCellPosition = New CellPosition(position.RowIndex + 1, position.CellIndex)
- GcMultiRow1.ResumeLayout()
- End If
- End Sub
- Private Sub InitMultirow()
- GcMultiRow1.AllowUserToAddRows = False
- GcMultiRow1.AllowUserToDeleteRows = False
- GcMultiRow1.Size = New Size(741, 235)
- GcMultiRow1.Location = New Point(1, 5)
- GcMultiRow1.ScrollBars = ScrollBars.Vertical
- Dim tp As Template = New Template()
- tp.Width = GcMultiRow1.Width
- Dim tmpCell As GcTextBoxCell = New GcTextBoxCell
- tmpCell.DataField = "NO"
- tp.Row.Height = tmpCell.Size.Height
- tp.Row.Cells.Add(tmpCell)
- For i As Integer = 1 To 8
- tmpCell = New GcTextBoxCell
- tmpCell.Location = New Point(tmpCell.Size.Width * i, 0)
- tmpCell.DataField = "ID" & i
- tp.Row.Cells.Add(tmpCell)
- Next
- GcMultiRow1.Template = tp
- GcMultiRow1.DataSource = GetDataSource()
- GcMultiRow1.ShortcutKeyManager.Unregister(Keys.Enter)
- End Sub
- Private Function GetDataSource() As DataTable
- Dim dt1 As DataTable = New DataTable
- Dim col As DataColumn = Nothing
- dt1.Columns.Add("NO")
- dt1.Columns.Add("ID1")
- dt1.Columns.Add("ID2")
- dt1.Columns.Add("ID3")
- dt1.Columns.Add("ID4")
- dt1.Columns.Add("ID5")
- dt1.Columns.Add("ID6")
- dt1.Columns.Add("ID7")
- dt1.Columns.Add("ID8")
- Dim dr As DataRow = Nothing
- For i As Integer = 0 To 15
- dr = dt1.NewRow
- dr(0) = i + 1
- dr(1) = "D100" & i
- dr(2) = "D200" & i
- dr(3) = "D300" & i
- dr(4) = "D400" & i
- dr(5) = "D500" & i
- dr(6) = "D600" & i
- dr(7) = "D700" & i
- dr(8) = "D800" & i
- dt1.Rows.Add(dr)
- Next
- Return dt1
- End Function
- End Class
|
|
陕公网安备：61019002000258 |
隐私政策 |
网站地图
