BOTÕES DIREITO DO MAUSE
Tou tentando criar uma função com botão direito do mouse, para selecionar a linha inteira do meu DataGridView e ele seleciona a linha sim porém não esta passando os id da linha selecionada fica na primeira linha do datagrid, e seu clicar com o botão esquerdo que é o padrão e após clicar o direito é que passa os dados corretos para outro form! Se por um acaso puder ajudar-me fico imensamente grato, obrigado! Estou utilizando o VS 2012 VB.NET!
Private Sub dgvListaContasApagar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
dgvListaContasApagar.MouseDown
On Error Resume Next
Dim dgv As DataGridView.HitTestInfo = dgvListaContasApagar.HitTest(e.X, e.Y)
If dgv.RowIndex > -1 Then
For i As Integer = 0 To dgvListaContasApagar.Rows.Count - 1
dgvListaContasApagar.Rows(i).Selected = False
Next
dgvListaContasApagar.Rows(dgv.RowIndex).Selected = True
IntCodigoLancamento = dgvListaContasApagar.CurrentRow.Cells([Ô]CodParcela[Ô]).Value
End If
End Sub
Private Sub dgvListaContasApagar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles
dgvListaContasApagar.MouseDown
On Error Resume Next
Dim dgv As DataGridView.HitTestInfo = dgvListaContasApagar.HitTest(e.X, e.Y)
If dgv.RowIndex > -1 Then
For i As Integer = 0 To dgvListaContasApagar.Rows.Count - 1
dgvListaContasApagar.Rows(i).Selected = False
Next
dgvListaContasApagar.Rows(dgv.RowIndex).Selected = True
IntCodigoLancamento = dgvListaContasApagar.CurrentRow.Cells([Ô]CodParcela[Ô]).Value
End If
End Sub
Use o click do datagridview que vai seleciona a linha inteira e pegar o valor selecionado.
ao invés de usar o Mousedown use o dgv click
Com o Click no dgv esta funcionando, esta função acima seleciona a linha inteira
do dgv e quero quando selecionar a linha vai o código correspondente alinha selecionada.
do dgv e quero quando selecionar a linha vai o código correspondente alinha selecionada.
No click do datagridview a linha inteira é selecionada e pegar o valor selecionado.
Sim no Click funciona perfeito.
Resolvido olha como ficou
Private Sub dgvListaContasApagar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvListaContasApagar.MouseDown
On Error Resume Next
Dim dgv As DataGridView.HitTestInfo = dgvListaContasApagar.HitTest(e.X, e.Y)
If dgv.RowIndex > -1 Then
For i As Integer = 0 To dgvListaContasApagar.Rows.Count - 1
dgvListaContasApagar.Rows(i).Selected = False
Next
dgvListaContasApagar.Rows(dgv.RowIndex).Selected = True
Cod = dgvListaContasApagar.Rows(dgv.RowIndex).Cells([Ô]CodParcela[Ô]).Value
End If
FrmBaixa.txtCodigo.Text = Cod
End Sub
Private Sub dgvListaContasApagar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgvListaContasApagar.MouseDown
On Error Resume Next
Dim dgv As DataGridView.HitTestInfo = dgvListaContasApagar.HitTest(e.X, e.Y)
If dgv.RowIndex > -1 Then
For i As Integer = 0 To dgvListaContasApagar.Rows.Count - 1
dgvListaContasApagar.Rows(i).Selected = False
Next
dgvListaContasApagar.Rows(dgv.RowIndex).Selected = True
Cod = dgvListaContasApagar.Rows(dgv.RowIndex).Cells([Ô]CodParcela[Ô]).Value
End If
FrmBaixa.txtCodigo.Text = Cod
End Sub
Tópico encerrado , respostas não são mais permitidas