MELHOR FORMA DE FAZER TECLA DE ATALHO
Qual a melhor forma de fazer algumas teclas de atalho dentro do sistema para executar algumas funções....?
up...
Adicione um botão,
Adicione um timer e nas propriedades deixe Enabled = True,
Depois:
Public Class Form1
Dim abrir As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Hide()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
abrir = [Ô]z[Ô]
If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso My.Computer.Keyboard.ShiftKeyDown AndAlso abrir = [Ô]z[Ô] Then
Me.Show()
End If
End Sub
End Class
===============
1 Execute o programa
2 clique no botão, vai esconder o form
3 para abrir o form com atalhos de teclas deixe pressionada a tecla Ctrl + Alt + Shift
E a mágica acontece o form abre que é uma belezinha =)
Adicione um timer e nas propriedades deixe Enabled = True,
Depois:
Public Class Form1
Dim abrir As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Hide()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
abrir = [Ô]z[Ô]
If My.Computer.Keyboard.CtrlKeyDown AndAlso My.Computer.Keyboard.AltKeyDown AndAlso My.Computer.Keyboard.ShiftKeyDown AndAlso abrir = [Ô]z[Ô] Then
Me.Show()
End If
End Sub
End Class
===============
1 Execute o programa
2 clique no botão, vai esconder o form
3 para abrir o form com atalhos de teclas deixe pressionada a tecla Ctrl + Alt + Shift
E a mágica acontece o form abre que é uma belezinha =)
Opa vou testar aqui...
Blz =)
Outa forma:
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.T AndAlso Keys.A AndAlso e.Control = True Then
Process.Start([Ô]calc.exe[Ô])
End If
End Sub
Pressionar CTRL + A + T
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.T AndAlso Keys.A AndAlso e.Control = True Then
Process.Start([Ô]calc.exe[Ô])
End If
End Sub
Pressionar CTRL + A + T
Tópico encerrado , respostas não são mais permitidas