KEY PRESS
Como eu faço para que um button seja representado por uma key press
Digamos que eu queira que o button seja representado pela tecla do teclado [Ô]0[Ô] (zero).
Como eu faria isso passo a passo, de preferencia usando o VB 2008, mas tbm pode ser o VB 6
Digamos que eu queira que o button seja representado pela tecla do teclado [Ô]0[Ô] (zero).
Como eu faria isso passo a passo, de preferencia usando o VB 2008, mas tbm pode ser o VB 6
No comando CLICK do button, utilize o caracter desejado:
PRIVATE SUB COMMAND1_CLICK()
text1.text = [Ô]0[Ô]
END SUB
PRIVATE SUB COMMAND1_CLICK()
text1.text = [Ô]0[Ô]
END SUB
VB 6:
- Mude a propriedade do form Keypreview = true
- da no evento KeyPress do Form:
Private Sub Form_KeyPress(KeyAscii As Integer)
if Keyascii = CodigoAsciiDaTeclaDesejada then
Command1_Click [ô]aciona o evento Click do command1
end if
End Sub
Ja no vb 2008, estou engatinhando ainda, fico devendo
Tenha um bom dia
- Mude a propriedade do form Keypreview = true
- da no evento KeyPress do Form:
Private Sub Form_KeyPress(KeyAscii As Integer)
if Keyascii = CodigoAsciiDaTeclaDesejada then
Command1_Click [ô]aciona o evento Click do command1
end if
End Sub
Ja no vb 2008, estou engatinhando ainda, fico devendo
Tenha um bom dia
Em VB.NET
Mude a propriedade do Form KeyPreview = True
[ô][ô][ô] <summary>
[ô][ô][ô] Recebe o evento de que uma tecla esta sendo pressionada
[ô][ô][ô] </summary>
[ô][ô][ô] <remarks>
[ô][ô][ô] Tecla F5 - Efetua evento click no Button1
[ô][ô][ô] </remarks>
Private Sub frmEditarItem_DETM_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F5
Button1_Click(sender, e)
End Select
End Sub
Mude a propriedade do Form KeyPreview = True
[ô][ô][ô] <summary>
[ô][ô][ô] Recebe o evento de que uma tecla esta sendo pressionada
[ô][ô][ô] </summary>
[ô][ô][ô] <remarks>
[ô][ô][ô] Tecla F5 - Efetua evento click no Button1
[ô][ô][ô] </remarks>
Private Sub frmEditarItem_DETM_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.F5
Button1_Click(sender, e)
End Select
End Sub
Tópico encerrado , respostas não são mais permitidas