[Resolvido] Acionar keypress por código.

[brunodopredio]

Eu tenho um form que busca um numero no banco de dados e ao clicar duas vezes no datagridview ele joga p numero para um txt em outro form.

Para acionar o método consultar eu tenho que teclar enter neste txt. existiria algum comando que acione esse evento keypress quando eu clicar duas vezes no grid do outro form?

já pesquisei por ai, mas naum consegui encontrar solução, eu consigo atreves do outro form chamar um método, um evento eu não consigo.

Obrigado!

Obrigado,

Atenciosamente,

Bruno Sella

[Andrepereira9]

Boas

Porque é que não crias uma função "externa"?

Em vez de meteres a pesquisar, quando é dado enter na textbox, apenas mandas o valor para a textbox, e passas o valor para a função

[brunodopredio]

Boas

Porque é que não crias uma função "externa"?

Em vez de meteres a pesquisar, quando é dado enter na textbox, apenas mandas o valor para a textbox, e passas o valor para a função

Queria deixar soh o evento como publico a função consultar eu queria deixar como private....mas se naum tiver como acionar o evento eu vou ter que fazer isso mesmo!........

[Andrepereira9]

Boas

Podes fazer assim. Não sei fazer nada melhor  😁 

Metes isto na form que tem o textbox.

Quando clicares 2 vezes no grid, apenas fazes

nome_form_onde_esta_a_funcao.recebe_num(numero_a_enviar)

'Esta Sub fica publica para receber o valor, e depois chama a Privada
Public Sub recebe_num(ByVal numero As String)
     MsgBox("Numero recebido em ""recebe_numero" + numero)
     Textbox2_enter(numero)
End Sub

'Esta Sub fica privada e recebe o valor da sub "recebe_num". Metes aqui dentro todo o procedimento de pesquisa
Private Sub Textbox2_enter(ByVal numero As String)
     'Aqui dentro fica o procedimento
     MsgBox("Numero recebido em ""Textbox2_enter" + numero)
End Sub

[brunodopredio]

Boas

Podes fazer assim. Não sei fazer nada melhor  😁 

Metes isto na form que tem o textbox.

Quando clicares 2 vezes no grid, apenas fazes

nome_form_onde_esta_a_funcao.recebe_num(numero_a_enviar)

'Esta Sub fica publica para receber o valor, e depois chama a Privada
Public Sub recebe_num(ByVal numero As String)
     MsgBox("Numero recebido em ""recebe_numero" + numero)
     Textbox2_enter(numero)
End Sub

'Esta Sub fica privada e recebe o valor da sub "recebe_num". Metes aqui dentro todo o procedimento de pesquisa
Private Sub Textbox2_enter(ByVal numero As String)
     'Aqui dentro fica o procedimento
     MsgBox("Numero recebido em ""Textbox2_enter" + numero)
End Sub

Beleza!......esse exemplo me deu uma boa idéia.....vai ficar mais ou menos assim....pena que não dá pra acionar o keypress

Mto obrigado....tópico resolvido.