Buscar

Email Elinv.
Búsqueda personalizada

viernes, 8 de abril de 2011

Ocultar o mostrar formularios o programas con teclas por Elinv.

/*
*
Código desarrollado por Elinv.

* http://www.bragadomas.com/forodeprogramacion/index.php
*
http://www.bragadomas.com
*
http://www.bragadomas.com.ar
*
http://luispedromendez.blogspot.com/
*
http://elinv-elinv.blogspot.com/?expref=next-blog
*/

:arrow: En un proyecto nuevo solo debes poner un timer, y colocar el siguiente código.

 Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Private Sub Form_Load()
    'Ocultamos el formulario.
    Form1.Hide
    'Intervalo del timer
    Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
    'Presionando Ctrl+R aparece notepad
    If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyR) Then
        Shell "notepad", vbMaximizedFocus
    End If
    'Presionando la tecla central del mouse aparece el formulario
    'de este programa
    If GetAsyncKeyState(4) = -32767 Then
        Form1.WindowState = vbNormal
        Form1.Visible = True
    End If
    'Presionando Shift mas la letra A se oculta este formulario.
    If GetAsyncKeyState(vbKeyShift) < 0 And GetAsyncKeyState(vbKeyA) Then
        Form1.Hide
    End If
End Sub

No hay comentarios:

Publicar un comentario en la entrada

Dejanos la consulta sobre tu código, y con gusto a la mayor brevedad posible te responderemos...