[VB.Net] Selezionare riga in Datagw

[x69asterix]

ho il seguente problema,
eseguo un ciclo di lettura con SpeakAsync in una Dgw, la lettura scorre senza problemi, solo che dovrei associare alla lettura vocale, la selezione della riga letta, però la selezione della riga letta non avviene, il codice è il seguente:

 Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        For parla As Integer = 0 To DataGridView1.RowCount - 1 Step 1
            Synt.SpeakAsync(DataGridView1.Item(5, parla).Value)
            Dim indice As Integer = parla
            Me.DataGridView1.Item(5, indice).Selected = True

            DataGridView1.CurrentRow.DataGridView.CurrentRow.DefaultCellStyle.SelectionBackColor = Color.Green
            DataGridView1.CurrentRow.DataGridView.CurrentRow.DefaultCellStyle.SelectionForeColor = Color.Red
        Next

    End Sub

[Jeremy75]

prova così ...

 For parla As Integer = 0 To DataGridView1.RowCount - 1 Step 1
            Synt.SpeakAsync(DataGridView1.Item(5, parla).Value)
            Dim indice As Integer = parla
            Me.DataGridView1.Item(5, indice).Selected = True
Application.DoEvents 
            DataGridView1.CurrentRow.DataGridView.CurrentRow.DefaultCellStyle.SelectionBackColor = Color.Green
            DataGridView1.CurrentRow.DataGridView.CurrentRow.DefaultCellStyle.SelectionForeColor = Color.Red
Application.DoEvents 
        Next

Facci sapere....
Ciao

[x69asterix]

ciao jeremy!
purtroppo il problema è che per leggere uso: SpeakAsync
è praticamente il testo letto impiega più tempo dello scorrimento della griglia!
l'unico modo che sono riuscito in parte è essere avvisato se continuare a leggere in questo modo il ciclo lo mando avanti manualmente

 DataGridView1.ClearSelection()
        For parla As Integer = 0 To DataGridView1.RowCount - 1 Step 1 ' DataGridView2.Columns(5)
            Synt.SpeakAsync(DataGridView1.Item(5, parla).Value)
            Synt.SpeakAsync(" scrivente " & DataGridView1.Item(4, parla).Value)
            Synt.SpeakAsync("Protocollo del " & DataGridView1.Item(6, parla).Value)
            DataGridView1.CurrentCell = DataGridView1.Rows(CType(parla, Integer)).Cells(1)
            DataGridView1.CurrentRow.Selected = DataGridView1.CurrentCell.RowIndex
            DataGridView1.CurrentRow.Selected = True
            If MessageBox.Show("Vuoi continuare? ", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then Exit Sub
        Next