Autor
|
Tema: [Ayuda] Hacer que al apretar F1/F2 Active/Desactive un Botón (Leído 6,054 veces)
|
.DarkStyle
Desconectado
Mensajes: 6
|
Bueno, nadie me respondo en el post de el autoclick, pero lo logré hacer. Lo unico que me falta es que cuando yo aprete F1 se active, y cuando aprete F2 se desactive Solo eso, porfavor!
|
|
|
En línea
|
|
|
|
Cromatico
Desconectado
Mensajes: 110
|
Modulo: Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Timer intervalo 1:
Private Sub Timer1_Timer() If GetAsyncKeyState(vbKeyF1) = -32767 Then 'aca pones lo que se tiene que activar por ejemplo un timer TimerXXX.enabled = true End If
If GetAsyncKeyState(vbKeyF2) = -32767 Then 'aca pones lo que se tiene que desactivar por ejemplo un timer TimerXXX.enabled = false End If End Sub
Nose lo que queres hacer pero supongo que te servira!
|
|
|
En línea
|
|
|
|
.DarkStyle
Desconectado
Mensajes: 6
|
Aver, ahi te va el codigo: Public Class Fondo
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub MyMethod() Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position) 'Draws the point, there my cusor is mouse_event(&H2, 0, 0, 0, 1) 'Cursor will go down (like a click) mouse_event(&H4, 0, 0, 0, 1) 'Cursor goes up again End Sub End Sub
Private Sub Copyright_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Copyright.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contacto.Click
End Sub
Private Sub BotónActivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotónActivar.Click Timer1.Start() End Sub
Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click End End Sub
Private Sub BotónDesactivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BotónDesactivar.Click Timer1.Stop() End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = TextBox1.Text + 1 End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick MyMethod() End Sub End Class
Todo funciona a la perfeccion, mira, quiero que donde sale BotonActivar y BotonDesactivar, aprete f1 y f2 para activar y desactivar
|
|
|
En línea
|
|
|
|
.DarkStyle
Desconectado
Mensajes: 6
|
Ok, mira cuando pongo esto; Private Sub Timer1_Timer() If GetAsyncKeyState(vbKeyF1) = -32767 Then 'Timer1.Start() Timer1.enabled = True End If
If GetAsyncKeyState(vbKeyF2) = -32767 Then 'Timer1.Stop() Timer1.enabled = False End If End Sub Me sale abajo; error; La instruccion no es valida en un espacio de nombres.
|
|
|
En línea
|
|
|
|
Cromatico
Desconectado
Mensajes: 110
|
Eso no parece visual basic :S
|
|
|
En línea
|
|
|
|
.DarkStyle
Desconectado
Mensajes: 6
|
Si es Visual Basic 2008 Express Ayudame :l Porfavor
|
|
|
En línea
|
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Ayuda con el codigo para apretar el click
Programación Visual Basic
|
kakinets
|
1
|
1,596
|
8 Diciembre 2005, 23:31 pm
por Sancho.Mazorka
|
|
|
Problema: apretar tecla al hacer click
Programación Visual Basic
|
Demereth
|
0
|
2,131
|
24 Agosto 2013, 06:31 am
por Demereth
|
|
|
Pizza a domicilio con solo apretar un botón y 'drones' que te traen cerveza
Noticias
|
wolfbcn
|
0
|
1,498
|
10 Noviembre 2013, 02:19 am
por wolfbcn
|
|
|
Cómo hacer que el WiFi desactive los datos móviles en tu Android
Noticias
|
wolfbcn
|
0
|
3,804
|
2 Diciembre 2018, 03:06 am
por wolfbcn
|
|
|
Como hacer que al apretar un botón aparezca un mensaje en JTextField
Dudas Generales
|
Shannon
|
0
|
1,736
|
27 Marzo 2019, 06:40 am
por Shannon
|
|