[Resolvido] Percorrer uma datagridview com as setas com o foco em

[Alex991 0]

Olá à todos, estou desenvolvendo um sistema e estou com este pequeno problema tenho em um formulario de pesquisa um datagridview e uma textbox parametro minha datagridview esta dentro de uma tabcontrol e o textbox esta fora (se isto tiver alguma coisa a ver) então eu queria que ao o foco estar na textbox eu com as setas pudesse percorrer o grid e digitar um parametro para a pesquisa no datagrid sem perder o foco na textbox eu queria continuar percorrendo o grid com as setas. Se alguem puder me ajudar por favor, muito obrigado.

Tentei isso mais nao funcionou.

 Private Sub BTMLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  If dgvUniMedidas.CurrentRow.Index = 0 Then
   Exit Sub
  End If
  dgvUniMedidas.Rows(dgvUniMedidas.Rows.GetPreviousRow(dgvUniMedidas.CurrentRow.Index, DataGridViewElementStates.Visible)).Cells(0).Selected = True

 End Sub

 Private Sub BTMRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  dgvUniMedidas.Rows(dgvUniMedidas.Rows.GetNextRow(dgvUniMedidas.CurrentRow.Index, DataGridViewElementStates.Visible)).Cells(0).Selected = True

 End Sub

' e no evento key down do textbox
 Private Sub txtpar_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpar.KeyDown

  Select Case e.KeyCode
   Case Keys.Up
    BTMLeft_Click(sender, e)
    Exit Select
   Case Keys.Down
    BTMRight_Click(sender, e)
    Exit Select
  End Select
 End Sub

Por favor se alguem puder me ajudar... Muito obrigado à todos.

[quintelab 91]

Se entendi você quer percorrer uma grid com as setas sem perder o focu em um textbox, é isso?

 

Abraços...

[Alex991 0]

Se entendi você quer percorrer uma grid com as setas sem perder o focu em um textbox, é isso?

 

Abraços...

 

Olá quintelab, sim isso mesmo cara quero percorrer o grid com as setas sem perder o foco da minha textbox. Porfavor cara se puder me ajudar.

[Alex991 0]

Olá a todos já encontrei a solução aí vai ela abraço até mais...

 

Private Sub textBox1_KeyDown(sender As Object, e As KeyEventArgs)
	If e.KeyValue = 38 Then
		F_MoverGrid(False)
		e.Handled = True
	ElseIf e.KeyValue = 40 Then
		F_MoverGrid(True)
		e.Handled = True
	End If
End Sub
Private Sub F_MoverGrid(abaixo As Boolean)

	If abaixo AndAlso MeuDataGridView.CurrentRow.Index <> MeuDataGridView.Rows.Count - 1 Then
		'Verifica se é a prim
		MeuDataGridView.CurrentCell = MeuDataGridView(MeuDataGridView.CurrentCell.ColumnIndex, MeuDataGridView.CurrentCell.RowIndex + 1)
	ElseIf MeuDataGridView.CurrentRow.Index <> 0 Then
		MeuDataGridView.CurrentCell = MeuDataGridView(MeuDataGridView.CurrentCell.ColumnIndex, MeuDataGridView.CurrentCell.RowIndex - 1)
	End If

End Sub