[VB6] eseguire codice anche se la form è in 2° piano

[ink--]

altro piccolo problema

vorrei fare in modo che anche se la form non è selezionata (in primo piano) eseguisse questo codice:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyB Then
Label1.Caption = "hai premuto B"
End If
End Sub

come faccio? grazie.

[Mods]

chiami la funzione dove ti interessa avviarla nel seguente modo :

nomeForm.Form_KeyDown(KeyCode, Shift)

[ink--]

non ho capito...

facciamo finta che io abbia aperto explorer e scriva nella barra il sito boom.dot questo sito contiene la B e io vorrei che nel mio prog apparga la scirtta "hai premuto B"

[Mabi]

Originariamente inviato da ink--
non ho capito...

facciamo finta che io abbia aperto explorer e scriva nella barra il sito boom.dot questo sito contiene la B e io vorrei che nel mio prog apparga la scirtta "hai premuto B"

Se vuoi rilevare la pressione di un tasto al di fuori della tua applicazione puoi fare così:

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

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyB) <> 0 Then
  MsgBox "Hai premuto B"
End If
End Sub

(Ti basta inserire un Timer)

[ink--]

perfetto!
grazie!!!!!!!!!!!!!!

[Mabi]

Prego

[goku370]

Originariamente inviato da Mabi
Se vuoi rilevare la pressione di un tasto al di fuori della tua applicazione puoi fare così:

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

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyB) <> 0 Then
  MsgBox "Hai premuto B"
End If
End Sub

(Ti basta inserire un Timer)

Mi aggancio a questa discussione:
il codice che hai postato serve a rilevare la pressione di un particolare tasto.
Come posso fare per rilevarli tutti e magari scriverli di seguito su una textbox?

[Mabi]

Originariamente inviato da goku370
Mi aggancio a questa discussione:
il codice che hai postato serve a rilevare la pressione di un particolare tasto.
Come posso fare per rilevarli tutti e magari scriverli di seguito su una textbox?

Non ho ben capito cosa intendi.
Vuoi sapere in un determinato momento quali tasti vengono premuti o vuoi rilevare lo stato della tastiera ?
Per il primo caso potresti sfruttare la stessa API in un ciclo:

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

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Dim Cont As Long
Dim StrTemp As String

StrTemp = ""
For Cont = 65& To 90&
  If GetAsyncKeyState(Cont) <> 0 Then
    StrTemp = StrTemp & Chr(Cont) & " "
  End If
Next Cont
StrTemp = RTrim(StrTemp)

If Len(StrTemp) > 0 Then
  MsgBox StrTemp
End If
End Sub

L'esempio considera le lettere della tastiera.