CHAMAR UM EVENTO

PERCIFILHO 08/07/2011 16:31:42
#378806
Pessoal, o evento para o duplo clique num DataGridView é:

Private Sub Dgv_CellContentDoubleClick (ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dgv.CellContentDoubleClick

Agora eu quero que ao teclar Enter, obtenha o mesmo resultado sem escrever todo o código novamente.

No VB 6 seria mais ou menos assim:

Call Dgv_CellContentDoubleClick

E no VB.Net como eu faço isso?
ADHEL 08/07/2011 16:52:34
#378810
O jeito que conheço é

você cria uma rotina XXXX
coloca essa rotina no evento desejado
Quando você esta executando esse evento CellContentDoubleClick você está indicando a linha

Para o Enter você terá que selecionar a linha antes
exemplo
No evento keydown do form

Select Case e.KeyCode
Case Keys.Enter
For i = 0 To dgv.Rows.Count - 1
If dgv.Rows(i).Selected = True Then
Sua_Rotina
End If
Next


onde o nome do datagridview nesse caso é dgv
Lembre-se que a propriedade Keypress desse form tenha que estar como true

testa ai
RODRIGOFERRO 08/07/2011 19:20:12
#378823
há [ô]n[ô] formas de se fazer isso !

voce terá que estudar delegates para aprender a melhor forma !]]

Usando Delegates
VB .NET - Um pouco mais sobre Delegates

Se tiver mais alguma duvida é so perguntar !
PEGUDO 09/07/2011 10:01:18
#378845
Por quê você não faz um Sub em separado?

[txt-color=#0000f0]Private Sub[/txt-color] Dgv_CellContentDoubleClick ([txt-color=#0000f0]ByVal[/txt-color] sender [txt-color=#0000f0]As[/txt-color] Object, [txt-color=#0000f0]ByVal[/txt-color] e [txt-color=#0000f0]As[/txt-color] System.Windows.Forms.DataGridViewCellEventArgs) [txt-color=#0000f0]Handles[/txt-color] Dgv.CellContentDoubleClick
    ExecutarCodigo()
[txt-color=#0000f0]End sub[/txt-color]

[txt-color=#0000f0]Private Sub[/txt-color] Form1_KeyPress([txt-color=#0000f0]ByVal[/txt-color] sender [txt-color=#0000f0]As[/txt-color] Object, [txt-color=#0000f0]Byval[/txt-color] e [txt-color=#0000f0]As[/txt-color] System.Windows.Forms.KeyPressEventArgs) [txt-color=#0000f0]Handles Me[/txt-color].KeyPress
    [txt-color=#0000f0]If[/txt-color] e.KeyChar = Chr(13) [txt-color=#0000f0]Then[/txt-color]
        ExecutarCodigo()
    [txt-color=#0000f0]End If[/txt-color]
[txt-color=#0000f0]End Sub[/txt-color]

[txt-color=#0000f0]Private Sub[/txt-color] ExecutarCodigo()
    [txt-color=#007100][ô]Codigo a ser executado[/txt-color]
[txt-color=#0000f0]End Sub[/txt-color]
PERCIFILHO 11/07/2011 07:32:08
#378895
Valeu, Pegudo, vou tentar dessa maneira, creio que é a mais correta.

Até mais.
PERCIFILHO 11/07/2011 16:22:08
#378951
Ok, pessoal já resolvi (eu não desisto nunca).
Obrigado a todos.



Até a próxima.
Tópico encerrado , respostas não são mais permitidas
Voltar