[artemix22]

i have a DGV and a timer, how can i select next row every 5 seconds and looping if last row reach?

my DGV enable adding = false

here is my code so far, it's work, but when reach last row it will stop :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 5
            DataGridView1.Rows.Add("test")
        Next
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If DataGridView1.Rows.Count = 0 Then
        ElseIf DataGridView1.CurrentRow.Index = DataGridView1.Rows.Count - 1 Then
            DataGridView1.Rows(0).Selected = True
        Else
            Dim nextRow As DataGridViewRow = DataGridView1.Rows(DataGridView1.CurrentRow.Index + 1)
            DataGridView1.CurrentCell = nextRow.Cells(0)
            nextRow.Selected = True
        End If
    End Sub

This post has been edited by artemix22: 05 October 2012 - 01:38 AM

[lucky3]

You just need to rearrange your lines of code:

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim counter As Integer = DataGridView1.CurrentRow.Index + 1
        Dim nextRow As DataGridViewRow
        If counter = DataGridView1.RowCount Then
            nextRow = DataGridView1.Rows(0)
        Else
            nextRow = DataGridView1.Rows(counter)
        End If

        DataGridView1.CurrentCell = nextRow.Cells(0)
        nextRow.Selected = True

    End Sub

[artemix22]

thanks bro, it's work, i modify it for "zero row" :

If DataGridView1.Rows.Count = 0 Then
Else
  Dim counter As Integer = DataGridView1.CurrentRow.Index + 1
  Dim nextRow As DataGridViewRow
  If counter = DataGridView1.RowCount Then
     nextRow = DataGridView1.Rows(0)
  Else
     nextRow = DataGridView1.Rows(counter)
  End If
     DataGridView1.CurrentCell = nextRow.Cells(0)
     nextRow.Selected = True
End If

[lucky3]

Yeah. Instead of If DataGridView1.Rows.Count = 0 Then Else, you can simply say: If DataGridView1.Rows.Count > 0 Then, and leave the Else out. Similarly, you can use <>. In my opinion, you should never start timer, if there's no rows to loop through in DGV, that's why I left out the 0 rows check.

[artemix22]

thanks again bro, your suggestion is nice.. and i change a little thing for decrease (-) :

If DataGridView1.Rows.Count > 0 Then
   Dim counter As Integer = DataGridView1.CurrentRow.Index - 1
   Dim nextRow As DataGridViewRow
   If counter < DataGridView1.Rows(0).Index Then
      nextRow = DataGridView1.Rows(DataGridView1.Rows.Count - 1)
   Else
      nextRow = DataGridView1.Rows(counter)
   End If
      DataGridView1.CurrentCell = nextRow.Cells(0)
      nextRow.Selected = True
End If

This post has been edited by artemix22: 05 October 2012 - 08:05 AM