[Resolvido] Ao teclar Ctrl + L fazer pesquisa com texto digitado

[Rogério Orlando 0]

Oi pessoal.

 

Tenho um caixa de texto multiline onde o conteudo é salvo em um banco de dados.

Ocorre que por vezes tenho que localizar todos os arquivos que contêm um determinado texto,

então gostaria de saber como posso solicitar ao usuário que digite o texto de procura na caixa de texto e

precione as teclas Ctrl + L par efetuar a pesquisa no banco de dados.

 

Tenho uma idéia porém não estou conseguindo achar os comandos corretos.

 

 

No evento Keypress da caixa de texto digitei

 

IF keypress = vb... + vb... then (consulta SQL)

 

 

obrigado

[Dennys Lopes 0]

Opa ... tente isso:

 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 76 And Shift = 2) Then
	MsgBox "Codigo para Localizar"
End If
End Sub

[Rogério Orlando 0]

Valeu colega sua diga resolveu meus problemas, sendo assim agradeço e deixo mais algumas dicas sobre o assunto para quem necessitar.

 

Um abraço.

 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 76 And Shift = 2) Then
	MsgBox "CTRL + L"
End If

If (KeyCode = 76 And Shift = 1) Then
	MsgBox "SHIFT + L"
End If
If (KeyCode = 76 And Shift = 3) Then
	MsgBox "CTRL + SHIFT + L"
End If

End Sub