Jump to content

Tutorial Getasynckey // Shortcuts In Afara Formei


Gabriel™

Recommended Posts

Văd că foarte mulţi vă întrebaţi cum să faci ca la apăsarea unui buton să se întâmple ceva, chiar dacă programul e în TaskBar, adică nu e focalizat. Răspunsul se află în funcţia GetAsyncKey extrasă din fişierul user32.dll

Vom începe prin a declara funcţia, extrăgând-o din user32.dll
Dedesupt de Public Class Form1 vom pune rândul:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Apoi pe următorul rând vom declara două variabile de tip boolean:


Dim tasta1 As Boolean
Dim tasta2 As Boolean

Vom introduce în program un Timer, setat pe interval 100 şi Enabled fiind True. Vom da apoi dublu click pe acesta şi vom introduce codul:

tasta1 = GetAsyncKeyState(Keys.Q)
tasta2 = GetAsyncKeyState(Keys.ControlKey)

If tasta1 And tasta2 = True Then
Form2.Show()
End If

I-am dat variabilei tasta1 valoarea tastei Q, şi variabilei tasta2 valoarea tastei CTRL
Următoarea secvenţa se poate traduce astfel:

Dacă tasta1 şi tasta2 = adevărate atunci
va apărea forma2
Închide dacă

Adică, dacă tasta1 este apăsată şi tasta2 este apăsată atunci:
[...]

Deci la folosirea combinaţiei
CTRL+Q va apărea forma2 chiar dacă programul principal nu este focalizat.

 

Bineînţeles, vă puteţi alege orice combinaţie de taste. Unde? La partea în care daţi variabilelor valoarea tastelor.
Puteţi scrie:
tasta1 = GetAsyncKeyState(Keys.
şi vă va apărea o listă din care puteţi alege tasta dorită.

 

În final va trebui să arate ceva de genul:
http://s9.postimage.org/rlx5taey7/Poza_29_9_2012_1_11_13_59.png

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.