Сенсорная прокрутка данных vb.net - PullRequest
Новая
       3

Сенсорная прокрутка данных vb.net

0 голосов
/ 10 января 2020

Я пытаюсь реализовать механизм сенсорной прокрутки в данных. он прокручивается, но выдает ошибку «Указанный аргумент вышел из ранга допустимых значений», вот код 

   Private Sub DataGridView4_MouseDown(sender As Object, e As MouseEventArgs) Handles DataGridView4.MouseDown
    Dim position As Integer = CInt(TextBox1.Text)
    If position <= 0 Then
        m_PanStartPoint = New Point(e.X, e.Y)
    Else
        m_PanStartPoint = New Point(e.X, CInt((e.Y = position)))
    End If
End Sub

Private Sub DataGridView4_MouseMove(sender As Object, e As MouseEventArgs) Handles DataGridView4.MouseMove
    Try
        If e.Button = MouseButtons.Left Then
            Dim m_PanStartPoint As New Point(CInt(TextBox1.Text), CInt(TextBox1.Text))
            Dim DeltaY As Integer
            Dim position As Integer = CInt(TextBox1.Text)
            If position <= 0 Then
                m_PanStartPoint.Y = 0
            End If
            Dim DCount As Integer = DataGridView4.RowCount

            DeltaY = (m_PanStartPoint.Y - e.Y)


            If DeltaY > DCount Then
                DataGridView4.FirstDisplayedScrollingRowIndex = position
            ElseIf DeltaY < 0 Then
                DataGridView4.FirstDisplayedScrollingRowIndex = 0
            Else
                DataGridView4.FirstDisplayedScrollingRowIndex = DeltaY
                TextBox1.Text = CType(DataGridView4.FirstDisplayedScrollingRowIndex, String)
            End If

        End If
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Error")
    End Try
End Sub

textbox1 установлен в 0

...